Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatisch speichern

Forumthread: automatisch speichern

automatisch speichern
07.11.2005 09:02:08
otto
Hi,
ich verfasse Anschreiben an verschiedene Kunden. In Zelle B23 steht immer der Firmenname.
Per Klick speichere ich die Anschreiben in meinenm Ordner "Anschreiben". Dann verschiebe
ich sie in den jeweiligen Kundenordner.
Angenommen der Kunde heißt ABC Elektronik, kann dann das Anschreiben nicht gleich in den
Ordner ABC Elektronik gespeichert werden, bzw. wenn dieser noch nicht vorhanden ist auf Grund
des Zellinhaltes B23 erstellt werden?
Würde mich über funktionierenden Code freuen.
Danke in Voraus
Gruß otto
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatisch speichern
07.11.2005 09:29:42
Worti
Hallo otto,
hier eine kleine Funktion, die prüft, ob ein Ordner vorhanden ist:


      
Sub haupt()
    Dim da As Boolean
    
    da = ordnerDa("D:/DeinPfad",[b23])
    If da = False Then
       MkDir "D:/DeinPfad/" &[b23]
    End If
    'Jetzt kann gespeichert werden    

End Sub
Function ordnerDa(strpath As String, strOrdner As String) As Boolean
    
    Dim Ergebnis
     
    ordnerDa = True
     
    If Right(strpath, 1) = "/" Then
       Ergebnis = Dir(strpath & strOrdner, vbDirectory)
    Else
       Ergebnis = Dir(strpath & "/" & strOrdner, vbDirectory)
    End If
    
    If Ergebnis = "" Then
       ordnerDa = False
    End If
    
End Function
 


Gruß Worti
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige