26.11.2019, 11:10
Hallo zusammen,
ich versuche nun schon verzweifelt seit Stunden den Fehler zu finden. Ich möchte, dass mein VBA Code anhand der Zellbezeichnungen in Spalte A und Spalte B entsprechend im gleichen Ordner, in der auch die Excel liegt, entsprechende Ordner für jede Zeile anlegt.
Der Witz ist, beim ersten Test hat es funktioniert, dann wollte ich einen Button einbauen der das Makro auslöst, testete es erneut und es geht nicht mehr. Ich finde einfach nicht mehr den Fehler, hab die Datei schon hin und her kopiert bringt alles nichts. Vielleicht findet ja ihr den Fehler? Hier der Code:
Vielen Dank!
LG Benjamin
ich versuche nun schon verzweifelt seit Stunden den Fehler zu finden. Ich möchte, dass mein VBA Code anhand der Zellbezeichnungen in Spalte A und Spalte B entsprechend im gleichen Ordner, in der auch die Excel liegt, entsprechende Ordner für jede Zeile anlegt.
Der Witz ist, beim ersten Test hat es funktioniert, dann wollte ich einen Button einbauen der das Makro auslöst, testete es erneut und es geht nicht mehr. Ich finde einfach nicht mehr den Fehler, hab die Datei schon hin und her kopiert bringt alles nichts. Vielleicht findet ja ihr den Fehler? Hier der Code:
Code:
Sub Kunden_Ordner()
Dim Zeile As Integer
Dim Zelle1 As Range
Dim Zelle2 As Range
Dim aPath As String
Dim LaengeA As Long
Dim Ordner As Integer
LaengeA = WorksheetFunction.CountA(Sheets(1).Range("A:A"))
Ordner = 1
For Zeile = 2 To LaengeA
Set Zelle1 = ActiveSheet.Range("A" & Zeile)
Set Zelle2 = ActiveSheet.Range("B" & Zeile)
aPath = Zelle1.Value & "-" & "0" & Ordner & "_" & Zelle2.Value
Ordner = Ordner + 1
If Dir(aPath, vbDirectory) = vbNullString Then 'Prüfen ob der Ordner bereits existiert
MkDir (aPath)
End If
Next
MsgBox "Alle Ordner wurden angelegt!“"
End SubVielen Dank!
LG Benjamin
