Bitte nochmal kurz Hilfe
29.01.2010 10:33:04
Jockel
Hallo ,
bekam hier aus dem Forum mal dieses Beispiel. Ich will eine Spalte auf gleiche Einträge vergleichen. Das funktioniert soweit. Jetzt hatte ich nur das Problem, dass nicht alle Zellen dieser Spalte ausgefüllt waren, also, dass es auch mal leere Zellen gibt.
Bei einer leeren Zell soll narürlich keine Meldung kommen, sondern es sollen nur die vergleichen werden, die auch tatsächlich was beinhalten, also nicht leer sind.
Was muss ich denn da noch ändern ?
Danke Joachim
Dim b As Boolean
Dim i As Long
b = False
For i = 24 To 45
If Cells(i, 5) <> Cells(i + 1, 5) Then b = True
Next i
If b = True Then MsgBox "Unterschiedliche Währungen"