Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalte mit Farbe übertragen

Forumthread: Inhalte mit Farbe übertragen

Inhalte mit Farbe übertragen
Karsten
Hallo,
in u.st. Beispiel sollen Inhalte mit Colorindex 3 in Tabelle 2 kopiert werden. Es funktioniert aber nur, wenn in der Zelle schon etwas in anderer Farbe steht. Vielleicht kann jemand den Befehl entsprechend abändern. Ich hab ihn irgendwann mal von jemand bekommen.
https://www.herber.de/bbs/user/77842.xls
Besten Dank für eure Hilfe.
Gruß
Karsten
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Inhalte mit Farbe übertragen
07.12.2011 07:30:17
fcs
Hallo Karsten,
so sollte es funktionieren.
Gruß
Franz 
Sub a()
Dim Erg As String
Dim Erg1 As String
Dim sp As Long
Dim ze As Long
Dim sh1 As Worksheet, sh2 As Worksheet
Dim Zelle As Range
Dim i As Long
Set sh1 = Sheets("Tabelle1")
Set sh2 = Sheets("Tabelle2")
sh2.Cells.Clear
For sp = 4 To sh1.UsedRange.Columns.Count
sh2.Cells(sp, 1).Value = sh1.Cells(1, sp)
Erg = ""
For Each Zelle In Range(sh1.Cells(2, sp), sh1.Cells(Rows.Count, sp).End(xlUp))
'If IsNull(Zelle.Font.ColorIndex) Then
Erg1 = ""
For i = 1 To Len(Zelle.Value)
If Zelle.Characters(i, 1).Font.ColorIndex = 3 Then
Erg1 = Erg1 & Mid(Zelle.Value, i, 1)
End If
Next
If Erg1  "" Then Erg = Erg & Erg1 & ", "
'End If
Next
If Erg  "" Then sh2.Cells(sp, 2).Value = Left(Erg, Len(Erg) - 2)
Next
Sheets("Tabelle2").Select
End Sub

Anzeige
AW: Inhalte mit Farbe übertragen
07.12.2011 08:28:12
Karsten
Hallo Franz,
danke.
Gruß
Karsten
;

Forumthreads zu verwandten Themen

Zelleninhalte abwechselnd mit der Füllfarbe... ?
Selma

Hallo Leute,
in Spalte A habe ich ganz viele Einträge. Jetzt möchte ich von Zelle in der am Anfang dies <artikel name steht bis Zelle wo es am Anfang dies steht in Füllfarbe gelb und den nächsten Abschnitt mit der Füllfarbe grün darstellen. Dies soll immer abwechselnd bis letzte Zelle d...
07.10.2008 10:00:00
Thread-ID: 1014628
11 Beiträge
Bienenwabe mit Farben auslesen
Pepi

Halle Excel-Gemeinde
Gibt es eine Möglichkeit die Farbnummern von der Bienenwabe (Menu-Schriftart-Ausfüllen-weitere Farben) rauszuschreiben (super wäre natürlich eine solche Bienenwabe zu erstellen) damit diese Farben im VBA-Code weiterverwendet werden können. Bis jetzt habe ich die 56 Farb...
15.01.2009 17:24:00
Thread-ID: 1040242
16 Beiträge
Zellfarbe mit makro A, manuell B
Tobias

Hallo allerseits
ich ändere den farbwert einer zelle mit:
Cells(i, 2).Font.ColorIndex = 3
Leider bleibt die zelle immer noch auf 3, wenn ich später manuell etwas in Spalte B eintrage.
hätte gerne bei manuellem Eintrag den wert 1
Wie kann man das lösen?
Beste Grüsse,
...
27.02.2009 21:55:07
Thread-ID: 1054943
5 Beiträge
Pivottable formatieren mit verschiedenen Farben
Rita

Hallo,
ich versuche gerade, eine PivotTable per VBA zu formatieren.
Wie kann ich z.B. die Spalte mit der Gesamtsumme in einer bestimmten Farbe anzeigen? Ich habe schon herausgefunden, dass es wohl mit xlGrandTotalColumn zu tun hat, bekome es aber nicht hin.
Danke Rita
28.07.2009 17:55:59
Thread-ID: 1092020
2 Beiträge
Registerfarbe mit makro
Markus

Hallo Excel-Gemeinde,
ich möchte die Farben eines Registers automatisch per makro ändern.
Hier eine Beispieldatei.
Die Datei https://www.herber.de/bbs/user/64340.xls wurde aus Datenschutzgründen gelöscht
Dank' euch schonmal
Grüße Markus
11.09.2009 20:05:02
Thread-ID: 1102107
7 Beiträge
Balkendiagramm mit verschiedenen Farben
Räber

Hallo zusammen
Ich habe ein Problem mit einem Excel-Diagramm, welches ich nicht den Anforderungen entsprechend erstellen kann. Folgende Ausgangslage:
1. Ich habe ein Excel-Sheet, welches per SQL mit Daten abgefüllt wird.
2. Es gibt diverse Spalten, für das Diagramm ist die Spalte "K...
23.09.2009 15:41:32
Thread-ID: 1104938
2 Beiträge
bestimmte Hintergrundfarbe auf neutral
Volker

Hallo liebe Excelgemeinde, ich habe einen Code, in den in einer Spalte alle Hintergrundfarben gelöscht wird
Farbmarkierung in Spalte D wird gelöscht
Columns("D:D").Interior.ColorIndex = xlNone
Wie müsste der Code heissen wenn nur bestimmte Farben z.B. Rot (3) und Grün (43) gelöscht...
22.11.2009 16:35:05
Thread-ID: 1119186
7 Beiträge
Anzeige
Farbeintrag mittels VBA | Herbers Excel-Forum
nuernberg@esm-ept.de
Sehr geehrte Forumgemeinde,
wie kann ich Einträge die in diesem VBA Programm gemacht werden mit einer Textfarbe makieren??? Private Sub CommandButton2_Click() Dim XZeile As Long If TextBox1 = "" Then Exit Sub If ComboBox1.ListIndex = 0 Then XZeile = [A65536].End(xlUp).Row + 1 Else XZeile = Comb...
14.01.2010 13:04:24
Thread-ID: 1129883
3 Beiträge
Anzeige
Textfarbe in Kommentar mit VBA ändern? | Herbers Excel-Forum
Kasimir
Hallo Leute,
wie aus der Überschrift ja ersichtlich, möchte ich per VBA Texte in einem Kommentarfeld formatieren. Vorrangig möchte ich die Texte farblich verändern. Leider zeichnet mir der Makrorecorder dies nicht auf. Geht das trotzdem?
Danke und Gruß,
Kasimir
14.01.2010 13:59:43
Thread-ID: 1129913
10 Beiträge
Combobox Einträge mit abwechselnder Farbe
TOM

Guten Morgen zusammen
Ich habe in meinem USerform eine Combobox mit 15 Einträgen die ich gerne abwechslend farblich mit grün/weiss zu r besseren Übersicht anzeigen lassen möchte. Geht so was und wenn ja wie!?
Besten Dank für einen Tipp
Gruss und schöner Tag
TOM
16.04.2010 07:29:40
Thread-ID: 1152146
3 Beiträge
Diagramm mit 2 Farben
Stefan

Hallo Zusammen,
habe ein Excelproblem, bei dem ich nicht weiß wie ich es lösen kann...
Die Aufgabe hört sich recht einfach an, ich brings trotzdem nicht auf die Reihe...
Z.B.
A / B / C
Arbeit 1 / 5 min / Tätigkeit
Arbeit 2 / 7 min / Wartezeit
Arbeit 3 / 2 min / Tätig...
22.09.2010 00:04:17
Thread-ID: 1178739
3 Beiträge
VBA-Code für Bereich mit Farbe ausfüllen
Karsten

Hallo,
könnte mir bitte jemand beim Bau des Codes helfen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Zelle.Value = "Blfl." Then
diese und die beiden Zellen daneben rechts und die unter "Zelle" und die beiden Zellen daneben rechts mit
Color...
04.10.2010 09:15:07
Thread-ID: 1180527
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige