Markierte Spalte löschen
14.12.2021 08:14:17
Daniela
Ich bin im Moment an meine Grenzen betreffend VBA gestoßen. Dabei wäre die Lösung sicherlich simpel. Aber ich sehe den Wald lauter Bäume nicht mehr.
Mit dem folgenden Code möchte ich die Spalte löschen, die ich mit dem Cursor in einer Zelle markiert habe (also ich klicke z.B. in Zelle D20 und möchte die ganze Spalte löschen). Die Tabelle ist aber schreibgeschützt, die ich zuerst entsperre und nach dem Makro wieder gesperrt wird.
Im Moment wird mit dem Makro nur gerade die aktive Zelle gelöscht. Was mache ich noch falsch?
Sub LoescheSpalten()
ActiveSheet.Unprotect Password:="xxxxxxxxx"
Selection.Columns.Delete
ActiveSheet.Protect Password:=" xxxxxxxxx ", AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFormattingCells:=True
End Sub
lg Daniela
Anzeige