Code flexibler gestalten
07.03.2023 09:35:20
Sebi
wir benutzen seit einen Jahr diesen Code.
Er kopiert alle Daten mit beginn vom Tabellenblatt TH in das Tabellenblatt ALLE Daten.
Leider vergessen einige Mitarbeiter immer das TH vorne mit zu schreiben.
Kann man diesen Code ändern, das er Tabelle1 ( Daten) und Tabelle2 ( Tage ) und Tabelle 9 (ALLE Daten) ignorriet und alle Blätter sonst einfügt
Sub zusammenfassung()
Dim wsZiel As Worksheet
Dim intINDEX As Long
Set wsZiel = Worksheets("ALLE Daten")
For intINDEX = 1 To Worksheets.Count
With Worksheets(intINDEX)
If UCase(Left(.Name, 2)) = "TH" Then
.Range(.Cells(3, 1), .Cells(.Rows.Count, 7).End(xlUp)).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
End If
Application.CutCopyMode = False
End With
Next
End Sub
Ich wünsch euch allen noch einen schönen Tag und Danke