Tabellenblattname aus excelzelle holen
12.03.2021 15:07:52
Torsten
Ich habe das Problem das ich verschiedene Tabellenblätter mittels Dropdown auswählen möchte.
Im Code unten Steht "With" und dann das Blatt "Sheets("project 2)". Wie bekomme ich es hin, das _ er sich die das Tabellenblatt aus Zelle zbsp. D7 holt? Der Rest funktioniert.
Sub Einfügen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Sheets("project 2)
Range(Rows(20), Rows(Rows.Count)).Delete
ZeileMax = .UsedRange.Rows.Count
n = 20
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 9).Value = Range("D6") Then
.Rows(Zeile).Copy Destination:=Tabelle14.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
Anzeige