[Ger_17]

Hallo Leute!

Ich hab ein kleines Problem mit diesem Code:

Sub Schaltfläche6_Klicken()
  Dim i As Integer
  Dim sPfad As String
  Dim fso, Ordnername
  Set fso = CreateObject("Scripting.FileSystemObject")
   'Prüfen ob Ordner 'daten' existiert. Wenn nicht, neu anlegen
  If Len(Dir("c:\Firma", vbDirectory)) = 0 Then MkDir "c:\Firma"
  For i = 3 To 1000
    sPfad = Cells(i, 7).Value & " " & Cells(i, 6).Value
    Ordnername = Cells(i, 7).Value & " " & Cells(i, 6).Value
    If (fso.FolderExists(Ordnername)) = False Then
    MkDir ("c:\Firma\" & sPfad)
    Else
    On Error Resume Next
End If
Next
End Sub

Zuerst soll geprüft werden ob es den Ordner C:\Firma gibt, wenn ja weiter, sonst anlegen und dann soll er prüfen ob die Ordner (Spalte 6 und 7 sind Nachname und Vorname) der jeweiligen Kunden schon angelegt worden sind. Wenn ja weiter, sonst anlegen.

Jetzt gibt es den Ordner schon dennoch springt mit Excel in die Zeile

MkDir ("c:\Firma\" & sPfad)

ich versteh nicht warum.

Bitte um Unterstützung.
Danke!