Sub JoinTab1()
Dim i%, k%, strTab$
Dim Spa As Long
strTab = "Gesamt" 'Name anpassen
strTab2 = "Annahmen"
strTab3 = "Uebersicht"
'alle aktuellen Werte löschen
Sheets("Gesamt").Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
If Sheets(i).Name strTab Then
If Sheets(i).Name strTab2 Then
If Sheets(i).Name strTab3 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).Cells(Rows.Count, 1).End(xlUp). _
_
Offset(1, 0)
k = k + Spa
End If
End If
End If
Next i
Application.ScreenUpdating = True
Sheets("Uebersicht").Select
End Sub