Kann mir jemand einen Hinweis geben für die folgende Problemstellung? In meiner Datei habe ich pro Monat (Januar, Februar ... Dezember) ein Sheet. Zusätzlich gibt es in derselben Datei das Sheet "Administration". Dort ist ein Tabellenbereich definiert, welcher in der 1. Spalte die Namen der Monate enthält, in der 2. Spalte die Jahreszeiten.
Nun möchte ich die zur jeweiligen Jahreszeit zugehörigen Sheets in eine eigene Datei kopieren.
Sub Test()
Dim myJahreszeiten() As Variant
Dim myFruehling() As Variant
Dim mySommer() As Variant
Dim myHerbst() As Variant
Dim myWinter() As Variant
myJahreszeiten() = Worksheets("Administration").Range("tb_Jahreszeiten").Value
For i = 1 To Worksheets.Count
If Worksheets(i).Name = myJahreszeiten(i, 1) Then
'zugehörigen Wert in myJahreszeiten(i, 2) holen
'Case 1: myJahreszeiten(i, 2)= "Frühling" -> Sheet in das Array für Frühling
'Case 2: myJahreszeiten(i, 2)= "Sommer" -> Sheet in das Array für Sommer
'Case 3: myJahreszeiten(i, 2)= "Herbst" -> Sheet in das Array für Herbst
'Case 4: myJahreszeiten(i, 2)= "Winter" -> Sheet in das Array für Winter
End If
Next i
' Zum Schluss die Tabellenblätter des jeweiligen Array
' in eine neue Datei schreiben
End Sub
Wie müsste ich das nun anstellen? Danke bestens für die Unterstützung.