ich steh mit meinem nicht vorhandenen VBA Wissen leider doch mehr auf dem Schlauch, als ich es dachte. Und entweder bin ich nicht talentiert im Suchen, oder es hat tatsächlich noch niemand diese Abfrage/Logik geschrieben.
Ich möchte eine Arbeitsmappe erzeugen, die ein Tabellenblatt (Vorlage) hat, auf dem bestimmte projektbezogene Einträge vorkommen.
Dazu soll es ein Blatt (Übersicht) geben, auf dem später bestimmte Inhalte der einzelnen Tabellenblätter zusammengetragen werden.
Die (später hinzukommenden) Tabellenblätter beinhalten Projektdaten.
Das Vorlageblatt beinhaltet
- Projektbezeichnung(Z2S1), die in Z2S2 durch VBA eingetragen wird
- Anlagedatum (Z3S1), soll in Z3S2 durch VBA eingetragen werden (klappt aber nicht)
- Projektfortschritt (Z4S1), der aus dem Blatt später in Z4S2 berechnet wird
Bisher klappt:
Auf "Übersicht" habe ich einen Button eingefügt, der das Makro "neuesTabellenblatt" startet:
Sub NeuesTabellenblatt()
Dim NewName as String
Dim i as integer
Worksheets("Vorlage").Copy after:=ActiveSheet
Newname=Inputbox("Geben Sie eine Projektbezeichnung ein")
ActiveSheet.Name=NewName
Worksheets(NewName).Range("B3")=Date$
End Sub
Des Weiteren klappt auch, dass die vorhandenen Arbeitsblattnamen auf dem Blatt Übersicht gelistet werden.
Hierzu nutze ich
Private Sub Workbook_SheetActivate(ByVal Sh as Object)
If ActiveSheet.Name="Übersicht" Then
Dim x as Double
Dim i as Double
x=5
For i=3 to Sheets.Count
Cells(x,2)=Sheets(i).Name
x=x+1
Next i
End If
End Sub
Nun werden neue Tabellenblätter rechts von Übersicht eingefügt und schieben existierende Blätter weiter nach rechts. Das ist ok. DIe Blätter werden umbenannt nach Inputbox, auch ok. Auf den neuen Blättern wird in die gewünschte Zelle das Anlagedatum eingetragen, auch ok.
Auf dem Blatt Übersicht werden nun ab Zeile 5 die Blattnamen eingetragen. Jeder neue schiebt die Liste eins weiter nach unten, auch ok.
Jetzt habe ich leider zu wenig Ahnung, damit ich in Spalte 3 in der Zeile passend zu dem Blattnamen das Anlagedatum aus dem Blatt Z3S2 bekomme.
Kann mir hier jemand helfen?
Lieben Gruß
Henrik