Herbers Excel/VBA-Archiv

Makro Erweiterung

• Makro Erweiterung von walter mb vom 15.09.2014 13:41:34
• AW: Makro Erweiterung - von Rudi Maintaire am 15.09.2014 13:54:25
  • AW: Makro Erweiterung - von Walter mb am 15.09.2014 21:11:08
  • DANKE Rudi perfekt !!! -) - von walter mb am 16.09.2014 09:27:08

Betrifft: Makro Erweiterung von: walter mb
Geschrieben am: 15.09.2014 13:41:34

Hallo zusammen,
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

Betrifft: AW: Makro Erweiterung von: Rudi Maintaire
Geschrieben am: 15.09.2014 13:54:25

Hallo,
ChDir "c:\_Kunde\__Dokumente.Haushalt\Rechnungen geprüft\2014\" & format([A1],"00 ") & monthname([A1]) &"\"

Gruß
Rudi

Betrifft: AW: Makro Erweiterung von: Walter mb
Geschrieben am: 15.09.2014 21:11:08

Guten Abend Rudi,
werde erst morgen Früh testen können, sag Bescheid.
Schönen Abend noch,
Gruß Walter

Betrifft: DANKE Rudi perfekt !!! -) von: walter mb
Geschrieben am: 16.09.2014 09:27:08

Guten Morgen Rudi,
danke läuft.
mfg
walter mb