Excel: Zwei Spalten alternierend in eine kopieren

[Nilson]

Hallo zusammen,

Ich habe eine Tabelle mit Daten wie folgt in A und B. Ich brauch die Daten aber wie in Spalte D dargestellt. Gibts da einen einfachen Trick für, oder komm ich um ein VBA Macro nicht drum rum?

Danke und Gruß

 

[Pyrukar]

Wenn es wirklich nur so banal sein soll dann würde ich vorschlagen: D1=A1 , D2=B1 ... und dann (beide Gemeinsam) nach unten Ziehen ... darauf folgt D3=A2 D4=B2 usw. wenn es natürlich etwas komplexer wird ... dann ist ein Makro sicherlich sinnvoll.

 

[Nilson]

Danke für Antwort, macht er leider nicht. Er überspringt jede zweite Reihe:

 

[Gameforce]

Sub Alternierend()
On Error Resume Next

Dim Tabelle_Quelle As String
Dim Tabelle_Ziel As String

Dim Spalte_Q1 As Long
Dim Spalte_Q2 As Long
Dim Spalte_Z1 As Long

Dim Startzeile_Q As Long
Dim EndZeile_Q As Long

Dim Startzeile_Z As Long

Dim X As Long
Dim Zaehler As Long

Dim Inhalt1 As String
Dim Inhalt2 As String

'*** INIT **********************************************************************
Tabelle_Quelle = "Tabelle1" 'Tabellenname wo die Daten sind
Tabelle_Ziel = "Tabelle1" 'Tabellenname wohin die Daten sollen

Spalte_Q1 = 1 'Spalte A
Spalte_Q2 = 2 'Spalte B
Startzeile_Q = 1  'Ab dieser Zeile soll begonnen werden
EndZeile_Q = 8 'Bis zu dieser Zeile soll ausgelesen und bearbeitet werden

Spalte_Z1 = 4 'Zielspalte D

Zaehler = 0
'*******************************************************************************


For X = Startzeile_Q To EndZeile_Q
    Inhalt1 = ""
    Inhalt2 = ""

    Inhalt1 = Worksheets(Tabelle_Quelle).Cells(X, Spalte_Q1).Value & ""
    Inhalt2 = Worksheets(Tabelle_Quelle).Cells(X, Spalte_Q2).Value & ""
    
    Zaehler = Zaehler + 1
    Worksheets(Tabelle_Ziel).Cells(Zaehler, Spalte_Z1).Value = Inhalt1

    Zaehler = Zaehler + 1
    Worksheets(Tabelle_Ziel).Cells(Zaehler, Spalte_Z1).Value = Inhalt2

Next X


End Sub

 

[Nilson]

@Gameforce
Danke, perfekt.

 

[Pyrukar]

na ja dann eben doch per skript

 

[GunMum]

Nö, es geht auch mit "ohne VBA/Script". -> Power Query mit wenigen Mausklicks.