VBA: Vergleich größer/kleiner funktioniert nicht
25.09.2007 10:08:31
der.dan
Und wieder einmal macht mein VBA-Code nicht das was er soll. Diesmal hakt's an folgender Stelle:
Es soll verglichen werden, ob ein Zellwert kleiner und/oder größer ist als zwei Variablen. Dummerweise kann ich eingeben was ich will, der Zellwert ist irgendwie nie größer als 0 (NULL) - dabei ist doch von der Theorie her jede positive Zahl größer als 0...
Hier mal der betreffende Code:
Sub test()
Dim zeile, zzeile, nzeile, lzeile As Long
Dim ssvPLZ, ssbPLZ As String
ssvPLZ = Worksheets("Eingeben und Suchen").Range("B19").Value
ssbPLZ = Worksheets("Eingeben und Suchen").Range("B20").Value
lzeile = Sheets("Kundenliste").Cells(65536, 1).End(xlUp).Row
MsgBox lzeile
For zeile = 1 To lzeile
nzeile = Sheets("Eingeben und Suchen").Cells(65536, 1).End(xlUp).Row + 1
MsgBox zeile
If Sheets("Kundenliste").Cells(zeile, 4) > ssvPLZ Then MsgBox ("größer als ssvPLZ")
If Sheets("Kundenliste").Cells(zeile, 4)
ssvPLZ und ssbPLZ sind "0" bzw. "99999" - jedoch mit beschriebenem Ergebnis...
Kurioserweise hat das Ganze letzte Woche Freitag noch einwandfrei funktioniert...
Nur finde ich den Grund für das nicht-funktionieren einfach nicht - wer kann mir helfen?
Gruß
Dan