Tabellenkalkulation

Excel: Zelleninhalte systematisch verschieben

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

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 1 von schnallgonz

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

Hey schnallgonz!

vielen vielen herzlichen Dank für deine schnelle Hilfe!
Das erspart mir eine Menge Arbeit!!!

Antwort 3 von schnallgonz

Hallo
gern geschehen, Danke für die Rückmeldung
gruß
schnallgonz

Antwort 4 von Suki

es müsste im Code übrigens heissen For i = 1 To 3000, sollte mal jemand anderes das auch brauchen (Tippfehler oben)