Supportnet / Forum / Tabellenkalkulation

Hallo, konnte leider nix finden, was mir in dem Fall weiterhilft. Ich brauche ein Makro das, wenn ich in Zeile 2 ein X stehen habe, mir dann die Spalte in der es steht löscht. Wer kann mir weiterhelfen? Gruß Lefty PS: das X wird durch eine Formel angezeigt, geht das dann überhaupt?

hallo,

ohne genauere Kenntins deiner Formel für "x"

Sub Makro1()
For i = 1 To Columns.Count
    If Cells(2, i).Value = "x" Then
        Columns(i).Select
        Selection.Delete Shift:=xlToLeft
    End If
Next i
End Sub

Kann nach löschen der Spalte abstürzen

Gruß

Helmut

Hallo Lefty,

ich würde es so machen.
Es werden nur so viele Spalten (von hinten) geprüft wie auch beschrieben, da kann nichts abstürzen. Auf Select kann man verzichten.

Option Explicit

Sub Makro1()
   Dim i As Integer
   For i = Cells(2, Columns.Count).End(xlToLeft).Column To 1 Step -1
      If Cells(2, i).Value = "x" Then
         Columns(i).Delete Shift:=xlToLeft
      End If
   Next i
End Sub

Gruss
Rainer

Danke,

werde es testen!!!

Gruß Lefty

• Makro: Zellen mit Inhalt erkennen und kopieren
• Makro Excel Zeile löschen mit bestimmten wert in Spalte
• Doppelte Werte finden und löschen
• bestimmte Excel-Zeilen löschen
• zur Formel Anzahlleerezellen