Hi zusammen,
ich habe mal wieder eine kleine Challenge.
Ich bräuchte ein Makro was Zellen von rechts nach Links verschiebt.
und zwar sind im Bereich E4 bis AH124 Daten gefüllt. Jedesmal wenn ich das Makro ausführe soll die Spalte E die Werte von F, die Spalte F von G (usw. bis AH von AI die Daten übernehmen soll) übernehmen.
Was ich derzeit im VBA erstellt habe funktioniert zwar, allerdings benötigt Excel dann einige Zeit bis er alle Zellen durch hat:
Private Sub verschiebe_werte()
Dim Spalte As Long
Dim zeile As Long
For Spalte = Range("E4").Column To Range("AH4").Column
For zeile = Range("E6").Row To Range("E124").Row
Tabelle3.Cells(zeile, Spalte).Value = Tabelle3.Cells(zeile, Spalte + 1)
Next zeile
Next Spalte
End Sub
Habt ihr eine andere Idee wie ich das schneller hinbekomme?
Danke und Gruß Martin
ich habe mal wieder eine kleine Challenge.
Ich bräuchte ein Makro was Zellen von rechts nach Links verschiebt.
und zwar sind im Bereich E4 bis AH124 Daten gefüllt. Jedesmal wenn ich das Makro ausführe soll die Spalte E die Werte von F, die Spalte F von G (usw. bis AH von AI die Daten übernehmen soll) übernehmen.
Was ich derzeit im VBA erstellt habe funktioniert zwar, allerdings benötigt Excel dann einige Zeit bis er alle Zellen durch hat:
Private Sub verschiebe_werte()
Dim Spalte As Long
Dim zeile As Long
For Spalte = Range("E4").Column To Range("AH4").Column
For zeile = Range("E6").Row To Range("E124").Row
Tabelle3.Cells(zeile, Spalte).Value = Tabelle3.Cells(zeile, Spalte + 1)
Next zeile
Next Spalte
End Sub
Habt ihr eine andere Idee wie ich das schneller hinbekomme?
Danke und Gruß Martin