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

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

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 StringAs 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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige