hab schon mein nächstes Problem.
Ich habe eine Excel Arbeitsmappe von der aus über eine Vorlage durch Kopieren immer neue Tabellenblätter erstellt werden - für jedes Projekt ein neues Arbeitsblatt (die blätter heißen so wie das jeweilige projekt sprich eine ziffernfolge). Desweiteren habe ich zusätzlich einige weitere Arbeitsblätter für die jeweiligen Abteilungen in die ich eine Liste der aktuellen Projekte - also eine Liste der aktuellen Tabellenblätter - einlesen möchte.
Mein erster Gedanke war, das ganze durch einen CommandButton auf dem jeweiligen Blatt der Abteilung zu machen mit folgendem Code:
Private Sub CommandButton1_Click()
Dim i As Integer
i = 9
For Each sh In ThisWorkbook.Worksheets
i = i + 1
Cells(i, 2) = sh.Name
End If
Next sh
End Sub
Beginne also ab Zelle B10 die Tabellennamen einzufügen - was soweit ja auch klappt.
Problem 1 ist, dass eben die Namen aller Blätter eingelesn werden - ich möchte aber nur die Blätter deren Name einen Ziffernfolge ist. Geht vermutlich mit regulären Ausdrücken am besten, aber davon hab ich nicht die mindeste Ahnung. Problem 2 bei der Lösung ist, dass ich dies für jede Abteilung einzeln machen müsste (zumindest auf dem jeweiligen Blatt immer klicken) was nicht weiter schlimm aber vlt etwas umständlicher ist.
Optimal wäre es wenn bei dieser "Abfrage" in die Spalte C direkt noch ein bestimmter wert aus der Zelle B4 (aus den "Projekttabellenblätern - deren namen in B stehen) eingefügt wird.
Vielen Dank im Vorraus
Grüße