Spalten löschen
07.10.2019 10:08:34
Waldow
habe folgendes Problem, ich möchte mit dem vorhandenen Makro2() auf dem Tabellen Blatt 1 wie das Beispiel zeigt 5 Spalten von B1-B5, F1-F5 oder auch später mehrere Spalten löschen. Die Anzahl der Spalten werden mit dem Makro1() durch das Betätigen immer um 1 Spalte erweitert, der Spalten-Zähler müßte im Makro1() oder Makro2() mit einer For-Next Schleife intrigiert werden ? wäre das so möglich ?
Gruß Waldow
Option Explicit Diese ist nur ein Beispiel !
Sub Makro1()
'1 1 3 4 5
'3 2 1 3 1
'5 3 4 5 2
'2 4 2 2 4
'4 5 5 1 3
'$B$1 '$C$1 '$D$1 '$E$1 '$F$1
'$B$2 '$C$2 '$D$2 '$E$2 '$F$2
'$B$3 '$C$3 '$D$3 '$E$3 '$F$3
'$B$4 '$C$4 '$D$4 '$E$4 '$F$4
'$B$5 '$C$5 '$D$5 '$E$5 '$F$5
End Sub
Sub Makro2()
Dim DieZielSpalt As Long
DieZielSpalte = Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Column
DieZielSpalte = Application.MaxChange(DieZielSpalte, 5)
Cells(1, 1).Resize(5) = Application.Tranpose(Array(1, 2, 3, 4, 5))
Cells(1, DieZielSpalte).Resize(5).Value = Range("B1:B5").Value
End Sub