AW: Namensliste als Ordner ausgeben
09.08.2007 15:19:38
jojo
Hallo rudi,
danke für deine Antwort. Leider habe ich vorher noch nie mit vba gearbeitet und es klappt leider noch nicht dein modul zum laufen zu bekommen. Ich schreib mal kurz auf wie ich es gemacht habe, vielleicht mach ich ja grundsätzlich etwas falsch:
Mein Dokument hat mehrer Tabellen. Die betreffende Tabelle heißt "GT-M1 06" cih öffne den VBA-Editor
und da steht schon folgendes :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Da ich annehme, dass es sich um ein anderes Modul handelt, wähle >Einfügen>Neues Modul und paste den angepassten Code in die erste Zeile:
Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal Pfad As String) As Long
Sub Pfad_anlegen()
Dim i As Integer
For i = 7 To 24
With Sheets("GT-M1 06")
MakeSureDirectoryPathExists "D:\Daten\06_GTM1b\" & .Cells(i, 3) & "_" & .Cells(i, 4)
End With
Next i
End Sub
Dann drücke ich den play Button und nichts passiert... Der Ordner D:\Daten\06_GTM1b ist schon angelegt
Wenn ich mir den Code übersetze, lese ich ihn verständnismäßig so:
Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal Pfad As String) As Long
irgendeine Funktion der dll datei wird genutzt und unter dem Namen "MakeSureDirectoryPathExists" zu Verfügung gestellt
Sub Pfad_anlegen()
Dim i As Integer
For i = 7 To 24 ...in Zeile 7 bis 24...
With Sheets("GT-M1 06") ...der Tabelle "GT-M1 06"
MakeSureDirectoryPathExists "D:\Daten\06_GTM1b\" & .Cells(i, 3) & "_" & .Cells(i, 4)
...checke ob Pfad in "D:\Daten\06_GTM1b\", wenn nicht dann anlegen mit daten aus Spalte 3 und Spalte 4
End With
Next i ....wiederholen mit allen Zeilen; range 7-24...
End Sub