Makro Erweiterung
15.09.2014 13:41:34
walter
ich habe folgendes Makro:
Public Sub Rechnung_holen()
Dim strDatei
ChDrive "C:\"
ChDir "c:\_Kunde\__Dokumente.Haushalt\Rechnungen geprüft\2014\08 August\"
strDatei = Application.GetOpenFilename("Microsoft Excel-Dateien ,*.*")
If strDatei = False Then Exit Sub
Workbooks.Open strDatei
End Sub
Das funktioniert soweit.
Frage:
Ich möchte gern in einer Zelle Ziffer z.b. 8 eingeben, dann soll das Verzeichnis
08 August geöffnet werden oder 9 dann soll 09 September, geöffnet werden.
Geht sowas ?
mfg
walter mb
Anzeige