VBA variabilisierter Arbeitsblattname ansprechen
11.12.2014 15:02:33
Lisa
Ich bin schon kurz vor der Verzweiflung eines wahrscheinlich recht simplen Problems:
Ich hab bisher hinbekommen, dass, wenn das Datum Tag =1 ist, dass es ein neues Arbeitsblatt erstellt und es nach den neuen Monat erstellt.
allerdings hänge ich jett daran, das Blatt anzusprechen, das den Monat enthält.
Also die Arbeitsblätter sind wie schon erwähnt nach Monaten benannt.
(Januar - Dezember)
nun lese ich aus einer anderen Datei ein Datum aus, z.B. 11.12.2014.
Ich will nun natürlich das Arbeitsblatt "Dezember" ansprechen und dort etwas eintragen.
Allerdings weiß ich nicht, wie ich ein Arbeitsblatt variabilisiert ansprechen kann.
Es müsste so ähnlich gehen:
Dim Prognosedatei As Workbook
Dim Ablagedatei As Workbook
Dim Datum As Date
Dim Tag As Variant
Dim Monat As Variant
Dim Jahr As Variant
Dim NeuesBlatt As Worksheet
Set Prognosedatei = ActiveWorkbook
Datum = ThisWorkbook.Sheets("Prog_Master").Range("A1")
Tag = Day(ThisWorkbook.Sheets("Prog_Master").Range("A1"))
Monat = Month(ThisWorkbook.Sheets("Prog_Master").Range("A1"))
Jahr = Year(ThisWorkbook.Sheets("Prog_Master").Range("A1"))
Windows("Prognoseablage_Test.xlsx").Activate
Set Ablagedatei = ActiveWorkbook
'hier wird ein neues Arbeitsblatt erstellt, wenn Tag = 1
If Day(Datum) = 1 Then
Sheets.Add After:=Sheets(Sheets.Count)
Set NeuesBlatt = ActiveSheet
NeuesBlatt.Name = Format(Datum, "mmmm")
Else
'falls Tag nicht = 1, dann soll das richtige Monatsblatt aktiviert werden
Sheets(Monat).Activate Format(Monat, "MMMM")
es scheitert in der letzten Zeile :/
ich bin über jeden Tipp dankbar...