könnt Ihr mir bei folgendem Problem helfen? Über ein Makro öffne ich für jede Vorgangsnummer mehrere, in der Benennung unterschiedliche Tabellenblätter (Vorgangsnummern). Die Tabellenblättern (Vorgangsnummer) durchsuchen das Tabellenblatt (Basisdaten) nach dem Suchbergiff "Arbeitsplätze" und übertragen die relevanten Kennzahlen in die Tabellenblätter (Vorgangsnummern) zurück.
Wie gestalte ich den Code so, das er unabhängig von der Benennung der Tabellenblätter ist?
Hier der Code in statischer Ausführung:
Arbeitsplatznummer = Sheets(Vorgangsnummer).Range("T4").Value
lastrow_1 = Worksheets("Basisdaten").Cells(Rows.Count, "A").End(xlUp).Row
Arbeitsplatznummer = Worksheets("Vorgangsnummer").Range("T4").Value
x = 4
For z = 1 To lastrow_1
If Arbeitsplatznummer = Sheets("Basisdaten").Cells(z, 3).Value Then
Sheets("Vorgangsnummer").Cells(x, 1).Value = Sheets("Basisdaten").Cells(z, 1)
Sheets("Vorgangsnummer").Cells(x, 2).Value = Sheets("Basisdaten").Cells(z, 3)
Sheets("Vorgangsnummer").Cells(x, 3).Value = Sheets("Basisdaten").Cells(z, 14)
Sheets("Vorgangsnummer").Cells(x, 4).Value = Sheets("Basisdaten").Cells(z, 15)
Sheets("Vorgangsnummer").Cells(x, 5).Value = Sheets("Basisdaten").Cells(z, 16)
Sheets("Vorgangsnummer").Cells(x, 6).Value = Sheets("Basisdaten").Cells(z, 25)
Sheets("Vorgangsnummer").Cells(x, 7).Value = Sheets("Basisdaten").Cells(z, 11)
Sheets("Vorgangsnummer").Cells(x, 8).Value = Sheets("Basisdaten").Cells(z, 12)
Sheets("Vorgangsnummer").Cells(x, 9).Value = Sheets("Basisdaten").Cells(z, 13)
x = x + 1
End If
Next z
Application.ScreenUpdating = True
End Sub
Vielen Dank für eure Hilfe!