Registriert seit: 26.09.2022
Version(en): 2019
Hi,
noch ein tipp: Benutze nicht + als Operator zum Verketten sondern &. Im Zweifel hast du sonst unerwünschte Zwischenergebnisse.
Viele Grüße
derHöpp
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 29.09.2015
Version(en): 2030,5
13.12.2022, 11:18
(Dieser Beitrag wurde zuletzt bearbeitet: 13.12.2022, 11:21 von 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