Excel: Zelleninhalte systematisch verschieben
Ich hätte eine Frage zum Verschieben von Zelleninhalten im Excel.
Meine Datei hat Daten in den Feldern A1 bis A600.
In den ungeraden Zellen (A1, A3 etc.) befindet sich jeweils ein Datum, in den geraden Zellen ein dazugehöriger Text.
Ich möchte nun den Text statt in der Zeile darunter in derselben Zeile wie das Datum haben, also A2 soll nach B1 kopiert werden, A4 nach B3 etc.
Gibt es eine Möglichkeit, dies automatisch durchzuführen?
Es wäre super, wenn mir jemand helfen könnte! Vielen Dank schon im Voraus!
Antwort schreiben
Antwort 1 von schnallgonz vom 12.06.2020, 22:37 Options
Salve
kopiere folgenden Code in ein normales Modul:
Sub Verschieben()
Range("A2").Select
For i = 1 To 300
Selection.Cut
ActiveCell.Offset(-1, 1).Select
ActiveSheet.Paste
ActiveCell.Offset(3, -1).Select
Next i
Application.CutCopyMode = False
End Sub
Datei vorher sichern ist kein Fehler...
mfg
schnallgonz
Antwort 2 von Suki vom 12.06.2020, 22:48 Options
Hey schnallgonz!
vielen vielen herzlichen Dank für deine schnelle Hilfe!
Das erspart mir eine Menge Arbeit!!!
Antwort 3 von schnallgonz vom 14.06.2020, 15:13 Options
Hallo
gern geschehen, Danke für die Rückmeldung
gruß
schnallgonz
Antwort 4 von Suki vom 14.06.2020, 21:17 Options
es müsste im Code übrigens heissen For i = 1 To 3000, sollte mal jemand anderes das auch brauchen (Tippfehler oben)