Hallo zusammen,
dies wird mein erster Post, vorige Probleme konnte ich bisher anhand anderer Posts lösen. Dafür schon mal vielen Dank.
So nun zu meinem Problem:
Sub test()
Dim wrdApp As Object
Dim infopflicht As Object
Dim nutzungsvertrag As Object
Dim maske As Object
Dim datenbank As Object
Dim projektname As String
Dim pfad As String
Dim vorname As String
Dim nachname As String
Dim namevorname As String
Dim namevorname1 As String
Dim str_suche As String
Set maske = ThisWorkbook.Worksheets("Maske")
Set datenbank = ThisWorkbook.Worksheets("Datenbank")
vorname = maske.Range("E11").Value
nachname = maske.Range("E12").Value
projektname = maske.Range("E1").Value
namevorname = nachname & "_" & vorname
pfad = "S:\Praktikanten\" & projektname & "\Standorte\" & namevorname
str_suche = Dir(pfad, vbDirectory)
If str_suche = namevorname Then
a = MsgBox("Verzeichnis existiert bereits. Dateien überschreiben?", vbYesNo)
If a = vbNo Then
Exit Sub
Else
GoTo Sprungmarke
End If
Else
a = MsgBox("Verzeichnis existiert nicht, Verzeichnis anlegen?", vbYesNo)
If a = vbNo Then
Exit Sub
Else
MkDir pfad
End If
End If
Sprungmarke:
Das ist der Code den ich geschrieben habe. Dabei soll überprüft werden ob ein Verzeichnis existiert und falls es dies nicht tut, soll es angelegt werden. Dabei suche ich ob der Ordner (name_vorname) existiert und vergleiche ihn mit dem Wert aus der Eingabemaske für den Kunden (name_vorname, aber zusammengesetzt aus 2 Zellen, eben Nachname und Vorname). Dies funktioniert leider nicht, also das zusammensetzen der beiden Strings "Mustermann" und "Max" aus 2 Zellen. Gebe ich den Namen im Code explizit vor durch namevorname = "Mustermann_Max" funktioniert die If-Schleife. Ansonsten leider nicht. Habe es mir auch schon mit Msgbox ausgeben lassen und jeweils das gleiche für str_suche und namevorname erhalten. Trotzdem funktioniert die Schleife nicht.
PS: Sorry für das unsystematische zusammenfassen