im untenstehenden Makro soll eine Umstellung erfolgen, undzwar soll nicht nur die Spalte 5 nach 55-Zahlen durchsucht werden sondern auch die Spalte 4 und aus den beiden Spalten soll dann der Übertrag erfolgen wenn die Zahlen gefunden sind. Hab es gerade sebst probiert aber hat nicht ganz hingehauen.
If [E65536] = "" Then
LoLetzte = [E65536].End(xlUp).Row
Else
LoLetzte = 65536
End If
For LoI = 1 To LoLetzte
If IsNumeric(Cells(LoI, 5)) Then
If Cells(LoI, 5) >= 55000 And Cells(LoI, 5) <= 55999 Then
LoWert = Cells(LoI, 5)
Cells(LoI, 8) = LoWert
Else
Cells(LoI, 8) = LoWert
End If
Else
Cells(LoI, 8) = LoWert
End If
Next LoI
Gruß
Julia