Konsolidieren nur wenn tbl_
28.07.2019 12:12:20
Peter
Mit dem unten stehenden Script (das ich im Netz gefunden habe), werden die Werte aller Tabellen zusammengeführt. Nun möchte ich jedoch, dass nur die Tabellen zusammengeführt werden, die mit der Register-/ Tabellenbezeichnung "tbl_" anfangen.
Leider habe ich es nicht geschafft das Script entsprechend anzupassen, wie müsste eine Anpassung aussehen?
Sub Zusammenfuehren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
For i = 2 To Worksheets.Count
With Worksheets(i).UsedRange
strLC = .Cells(.Rows.Count, .Columns.Count).Address
Set Bereich = .Range("A4:" & strLC)
Bereich.Copy Destination:= _
Sheets("Konsolidierung").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
Next i
End Sub
Viele Grüsse,
Peter