Nicht Zeilen sondern Spalten löschen

Bild

Betrifft: Nicht Zeilen sondern Spalten löschen von: Tom
Geschrieben am: 07.02.2005 13:23:06

Hallo,

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

Bild


Betrifft: AW: Nicht Zeilen sondern Spalten löschen von: Eleni
Geschrieben am: 07.02.2005 13:35:49

Hi Tom,

Schon mit EntireColoumn.Delete statt EntireRow.Delete probiert?



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).EntireColoumn.Delete
      End If
    Next i
Application.ScreenUpdating = True
End Sub



Ciao, Eleni


Bild


Betrifft: AW: Nicht Zeilen sondern Spalten löschen von: Tom
Geschrieben am: 07.02.2005 14:54:42

Ja, das funktioniert nicht ...


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Nicht Zeilen sondern Spalten löschen"