Dim wks As Excel.Worksheet
For Each wks In ThisWorkbook.Worksheets
If StrComp(Left$(wks.Name, 7), "Tabelle", vbTextCompare) = 0 Then
If IsNumeric(Mid$(wks.Name, 8)) Then
Exit For
End If
End If
Next
If wks Is Nothing Then
Exit Sub
End If
Call wks.Range("I2:K7").Copy
Set wkb = Workbooks.Open("C:\Übergabebeleg.xls")
Call wkb.Worksheets(1).Range("A26").Paste
Application.CutCopyMode = False
Die For-Schleife geht alle Blätter der Reihe nach durch und prüft, ob der Name mit "Tabelle" anfängt und danach ein Ausdruck folgt, der sich als Zahl auswerten lässt - es liefert also das erste Tabellenblatt, welches diesen zwei Kriterien entspricht.
Dann wird der Bereich I2:K7 aus jener Tabelle wks kopiert,
dann wird eine Mappe wkb geöffnet,
und in der Mappe, auf dem ersten Tabellenblatt wkb.Worksheets(1), wird der zuvor kopierte Bereich schlussendlich bei A26 beginnend eingefügt.
|