Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1888to1892
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellinhalt mit Schriftfarbe kopieren

Zellinhalt mit Schriftfarbe kopieren
11.07.2022 16:44:48
Stefan
Hallo,
ich habe eine Frage zum Thema Schriftfarbe in andere Zelle übertragen.
Es gibt in einer Tabelle sind 6 Spalten vorhanden, aus 4 davon sollen in 2 der leeren Spalten eine Kombination dieser 4 Spalten eingefügt werden.
Aufbau der Tabelle
Spalte 1: leer
Spalte 2: Werte in blauer Schrift
Spalte 3: Werte in magenta Schrift
Spalte 4: Werte in grüner Schrift
Spalte 5; Werte in roter Schrift
Spalte 6: leer
Beispiel:
In Spalte 1 soll folgendes Ergebnis stehen: Text (S3)-Text(S4).Text(S5)-Text(S2)
Spalte 1: leer
Spalte 2: W1
Spalte 3: 12.45
Spalte 4: rt/34
Spalte 5; 34.0001
Spalte 6: leer
Das Ergebnis in Spalte 1 sieht damit folgendermassen aus: 12.45-rt/34.34.001-W1
So weit, so gut.
Da alle Spalten eine eigene Textfarbe haben, sollten die Einträge auch in der jeweiligen Spaltenfarbe kopiert und in Spalte 1 und 6 eingetragen werden.
Dadurch wären die Einträge einfach visuell zu erfassen.
Hierzu habe ich auch nach längerer Suche keine Lösung gefunden.
Wenn jemand einen Vorschlag zur Lösung hätte, wäre ich sehr dankbar!
Vile Grüße

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt mit Schriftfarbe kopieren
11.07.2022 21:21:26
volti
Hallo Stefan,
hier ein möglicher Ansatz...
Kopieren wird wohl eher nicht funktionieren.
Code:


Sub Test() Dim L As Integer, S() As String, T As String, i As Integer S = Split(" 3 4 5 2 - . - ") ' Vorgaben For i = 1 To 4 ' Text zusammenstellen T = T & Cells(1, Val(S(i))).Text & S(i + 4) Next i With Range("A1") .Value = T ' Text ausgeben For i = 1 To 4 ' Farben setzen T = .Offset(, Val(S(i)) - 1).Text .Characters(Start:=L + 1, Length:=Len(T)).Font.Color _ = .Offset(, Val(S(i)) - 1).Font.Color L = L + Len(T) + 1 Next i End With End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige

103 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige