Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon nomatic vom 04.11.2020, 12:07 Options

Excel - Automatisch Zeilen in Spalte verschieben

Ich habe eine recht lange Excel Datei in welcher sich von Zeile zu Zeile Text und Datum abwechselt. Das Ganze ist eine Liste von SMS die ich erhalten habe.
Nun würde ich gerne Datum und Text in jeweils eine Spalte ziehen. Wie kann man sowas automatisieren.

Konkret soll das so aussehen:
A1 bleibt A1
A2 wird zu B1
A3 wird zu A2
A4 wird zu B2
A5 wird zu A3
A6 wird zu B3
...usw...

Vielen Dank im Voraus!

Antwort schreiben

Antwort 1 von Hajo_Zi vom 04.11.2020, 12:15 Options

Hallo Nick,

Bereich markiueren, kopieren, Zielzelle wählen, rechte Maustaste, Inmhalte einfügen, Transponieren.

Gruß Hajo

Antwort 2 von nomatic vom 04.11.2020, 12:26 Options

Damit ist mir leider nicht geholfen.

Wie gesagt:

A1 bleibt A1
A2 wird zu B1
A3 wird zu A2
A4 wird zu B2
A5 wird zu A3
A6 wird zu B3
...usw...

Durch das Transponieren sieht das so aus:

A1 bleibt A1
A2 wird zu B1
A3 wird zu C1
A4 wird zu D1
A5 wird zu E1
A6 wird zu F1
...

Antwort 3 von Saarbauer vom 04.11.2020, 14:15 Options

hallo,

dein Problem ist nur per Makro zu lösen, versuch es mal hiermit

Sub umsortieren()
    For i = 2 To Range("A65536").End(xlUp).Row Step 2
        Range("B" & i - 1).Value = Range("A" & i).Value
        Range("A" & i).Value = ""
    Next i
    Columns("A:B").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Gruß

Helmut

Antwort 4 von nomatic vom 04.11.2020, 15:10 Options

Hammer... genauso sollte das sein :)

Vielen Dank dafür!

Kannst du mir eine gute Quelle nennen wo man dieses skripten zummindest in den Grundlagen lernen kann?
Hab desöfteren kleinere Probleme die nur mit Makros zu lösen sind und will dann nicht immer wen fragen, sondern mal selber machen.

Hab das Wikibook "VBA in Excel -Grundlagen" gelesen aber von Grundlagen sehe ich dort nichts.

Antwort 5 von Saarbauer vom 04.11.2020, 15:17 Options

hallo,

mit einem Buch kann ich dir nicht dienen, ich habe es im Laufe der Zeit mit Learning by Doing gelernt.

Ein Teil des Makros habe ich auch augezeichnet, da das schneller geht.

Gruß

Helmut

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken