Hallo,

ich habe folgenden Code:

Sub spalte_loeschen()
Dim Antwort As Long
Dim rng As Range                
   Set rng = Range("E2:XX2")
   If Intersect(rng, Selection) Is Nothing Then
      MsgBox "Es ist nicht der richtige Bereich markiert! Sie müssen eine oder mehrere Zelle(n) im Gelben Bereich markieren."
   Else
    Antwort = MsgBox("Wollen Sie die markierten Spalten wirklich löschen?", 4, "Frage")
    If Antwort = vbYes Then
        For Each Zelle In Selection
        Zelle.EntireColumn.Delete Shift:=xlToLeft
        Next Zelle
    Else
    End If
    End If
End Sub

Letztendlich möchte ich damit als erstes überprüfen, ob in einem bestimmten Bereich (E2:xx2) eine oder mehrere Zellen markiert sind. Anschließend soll dann, sobald das Ergebnis ja ist, eine weitere Abfrage erfolgen, ob die Zellen wirklich gelöscht werden sollen. Anschließend soll dann bei Ja jede Spalte zum markierten Bereich gelöscht werden.

Vom Prinzip her funktioniert das auch so. Dabei scheint aber irgendwie nicht die komplette spalte gelöscht zu werden. Wenn ich später in einem weiteren Makro über den Befehl Cells.SpecialCells(xlCellTypeLastCell).Column eine Abfrage ausführe, ist die letzte Zelle immer noch wie vor dem Löschen. zu sehen ist in der Spalte jedoch nichts. Allerdings haut mir das meine Makros kaputt...

Weiß einer, woran das liegt?