AW: Tabelle in versch. Tabellen verteilen
27.01.2023 11:47:33
Beverly
Hi Marco,
versuche es mal so:
Sub Aufteilen()
Dim lngZeile As Long
Dim lngLetzte As Long
Dim strBlatt As String
With Worksheets("Einfügen")
lngLetzte = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For lngZeile = 1 To 16
strBlatt = Worksheets("Ressourcen").Cells(lngZeile, 1)
With .Range("A1:K1").CurrentRegion
.AutoFilter field:=11, Criteria1:=Worksheets("Ressourcen").Cells(lngZeile, 1)
If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
.Range(.Cells(2, 1), .Cells(lngLetzte, 11)).SpecialCells(xlCellTypeVisible).Copy Worksheets(strBlatt).Range("A2")
End If
End With
Next lngZeile
.Range("A1:K1").CurrentRegion.AutoFilter
End With
End Sub
Ich bin davon ausgegangen, dass auch tatsächlich alle Tabellenblätter vorhanden sind, die in Tabelle "Ressourcen" aufgelistet sind.
Bis später
Karin