Dim daten1 As Worksheet, daten2 As Worksheet, daten3 As Worksheet, auswertung As Worksheet
Dim y As Long, iCol As Integer
Set daten1 = Worksheets("Tabelle1")
Set daten2 = Worksheets("Tabelle2")
Set daten3 = Worksheets("Tabelle3")
Set auswertung = Worksheets("Ergebnis")
iCol = Application.WorksheetFunction.Max(daten1.Cells(1, Columns.Count).End(xlToLeft).Column, daten2.Cells(1, Columns.Count).End(xlToLeft).Column, daten3.Cells(1, Columns.Count).End(xlToLeft).Column)
For y = 1 To iCol
If Application.WorksheetFunction.CountA(auswertung.Columns(1)) = 0 Then
daten1.Columns(y).Copy auswertung.Columns(1)
Else
daten1.Columns(y).Copy auswertung.Columns(auswertung.Cells(1, Columns.Count).End(xlToLeft).Column + 1)
End If
daten2.Columns(y).Copy auswertung.Columns(auswertung.Cells(1, Columns.Count).End(xlToLeft).Column + 1)
daten3.Columns(y).Copy auswertung.Columns(auswertung.Cells(1, Columns.Count).End(xlToLeft).Column + 1)
Next y
End Sub