Deine Else-Anweisungen werden immer durchlaufen, wenn der Vergleich nicht stimmt, also fast immer. Fange hinten an!
If Mitarbeiter1 <> "" & Mitarbeiter2 <> "" & Mitarbeiter3 <> "" & Mitarbeiter4 <> "" & Mitarbeiter5 <> "" Then
Range( "L4" ) = "Name:" & " " & Mitarbeiter1 & " " & "/" & " " & Mitarbeiter2 & " " & "/" & " " & Mitarbeiter3 & "/" & " " & Mitarbeiter4 & "/" & " " & Mitarbeiter5
end if
If Mitarbeiter1 <> "" & Mitarbeiter2 <> "" & Mitarbeiter3 <> "" & Mitarbeiter4 <> "" Then
Range( "L4" ) = "Name:" & " " & Mitarbeiter1 & " " & "/" & " " & Mitarbeiter2 & " " & "/" & " " & Mitarbeiter3 & " " & "/" & " " & Mitarbeiter4
end if
...
Es ginge natürlich einfacher. Ich wollte aber deine Logik nicht ändern.
Gruß
Holger
cells(4,12)="Name: "
a=""
if mitarbeiter1<>"" then cells(4,12) & mitarbeiter1:a=" / "
if mitarbeiter2<>"" then cells(4,12) & a & mitarbeiter2:a=" / "
if mitarbeiter3<>"" then cells(4,12) & a & mitarbeiter3:a=" / "
...
Dieses Makro sollte auch dann die Strichte richtig setzen, wenn erst Mitarbeiter mit höherer Zahl als 1 vorhanden sind. Ich habe es aber nicht getestet.
|