Per Button: Teile eines Arbeitsblattes als neues Arbeitsblatt speichern?

[AranankA]

Moin, moin.

Ich habe ein Arbeitsblatt "Zeiterfassung". Dieses ist dynamisch gehalten. Am Ende eines Monats möchte ich per Button (also quasi auf Knopfdruck) einen festen Bereich dieses Blattes (immer A1:G40) als neues Arbeitsblatt abspeichern. Und zwar nur die Zellinhalte ohne Formeln, als reine Datensammlung!

Faktisch: "Speichere mir die Inhalte von Range A1:G40 des aktiven Blattes ohne die Formeln als neues Arbeitsblatt, und nimm den Inhalt von B7 als Blattname!"

Ist das umsetzbar?

Danke!

 

[buerzel]

https://support.office.com/de-de/ar...eichnung-974ef220-f716-4e01-b015-3ea70e64937b

 

[AranankA]

@buerzel: Danke für die Antwort, aber das hilft mir gar nichts! Wie ich schon in meiner Anfrage schrieb: "ohne Formeln & Zellinhalt von B7 als Blattname". Beides ist per Makro nicht umsetzbar.

 

[buerzel]

Beides ist per Makro nicht umsetzbar.

Das Anlegen eines neuen Blatts und Kopieren ohne Formeln geht sehr wohl mit Makro umzusetzen (Inhalte einfügen → Werte und Zahlenformate). Das Einzige problematische ist die Umbenennung des Blatts. Sollte aber in VBA einfach umsetzbar sein.

 

[buerzel]

Hier der fertige VBA-Code für dein Vorhaben ...

Sub Probe()
    Range("A1:G40").Select
    Selection.Copy
    Sheets.Add
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= xlNone, SkipBlanks:=False, Transpose:=False
    Range("B7").Select
    ActiveSheet.Name = ActiveCell.FormulaR1C1
End Sub

 

[blunderbore]

Wir stellen fest: buerzel hat Recht !

 

[dojus]

Einen dicken Daumen hoch für "buerzel".
Das Forum ohne Dich - nicht denkbar!

 

[AranankA]

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:

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

Klappt auch einwandfrei... ...mit einer winzigen Einschränkung: nach dem Kopiervorgang habe ich, zusätzlich zu den 3 vorhandenen, 3 leere Tabellen zusätzlich.

P.S.: Ich korrigiere: Klappt auch einwandfrei... ...mit einer winzigen Einschränkung: nach jedem Kopiervorgang habe ich, zusätzlich zu den vorhandenen Tabellen, Anzahl vorhandene Tabellen - 1 leere Tabellen mit vorlaufender Nummerierung ("Tabelle 123", "Tabelle 124", usw.) zusätzlich.

 

[buerzel]

nach dem Kopiervorgang habe ich, zusätzlich zu den 3 vorhandenen, 3 leere Tabellen zusätzlich.

Sehr eleganter Code, den du da produziert hast ... Ja - du erzeugst in deinem If ... Else in beiden Fällen ein neues Arbeitsblatt - also egal ob If oder Else.
Bei mir war's keine große Mühe. Der Code wurde bis auf die letzte Zeile, die von mir ergänzt wurde, vom Makro produziert (wie bereits oben erwähnt).

PS: Überhaupt erscheint mir die Schleife nicht sehr sinnvoll.

 

[AranankA]

Sehr eleganter Code, den du da produziert hast ...

Na ja... ...nach 13 Jahren VBA Abstinenz... ...meine Baustellen reichen mir eigentlich.

PS: Überhaupt erscheint mir die Schleife nicht sehr sinnvoll.

Wenn es das Tabellenblatt schon gibt, mault mir Excel rum (Laufzeitfehler 1004 - Name wird bereits verwendet). Also muß ich prüfen und bei Bedarf vorher löschen.

Ich schau mir das morgen nochmal an.

 

[buerzel]

.nach 13 Jahren VBA Abstinenz...

Ist bei mir schon länger her.