Spalten aus anderem Tabellenblatt löschen
04.05.2017 13:58:47
Marc
wenn ich versuche Spalten zu entfernen die nicht auf dem aktuellen Tabellen-Blatt liegen fällt mir folgende Prozedur auf die Nase:
Sub SpalteEntfernen(Spalte As Integer, Name As String)
Dim sht As Worksheet
Set sht = Sheets(Name)
sht.Columns(Spalte).Select
Selection.Delete Shift:=xlToLeft
End Sub
Danke im Voraus
Anzeige