ich brauche wie in Betreff gesagt das Makro, das die Zeilen einer Liste löscht, in denen in Spalte 2 das erste Zeichen ein "T" ist.
Habe versucht:
Public Sub SZ_5()
'** Ermittlung der letzten Zeile in Spalte A
lz = Cells(Rows.Count, 2).End(xlUp).Rows.Row
'** Durchlauf aller Zeilen
For T = lz To 2 Step -1 'Zählung rückwärts bis Zeile 2
'Abfragen, ob in der ersten Spalte der Buchstabe "T" steht
If Cells(T, 2).Value = "T" Then
Rows(T).Delete Shift:=xlUp
End If
Next T
End Sub
Ergebnis: Er löscht nur die Zeilen in denen in der Zelle ausschließlich "T" steht - keine Zeichenfolgen. Auch "T*" ergibt keine Trffer (er löscht explicit T*, erkennt den Platzhalter gar nicht).
Habe dann versucht:
Public Sub SZ_3_neu()
'** Ermittlung der letzten Zeile in Spalte A
lz = Cells(Rows.Count, 2).End(xlUp).Rows.Row
'** Durchlauf aller Zeilen
For P = lz To 2 Step -1 'Zählung rückwärts bis Zeile 2
'Abfragen, ob in der zweiten Spalte der Buchstabe "T" steht
If InStr(Cells(P, 2).Value, "T") Then
Rows(P).Delete Shift:=xlUp
End If
Next P
End Sub
Ergebnis: Er löscht die Zeilen, bei denen in der Zelle irgendwo ein "T" steht...
Ich habe verschiedene Kombis mit der Funktion LINKS versucht...
Bekomme es nicht hin.
Kann jemand die richtige Lösung zeigen ???????????????