Code ändern
16.12.2015 09:06:35
Thomas
mit diesem Code werden alle KW49,KW50,KW51,KW52 in das Tabellenblatt Zusammenfassung zusammengeführt.
Sub zusammenfassung()
Dim vntQUELLE As Variant
Dim wsZiel As Worksheet
Dim intINDEX As Integer
vntQUELLE = Array("KW49", "KW50", "KW51", "KW52")
Set wsZiel = Worksheets("Zusammenfassung")
For intINDEX = LBound(vntQUELLE) To UBound(vntQUELLE)
With Worksheets(vntQUELLE(intINDEX))
.Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 1)).Copy
If IsEmpty(wsZiel.Cells(2, 1)) Then
wsZiel.Cells(2, 1).PasteSpecial xlPasteAll
Else
wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
End If
Application.CutCopyMode = False
End With
Next
End Sub
kann man diesen Code ändern, das er einfach alle Tabellenblätter wo KW zusammenführt?
Denn manchmal gibt es keine z.B. KW50 und dann kommt fehlermeldung
Hoffe ihr könnt mir helfen.
Danke
LB Thomas