[VBA] Arbeitsblatt Speichern unter..

[jules]

Hi zusammen,

kann mir jemand erklären weshalb folgender Code einwandfrei funktioniert:

Code:

Sub kopieren()
On Error GoTo Fehlerbehandlung
Dim strName As String
Dim Path As String
strName = Worksheets("PickUp").Range("F1").Value
Path = ThisWorkbook.Path
Application.DisplayAlerts = False
With Worksheets("PickUp")
.Copy
.UsedRange
ActiveWorkbook.SaveAs Path & "\" & strName & " " & Format(Date, "DD-MM-YYYY") & ".xlsx", FileFormat:=xlOpenXMLWorkbook
End With
Application.DisplayAlerts = True
Fehlerbehandlung:
Exit Sub
End Sub

.. Wenn ich aber mehrere Arbeitsblätter auswähle, er die Blätter zwar kopiert, jedoch die neue Mappe nicht mehr speichert?! (und demnach auch keinen Dateinamen vergibt)

Code:

Sub kopieren()
On Error GoTo Fehlerbehandlung
Dim strName As String
Dim Path As String
strName = Worksheets("PickUp").Range("F1").Value
Path = ThisWorkbook.Path
Application.DisplayAlerts = False
With Worksheets(Array("PickUp", "Auswertung"))
.Copy
.UsedRange
'Cells.Value = Cells.Value
ActiveWorkbook.SaveAs Path & "\" & strName & " " & Format(Date, "DD-MM-YYYY") & ".xlsx", FileFormat:=xlOpenXMLWorkbook
End With
Application.DisplayAlerts = True
Fehlerbehandlung:
Exit Sub
End Sub

Im Prinzip ändere ich doch nur 'with Worksheets("PickUp")' zu 'with Worksheets(Array...'


VG

[RPP63]

Moin!
Nicht alles was "einwandfrei funktioniert", muss ja auch sinnvoll sein.  :21:
Mal ein paar Anmerkungen zum ersten Code:
Du kopierst ein einzelnes Blatt in eine neue Datei und speicherst die neue Mappe ab.

1. Warum UsedRange? Was soll Excel denn sonst speichern, vor allem: was soll das überhaupt innerhalb der With bewirken? Lasse den mal weg, dies dürfte auch den Fehler in Makro2 auslösen.
   
2. Warum schaltest Du die DisplayAlerts aus? Immerhin würde Dir dies eine Möglichkeit der Fehlersuche belassen!
   

Merke: Eine Fehlerbehandlung sowie Ausschalten der Alerts macht erst dann Sinn, wenn Du ein Makro getestet hast und alle Dir bekannten(!) Fehler ausschließen kannst!
Alerts schaltet man im Übrigen nur dann aus, wenn man bewusst(!) eine erwartete(!) Meldung nicht anzeigen will!
Als Beispiel die bekannte Meldung, wenn man ein Blatt löschen lässt.

Außerdem ist ein Exit Sub als Fehler-Sprungziel nicht gerade aussagekräftig!
(und als letzte Anweisung vor End Sub mit Verlaub Schwachsinn (netter gesagt: schlicht redundant))
Werte das Err-Objekt aus, dann weisst Du wenigstens, was schiefgelaufen ist.
Schaue Dir das zweite Code-Beispiel an:
https://www.online-excel.de/excel/singsel_vba.php?f=145

Gruß Ralf

[jules]

Guten Morgen Ralf,

vielen Dank für deine Hifle! Top!

Gruss Jules

[RPP63]

Danke!
Ich habe grad mal Code geschrieben, wie ich ihn mir vorstelle:

Sub Copy_RPP()
Dim strName$
strName = Worksheets("PickUp").Range("F1").Value

On Error GoTo WattNu
Worksheets(Array("PickUp", "Auswertung")).Copy
ActiveWorkbook.SaveAs _
  ThisWorkbook.Path & "\" & strName & " " & Format(Date, "yyyy-mm-dd"), _
    FileFormat:=51
Exit Sub

WattNu:
MsgBox "Du ging etwas schief!" & vbNewLine & _
  "Fehler Nummer: " & Err.Number & vbNewLine & _
  Err.Description
End Sub

Gruß Ralf

[Kuwer]

Hi Ralf,

Ich habe grad mal Code geschrieben, wie ich ihn mir vorstelle:

und, läuft der Code fehlerfrei durch? :17:

Gruß Uwe

[jules]

Sehr schön! Ich danke Dir!

Achso: DisplayAlert hatte ich aus, weil er mir sonst jedesmal vorher meldet, dass "die folgenden Features in Arbeitsmappen ohne Makro nicht gespeichert werden können". Da muss ich dann jedesmal auf "Ja" klicken, um die Mappe ohne Makros zu speichern.

Schalte ich die AlertMessages aus, verschwindet eben auch die Frage

[RPP63]

und, läuft der Code fehlerfrei durch?  :17:

Moin Uwe!

Bei mir ja!
Warum sollte er nicht?

Gruß Ralf

[Kuwer]

Hi Ralf,

ich hatte es gestern Abend getestet, da lief schon .Copy in den Debugger (Fehlerbehandlung ausgeschaltet). Nach einer Weile Rödeln schmierte Excel dann komplett ab. Dies war reproduzierbar. Allerdings hatte ich .Copy im With-Rahmen stehen.  

Gruß Uwe

[schauan]

Hallöchen,

bei mir läufts, auer, ich hab die Datei noch nie gespeichert. Das betrifft dann aber .Save und nicht .Copy weil in dem Fall der Pfad fehlt.