Tabelle übertragen in Gesamt
20.06.2008 14:49:00
Matty
Ich habe folgenden Code, mit dem ich alle Einzeltabellenblätter in eine "Gesamt" übersicht kopiere. Der Spaltenaufbau aller Tabellenblätter ist identisch:
Frage zur folgenden Stelle: "Sheets(i).Rows("3:55")....." ich möchte, dass das Programm nicht eine festgeschriebene Anzahl von Zeilen kopiert, sondern eben soviele Zeilen wie in der entsprechenden Tabelle stehen. Diese sollen dann in das Tabellenblatt "Gesamt" nahtlos übertragen werden. Könnt ihr mir helfen, wie ich diese Zeile programmieren muss!?
Gruß und Danke
Matty
Sub JoinTab()
Dim i%, k%, strTab$
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
Sheets(i).Rows("3:55").Copy Sheets(strTab).Range("A" & 3 + k * 53) 'HIER _
LIEGT DAS PROBLEM
k = k + 1
End If
End If
Next i
Application.ScreenUpdating = True
End Sub
Anzeige