Sub Makro
letzteZeile = Cells(3, 5).End(xlDown).Row
Startpunkt = 1300
For i = 3 To letzteZeile
If Cells(i, 4) Like Startpunkt & "*" Then
Startzeile = Cells(i, 4).Row
Startpunkt = Startpunkt + 100
For l = Startzeile To letzteZeile
If Cells(i, 4) Like Startpunkt & "*" Then
Endzeile = Cells(i, 4).Row
For k = Startzeile To Endzeile
Hallo zusammen,
ich habe eine Spalte in der viele Werte sind. Die Zahlen habe immer eine Zahl und 2 Nachkommastellen also z.B. 1300,23 oder 23000,42. Im dritten Zeilencode findet das Programm die Zahl 1300,xx aber wenn ich zur 1400,xx komme, erkennt das Makro das nicht. Also ich meine diesen folgenden Code:
If Cells(i, 4) Like Startpunkt & "*" Then
Irgendwas ist mit der Like-Funktion. Hat jemand ne Idee?
|