Neues Blatt automatisch anlegen und ausfüllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Philipp,
also im Moment ist nur verständlich das Du gerne wenn in Spalte A ein Wert eingetragen wird ein neues Tabellenblatt erstellt werden soll.
Das ist verständlich!
Was nicht verständlich ist, ist wie genau das neu erstellte Tabellenblatt aussehen soll.
In Deiner hier reingestellten Mappe gibt es Tabellen mit dem Namen Test, muster, schön und jetzt.
Welches soll den nun die Vorlage sein anhand der das neue Blatt erstellt werden soll?
DU schreibst hier von Zelle A33, ist in diesem Zusammenhang "Monatlich Deine Bezeichnung der Zelle.
Oder soll in der neuen Tabelle A33 - B33 sein?
Ist die Zelle B33 das Ergebnis von =SUMME(B4:B31)?
Und was ist usw.?
Du musst schon genau beschreiben was Du vorhast.
Gruß
Stefan
PS: Ein Guten Tag und Auf Wiedersehen ist hier willkommen

Sub neuerEintrag() Dim iLZ As Integer Dim strName As String iLZ = Cells(Cells.Rows.Count, 1).End(xlUp).Row 'bestimmt die letzte Zeile (also letzten Eintrag) _ Sheets("Gesamt").Select strName = Application.InputBox("Geben Sie den neuen Namen ein") Cells(iLZ + 1, 1).Value = strName 'Sheets.Add After:=Sheets(1) 'Alternativ nächste Zeile um gleiches Layout wie im Reiter test zu haben (einfach ' wegnehmen) _ und ' vor dem vorherigen Eintrag Sheets("test").Copy After:=Sheets(1) Sheets(2).Name = strName Sheets("Gesamt").Select Cells(iLZ + 1, 2).FormulaR1C1 = "=" & strName & "!R[26]C" Cells(iLZ + 1, 3).FormulaR1C1 = "=" & strName & "!R[34]C3" Cells(iLZ + 1, 4).FormulaR1C1 = "=" & strName & "!R[36]C2" Cells(iLZ + 1, 5).FormulaR1C1 = "=COUNTA(" & strName & "!R[-4]C[-4]:R[25]C[-4])" Cells(iLZ + 1, 6).FormulaR1C1 = "=COUNTA(" & strName & "!R[-2]C[-1]:R[27]C[-1])" Cells(iLZ + 1, 7).FormulaR1C1 = "=12" Cells(iLZ + 1, 9).FormulaR1C1 = "=DATE(YEAR(RC[-1]),MONTH(RC[-1])+RC[-2],DAY(RC[-1]))" Cells(iLZ + 1, 10).FormulaR1C1 = "=IF(RC[-2]+(RC[-3]*30)

Hat sich mittlerweile erledigt.

Sub neuerEintrag()
Dim iLZ As Integer
Dim strName As String
iLZ = Cells(Cells.Rows.Count, 1).End(xlUp).Row 'bestimmt die letzte Zeile (also letzten Eintrag) _
Sheets("Gesamt").Select
strName = Application.InputBox("Geben Sie den neuen Namen ein")
Cells(iLZ + 1, 1).Value = strName
'Sheets.Add After:=Sheets(1)
'Alternativ nächste Zeile um gleiches Layout wie im Reiter test zu haben (einfach ' wegnehmen)  _
und ' vor dem vorherigen Eintrag
Sheets("test").Copy After:=Sheets(1)
Sheets(2).Name = strName
Sheets("Gesamt").Select
Cells(iLZ + 1, 2).FormulaR1C1 = "=" & strName & "!R[26]C"
Cells(iLZ + 1, 3).FormulaR1C1 = "=" & strName & "!R[34]C3"
Cells(iLZ + 1, 4).FormulaR1C1 = "=" & strName & "!R[36]C2"
Cells(iLZ + 1, 5).FormulaR1C1 = "=COUNTA(" & strName & "!R[-4]C[-4]:R[25]C[-4])"
Cells(iLZ + 1, 6).FormulaR1C1 = "=COUNTA(" & strName & "!R[-2]C[-1]:R[27]C[-1])"
Cells(iLZ + 1, 7).FormulaR1C1 = "=12"
Cells(iLZ + 1, 9).FormulaR1C1 = "=DATE(YEAR(RC[-1]),MONTH(RC[-1])+RC[-2],DAY(RC[-1]))"
Cells(iLZ + 1, 10).FormulaR1C1 = "=IF(RC[-2]+(RC[-3]*30)

Das ganze legt mann auf einen Button und schon geht es

Beliebteste Forumthreads (12 Monate)

Neues Blatt automatisch anlegen und ausfüllen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Neues Blatt automatisch anlegen und ausfüllen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread