Nicht Zeilen sondern Spalten löschen
07.02.2005 13:23:06
Tom
ich habe (unten) eine Möglichkeit gefunden, alle Z e i l e n zu löschen, die nicht den u.a. Inhalt in Spalte A enthalten.
Ich möchte aber nun erreichen, dass alle S p a l t e n gelöscht werden, die nicht diesen Inhalt enthalten
Die Angaben "Empfänger" usw stehen jeweils in der 1.Zeile in den Spalten A-K
Vielleicht hat jemand ne Lösung!
Danke vorab
Tom
Sub Zeilen_löschen()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = laR To 1 Step -1
If Cells(i, 1).Text <> "Empfänger" And _
Cells(i, 1).Text <> "Absender" And _
Cells(i, 1).Text <> "Erf.Dat." And _
Cells(i, 1).Text <> "Lief.-Dat" And _
Cells(i, 1).Text <> "Rel" And _
Cells(i, 1).Text <> "Gew." Then
Cells(i, 1).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Anzeige