Ordner & Speichern

[derHoepp]

Hi,

noch ein tipp: Benutze nicht + als Operator zum Verketten sondern &. Im Zweifel hast du sonst unerwünschte Zwischenergebnisse.

Viele Grüße
derHöpp

[schauan]

Hallöchen,

Manch einer brauchts ...

Code:

Sub test()
Dim a As String, b
a = "a"
b = 2
On Error GoTo errorhandler
Debug.Print a + b
Debug.Print a & b
Exit Sub
errorhandler:
MsgBox "Fehler: " & Err.Number & vblf & Err.Description
b = "2"
Resume
End Sub

[snb]

Man könnte auch da Konzept verbessern:
Speichere die Dateien in nur einem Directory; das Unterschied beruht dann nur in der Name der Datei. (und das reicht).
Wie einfacher das Konzept, desto einfacher der Code:

Code:

Sub M_snb()
  thisworkbook.exportasfixedformat 0, Tabelle1.cells(1,1) & "_" & rabelle1.cells(2,1)
End Sub

Denn, was spricht gegen die Verwendung von das Defaultfilepath ?

Code:

Sub M_snb()
   MsgBox Application.DefaultFilePath
End Sub