Thema Datum  Von Nutzer Rating
Antwort
Rot Probleme mit der If Anweisung
26.08.2016 12:21:47 Dideldadeldudelda
NotSolved
26.08.2016 17:40:46 Holger
NotSolved
28.08.2016 14:41:52 Dideldadeldudelda
NotSolved
28.08.2016 18:02:20 Gast88230
NotSolved

Ansicht des Beitrags:
Von:
Dideldadeldudelda
Datum:
26.08.2016 12:21:47
Views:
1150
Rating: Antwort:
  Ja
Thema:
Probleme mit der If Anweisung
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
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Probleme mit der If Anweisung
26.08.2016 12:21:47 Dideldadeldudelda
NotSolved
26.08.2016 17:40:46 Holger
NotSolved
28.08.2016 14:41:52 Dideldadeldudelda
NotSolved
28.08.2016 18:02:20 Gast88230
NotSolved