Tabelle
23.06.2008 10:45:00
Matty
Ich habe ein Problem mit folgendem Code (siehe unten)
Ich habe in einer Exceltabelle mehrere Sheets mit gleichem Aufbau (Spaltenüberschriften). Diese möchte ich nahtlos in eine Tabelle Gesamt kopieren. Abhängig von der Anzahl der Zeilen, die in den einzelnen Sheets stehen. Das Problem bei meinem Code liegt in der Zeile... "Sheets(i).Rows("2:" & Spa).Copy Sheets(strTab).Range("A" & 1 + k + Spa)" ... Ich weiss nicht wie ich im 2.Teil programmieren muss, damit das Programm immer die Zeilen aus den Sheets in die Gesamtlisten kopiert und zwar ohne leerzeilen in der Gesamttabelle...
Schonmal danke im voraus...
gruß
matty
Sub JoinTab1()
Dim i%, k%, strTab$
Dim Spa As Long
strTab = "Gesamt" 'Name anpassen
strTab2 = "Annahmen"
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
If Sheets(i).Name strTab Then
If Sheets(i).Name strTab2 Then
Spa = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row '1 steht für 1te Spalte also A
Sheets(i).Rows("2:" & Spa).Copy Sheets(strTab).Range("A" & 1 + k + Spa)
k = k + Spa
End If
End If
Next i
Application.ScreenUpdating = True
End Sub