Spalte einer Liste komplett löschen
18.12.2021 14:40:28
Robert
Habe mal wieder ein Problem. Dafür wäre ich für Hilfe sehr dankbar.
Ich möchte aus Tabellen, bestimmter Bereiche je nach Bedarf, Überschrift und Inhalt löschen. Habe mich auf Grund früherer Beiträge versucht ein Makro zu basteln. Aber das läuft leider bei mir ins leere. In der Tabelle soll der Name Spalte 1 gelöscht der in der oberen Zeile 2 steht. Er soll in A27 eingeben werden und per Makro gelöscht werden. Es kommt aber immer nur die Fehlermeldung Index außerhalb des gültigen Bereiches. Was muß ich tun um das zu ändern. In A28 steht der jeweilige Bereich welcher auch komplett gelöscht werden soll.
Mein Makro hat folgenden Code
Sub Loeschen()
Dim strDatei As String, strTabelle As String, strRange As String
strDatei = Range("A26")
strTabelle = Range("A27")
strRange = Range("A28")
ActiveSheet.ListObjects(ActiveSheet.Range("A27").Value).ListColumns(1).Delete
Selection.ClearContents
Range(strRange).Select
ActiveSheet.ListObjects(ActiveSheet.Range("A28").Value).ListColumns(1).Delete
End Sub
Wäre sehr nett wenn Ihr mir bei der Lösung helfen könntet.
https://www.herber.de/bbs/user/149887.xlsm
LG Robert