Hallo beisammen,

ich möchte mehrere Spalten untereinanderkopieren und habe schon in diesem Forum den folgenden Quellcode gefunden. Bei mir kommt allerdings der Fehler:
Compile error: Invalid outside procedure

Ich habe keine Ahnung von VBA und bin über jede Hilfe dankbar!!


Dim TB2sp As Long
Dim TB2ze As Long
Dim TB1ze As Long

TB1ze = 2
For TB2sp = 3 To 2501
For TB2ze = 3 To 369
'PseudoCode
TB1 -Daten(TB1ze, 3) = TB2 - Inhalt(TB2ze, TB2sp)
'Ende PseudoCode
TB1ze = TB1ze + 1
Next
Next

Hi petaod,
vielen Dank dir für die Antwort!

Wollen ja, nur können leider nicht Ich fasse das erste mal VBA an, da ich mit den Formeln nicht mehr weiterkomme.

so, nun schaut das Ganze bei wie unten aus. Fehlermeldung: Compile error: sub or function not defined


Sub CopyData()
Dim TB2sp As Long
Dim TB2ze As Long
Dim TB1ze As Long

TB1ze = 2
For TB2sp = 3 To 2501
For TB2ze = 3 To 369
'PseudoCode
TB1 -Daten(TB1ze, 3) = TB2 - Inhalt(TB2ze, TB2sp)
'Ende PseudoCode
TB1ze = TB1ze + 1
Next
Next
End Sub