Frage

Ich muss ein Dokument mit Makros von MS Excel nach Open Office migrieren.Bis auf diese Funktion funktioniert alles einwandfrei

 If Application.WorksheetFunction.IsNumber(Cells(12, 5)) = False Then
   MsgBox "Nesprávne zadané číslo účtu alebo kód banky!", vbCritical
   ActiveSheet.Protect Password:="****", DrawingObjects:=True, Contents:=True, Scenarios:=True
   Exit Sub
 End If

Es wird nach vom Benutzer eingegebenen Werten gesucht.Aber ich bekomme nur diesen Fehler:

Grundlegende Laufzeitfehlervariable des Objekts sind nicht festgelegt

Also habe ich mein Dokument noch einmal überprüft, ob Zelle E12 nicht leer, sondern gefüllt war.Gibt es in Open Office eine andere Möglichkeit, das Eingabeformat zu überprüfen?Danke

War es hilfreich?

Lösung

Die Zahl in Excel Visual Basic ist anders als in OO.Verwenden Sie GetCellbyName ("E12"). Wert Diese Funktion gibt Ihre Nummer zurück

Andere Tipps

Wenn die Zeile If Application.WorksheetFunction.IsNumber(Cells(12, 5)) = False Then kann man nicht sagen object not set, und Sie haben das bestätigt Cells(12, 5) einen Wert zurückgibt, dann wären die einzigen Möglichkeiten, die mir einfallen, dieser Application oder Application.WorksheetFunction Ist Nothing.

Lizenziert unter: CC-BY-SA mit Zuschreibung
Nicht verbunden mit StackOverflow
scroll top