Jeder der aufgeführten Mitarbeiter steht für ein Textfeld in dem etwas eingetragen werden soll. Ich möchte jedoch die Namen der Mitarbeiter in eine Zeile schreiben, und diese durch einen Schrägstrich abtrennen.
Mein problem ist, dass wenn ich auch nur einen Namen eintrage er die Querstriche immer hinten ran hängt. Kann mir jemand behilflich sein?
If Mitarbeiter1 <> "" Then
Range("L4") = "Name:" & " " & Mitarbeiter1
Else: Range("L4") = "Name:"
End If
If Mitarbeiter1 <> "" & Mitarbeiter2 <> "" Then
Range("L4") = "Name:" & " " & Mitarbeiter1 & " " & "/" & " " & Mitarbeiter2
Else: Range("L4") = "Name:" & " " & Mitarbeiter1
End If
If Mitarbeiter1 <> "" & Mitarbeiter2 <> "" & Mitarbeiter3 <> "" Then
Range("L4") = "Name:" & " " & Mitarbeiter1 & " " & "/" & " " & Mitarbeiter2 & " " & "/" & " " & Mitarbeiter3
Else: Range("L4") = "Name:" & " " & Mitarbeiter1 & " " & "/" & " " & Mitarbeiter2
End If
If Mitarbeiter1 <> "" & Mitarbeiter2 <> "" & Mitarbeiter3 <> "" & Mitarbeiter4 <> "" Then
Range("L4") = "Name:" & " " & Mitarbeiter1 & " " & "/" & " " & Mitarbeiter2 & " " & "/" & " " & Mitarbeiter3 & " " & "/" & " " & Mitarbeiter4
Else: Range("L4") = "Name:" & " " & Mitarbeiter1 & " " & "/" & " " & Mitarbeiter2 & " " & "/" & " " & Mitarbeiter3
End If
If Mitarbeiter1 <> "" & Mitarbeiter2 <> "" & Mitarbeiter3 <> "" & Mitarbeiter4 <> "" & Mitarbeiter5 <> "" Then
Range("L4") = "Name:" & " " & Mitarbeiter1 & " " & "/" & " " & Mitarbeiter2 & " " & "/" & " " & Mitarbeiter3 & "/" & " " & Mitarbeiter4 & "/" & " " & Mitarbeiter5
Else: Range("L4") = "Name:" & " " & Mitarbeiter1 & " " & "/" & " " & Mitarbeiter2 & " " & "/" & " " & Mitarbeiter3 & "/" & " " & Mitarbeiter4
End If
|