Auf Thema antworten 2026

Beitrag

<blockquote data-quote="AranankA" data-source="post: 2678293" data-attributes="member: 639133">Danke für die Mühe! Ich war auch mal aktiv und hatte durch den Makro Tipp motiviert (unabhängig von der Anfrage hier), probiert wie weit ich komme:[code]Option ExplicitSub arbeitsblatt_erstellen()Dim strName As StringDim wsNew As ObjectstrName = Sheets(&quot;Zeiterfassung&quot;).Range(&quot;B7&quot;).ValueOn Error Resume Next&nbsp; &nbsp; Application.ScreenUpdating = False&nbsp; &nbsp;&nbsp; &#039; Prüfung, ob Arbeitsblatt schon vorhanden ist.&nbsp; &nbsp;&nbsp; &#039; Wenn ja: löschen und neu erstellen, wenn nein; erstellen:&nbsp; &nbsp;&nbsp; For Each wsNew In ActiveWorkbook.Sheets&nbsp; &nbsp; &nbsp; &nbsp; If wsNew.Name = strName Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Sheets(wsNew.Name).Delete&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Set wsNew = Worksheets.Add&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; wsNew.Name = strName&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &#039; Neues Blatt hinten anfügen:&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Set wsNew = Worksheets.Add&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; wsNew.Name = strName&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp;&nbsp; Next wsNew&nbsp; &nbsp; &nbsp; Sheets(&quot;Zeiterfassung&quot;).Select&nbsp; &nbsp; Range(&quot;A1:G41&quot;).Select&nbsp; &nbsp; Selection.Copy&nbsp; &nbsp; Sheets(strName).Select&nbsp; &nbsp; &nbsp; &#039;Einfügen ohne Formeln, mit Formatierung:&nbsp; &nbsp; Range(&quot;A1&quot;).PasteSpecial xlPasteValuesAndNumberFormats&nbsp; &nbsp; Sheets(&quot;Zeiterfassung&quot;).Select&nbsp; &nbsp; ActiveSheet.Range(&quot;A1&quot;).Select&nbsp; &nbsp; &nbsp; &#039;Deselektieren der C&amp;P Felder:&nbsp; &nbsp; Application.CutCopyMode = False&nbsp; &nbsp; &nbsp; Application.ScreenUpdating = True&nbsp; End Sub[/code]Klappt auch einwandfrei...&nbsp;&nbsp; ...mit einer winzigen Einschränkung: nach dem Kopiervorgang habe ich, zusätzlich zu den 3 vorhandenen,&nbsp; 3 leere Tabellen zusätzlich.P.S.: Ich korrigiere: Klappt auch einwandfrei...&nbsp; ...mit einer winzigen Einschränkung: nach jedem Kopiervorgang habe ich, zusätzlich zu den&nbsp; vorhandenen Tabellen,&nbsp; Anzahl vorhandene Tabellen - 1 leere Tabellen&nbsp; mit vorlaufender Nummerierung (&quot;Tabelle 123&quot;, &quot;Tabelle 124&quot;, usw.) zusätzlich.</blockquote>

[QUOTE="AranankA, post: 2678293, member: 639133"] Danke für die Mühe! Ich war auch mal aktiv und hatte durch den Makro Tipp motiviert (unabhängig von der Anfrage hier), probiert wie weit ich komme: [code] Option Explicit Sub arbeitsblatt_erstellen() Dim strName As String Dim wsNew As Object strName = Sheets("Zeiterfassung").Range("B7").Value On Error Resume Next Application.ScreenUpdating = False ' Prüfung, ob Arbeitsblatt schon vorhanden ist. ' Wenn ja: löschen und neu erstellen, wenn nein; erstellen: For Each wsNew In ActiveWorkbook.Sheets If wsNew.Name = strName Then Sheets(wsNew.Name).Delete Set wsNew = Worksheets.Add wsNew.Name = strName ' Neues Blatt hinten anfügen: ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count) Else Set wsNew = Worksheets.Add wsNew.Name = strName ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count) End If Next wsNew Sheets("Zeiterfassung").Select Range("A1:G41").Select Selection.Copy Sheets(strName).Select 'Einfügen ohne Formeln, mit Formatierung: Range("A1").PasteSpecial xlPasteValuesAndNumberFormats Sheets("Zeiterfassung").Select ActiveSheet.Range("A1").Select 'Deselektieren der C&P Felder: Application.CutCopyMode = False Application.ScreenUpdating = True End Sub [/code] Klappt auch einwandfrei... ...mit einer winzigen Einschränkung: nach dem Kopiervorgang habe ich, zusätzlich zu den 3 vorhandenen, 3 leere Tabellen zusätzlich. [B]P.S.:[/B] Ich korrigiere: Klappt auch einwandfrei... ...mit einer winzigen Einschränkung: nach [I]jedem [/I]Kopiervorgang habe ich, zusätzlich zu den vorhandenen Tabellen, [I]Anzahl vorhandene Tabellen - 1 leere Tabellen[/I] mit vorlaufender Nummerierung ("Tabelle 123", "Tabelle 124", usw.) zusätzlich. [/QUOTE]

Bilder bitte hier hochladen und danach über das Bild-Icon (Direktlink vorher kopieren) platzieren.

Authentifizierung

Wenn ★ = 12, ◇ = 4 und die Hälfte von ★ zu ◇ addiert wird, was ist das Ergebnis?