[Ger_17]

danke, ja hat gestimmt ... ein kollege hat mir zeitgleich den Fehler gezeigt

hier ist der richtige 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"
    Else
    'do nothing
    End If
        For i = 3 To 1000
            sPfad = Cells(i, 7).Value & " " & Cells(i, 6).Value
            Ordnername = Cells(i, 7).Value & " " & Cells(i, 6).Value
                If sPfad = "" Then
                Else
                    If (fso.FolderExists("C:\Firma\" & Ordnername)) = False Then
                        MkDir ("C:\Firma\" & sPfad)
                    Else
                        On Error Resume Next
                    End If
                End If
    Next
    End Sub

*closed*