Thema Datum  Von Nutzer Rating
Antwort
27.09.2019 14:17:03 Sascha
NotSolved
27.09.2019 14:19:04 Sascha
NotSolved
Rot Zellen verknüpfen und in eine Zeile hintereinander schreiben
 27.09.2019 22:40:58 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
27.09.2019 22:40:58		 Views:
484		 Rating:
     
Antwort:
  Ja
Thema:
Zellen verknüpfen und in eine Zeile hintereinander schreiben

Hallo Sascha,

wo ist Auto2 grün? Müsste das nicht eigentlich bei E1 zu finden sein? Und stehen die Farben nun in Spalte B oder Spalte C?

Versuchs mal mit diesem Code:

Sub Autofarben()

 Set Autos = Range("A4:A17")
 Set Farben = Range("B4:B7")
 
 For Each auto In Autos
   For Each farbe In Farben
     spalten = spalten + 1
     Cells(1, spalten) = auto & " " & farbe
     p = InStrRev(Cells(1, spalten), " ")
     Cells(1, spalten).Characters(p + 1, Len(farbe)).Font.Color = farbe.Font.Color
   Next farbe
 Next auto

End Sub

Gruß Mr. K.

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
27.09.2019 14:17:03 Sascha
NotSolved
27.09.2019 14:19:04 Sascha
NotSolved
Rot Zellen verknüpfen und in eine Zeile hintereinander schreiben
 27.09.2019 22:40:58 xlKing
NotSolved