ich habe gerade folgendes Problem: Ich habe ein Excel-File mit 12 Blättern. Aus allen Blättern möchte ich die Spalte "N" auf das bis jetzt noch leere Blatt "Jahre" nebeneinander kopieren. Mein bisheriger Code kopiert jedoch die Spalten immer auf "A" und "A"+1 klappt nicht!
Hoffe Ihr könnt mir nochmal helfen.
Viele Grüße
Tina
Sub Tabellen()
Dim j As Integer
Dim dBlatt As String, m As String
Dim i As Integer
'Aus allen Datenblättern Mittelwerte entnehmen.
For j = 1 To 12
m = Application.Text(j, "00")
dBlatt = "co_" & m & "94"
Sheets(dBlatt).Select
Columns("N").Select
Selection.Copy
Sheets("Jahr").Select
Columns("A").Select
ActiveSheet.Paste
Next
End Sub