Office: Spalten kopieren mit VBA und im neuen Tabellenblatt nebeneinander auflisten

Hallo,
brauche nochmals Hilfe, da ich mich in VBA nicht gut auskenne.
Folgendes Problem, in meiner Datei sind viele Sheets, die alle gleich aufgebaut sind.
In einer anderen Datei können mehr oder weniger Sheets sein auch die Zeilenanzahl kann variieren. (Innerhalb einer Datei aber gleich)
Nun möchte ich diese Spalten in einem neuen Tabellenblatt nebeneinander dargestellt bekommen.
Bei meiner Suche finde ich nur Makros, wo die Spalten untereinander dargestellt werden.

 

Hi Elke,

das kannst du mit folgendem Code realisieren:

Code:

Sub Spaltenweise()
    Dim lngLetzte As Long
    Dim wksTab As Worksheet
    Dim intSpalte As Integer
    intSpalte = 1
    For Each wksTab In Worksheets
        If wksTab.Name <> "nebeneinander" Then
            With wksTab
                lngLetzte = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
                .Range(.Cells(1, 1), .Cells(lngLetzte, 3)).Copy Worksheets("nebeneinander").Cells(1, intSpalte)
                intSpalte = intSpalte + 4
            End With
        End If
    Next wksTab
End Sub

---

 

Hallo,
vielen Dank, genau das was ich brauchte.