um Folgende Daten in zwei Gruppen zu Kategorisieren habe ich ein kleines Makro geschtrieben:
L251BKMX04R00:FAPE3
251BKMD18R01:FAPE3
L251BKMX01R02:FAPE3
251BKMD19R02:FAPE3
251BKMD18R01:FAPE3
L251BKMX01R02:FAPE3
251BJWD04R03
251BKMD18R01:FAPE3
L251BKMX01R02:FAPE3
251BJWD04R03
Leider bekomme ich die im Header angezeigte Fehlermeldung. Ich sehe meinen Fehler aber nicht, habt Ihr eine Idee?
Beste Grüße
Christian
Option Explicit
Sub Monitor_WO()
Dim lngLZeile2 As Long
Dim lngAktZeile As Long
Dim WsWOMonitor As Worksheet
Set WsWOMonitor = TabWOMonitor
lngLZeile2 = WsWOMonitor.Cells.Find("*", WsWOMonitor.Range("A1"), xlFormulas, xlWhole, xlByRows, _
xlPrevious).Row
For lngAktZeile = lngLZeile2 To 3 Step -1
If Left(.Range("B" & lngAktZeile).Value, 12) = "L" Then
.Range("L" & lngAktZeile).Value = "Logistic"
Else
.Range("L" & lngAktZeile).Value = "KIT"
End If
Next lngAktZeile
end Sub