OpenOffice BASIC IsNumber
-
12-11-2019 - |
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
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
.