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?
|