Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1320to1324
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1320to1324
1320to1324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2x FOR, FIND, ARRAy oder VLOOKUP

2x FOR, FIND, ARRAy oder VLOOKUP
04.07.2013 14:29:28
Joachim
Hallo,
ich habe Tabelle 1 mit 250 Werten in Spalte A, die unterschiedliche Zellfarben haben.
Auf Tabelle 2 in Spalte B sind 6000 Werte, darin sind die 250 auch enthalten.
Nun soll die Zellfarbe von Tabelle 1 auf 2 übertragen werden, wenn der Wert von 1 in 2 gefunden wird.
Möglichkeiten:
2 FOR-NEXT ineinander (was sicherlich lange braucht)
FIND oder ARRAY (hab ich noch nie verwendet)
oder den berühmten sverweis, hier als VLOOKUP.
Irgendwelche Vorschläge?
Gruss
Joachim

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2x FOR, FIND, ARRAy oder VLOOKUP
04.07.2013 14:35:33
Klaus
Hi,
um zumindest eine Schleife wirst du nicht herum kommen!
Ungetestet:
Sub FarbenUebertragen()
Dim r As Range
Dim lRow As Long
Dim FarbeZeile As Long
With Sheets("Tabelle2")
lRow = .Cells(.Rows.Count, 2).End(xlUp).Row
For Each r In .Range("B2:B" & lRow)
If WorksheetFunction.CountIf(Sheets("Tabelle1").Columns(1), r.Value) > 0 Then
FarbeZeile = WorksheetFunction.Match(r.Value, Sheets("Tabelle1").Columns(1), False)
r.Interior.ColorIndex = Sheets("Tabelle1").Cells(FarbeZeile, 1).Interior.ColorIndex
End If
Next r
End With
End Sub
Grüße,
Klaus M.vdT.

Anzeige
AW: 2x FOR, FIND, ARRAy oder VLOOKUP
04.07.2013 14:50:41
Joachim
Hallo Klaus,
funktioniert zwar, aber keine der Zellfarben aus Tabelle 1 wird übertragen. Es wird irgendeine Farbe verwendet, aber nicht die original Farbe.
Gruss
Joachim

color statt colorindex
04.07.2013 14:54:21
selli
hallo joachim,
hoffe, klaus ist nicht böse, aber so sollte es gehen.
colorindex sollte zu diesem zweck nur bis office 2003 verwendung finden.
klaus weiß das auch, da bin ich mir sicher.
gruß
selli

AW: color statt colorindex
04.07.2013 15:01:19
Joachim
Hallo Selli,
tja, mit colorindex wurden alle türkis, jetzt nur mit color sind alle dunkelblau.
Aber immer noch nicht die unterschiedlichen Originalfarben :(
Gruss
Joachim

Anzeige
noch offen! o.w.T
04.07.2013 15:14:25
Joachim

AW: color statt colorindex
04.07.2013 15:16:14
Klaus
Hi Selli,
ich mach ganz selten was mit Farben, ColorIndex habe ich irgendwo her kopiert oder rekordert.
Hallo Joachim,
läuft bei mir 1a durch - sowohl mit Color als auch mit ColorIndex.
https://www.herber.de/bbs/user/86211.xlsm
Die Farben in deiner Tabelle1 sind aber händisch vergeben, ja? Da in deinem ersten Post nichts von bedingter Formatierung stand, bin ich davon ausgegangen es sind eingefärbte Zellen. Anhand deiner Fehlerbeschreibung gehe ich jetzt davon aus, deine Zellen sind ALLE türkis gefärbt, aber es liegt eine bed.Format. drüber. Richtig?
Bevor du fragst: den bisherigen validen Code auf eine bedingte Formatierung als Farb-Grundlage auszuweiten ist eine Doktorarbeit wert. Da ist es einfacher, du überträgst die bedingten Formatierungen aus Tabelle1 in Tabelle2.
Grüße,
Klaus M.vdT.

Anzeige
AW: color statt colorindex
04.07.2013 15:30:58
Joachim
Hallo,
jetzt geht's!!
Danke!
btw: es waren keine bedingten Formatierungen! Das weiss ich, dass das nur sehr schwer machbar ist.
Gruss
Joachim

Danke für die RÜ! und Neugierig ...
04.07.2013 15:32:23
Klaus
jetzt geht's!!
... woran lags denn?
Grüße,
Klaus M.vdT.
PS: Selli, ich habe gerade gesehen dass ColorIndex auch in meinem Beispiel tatsächlich falsche Farben holt. Danke für deinen Hinweis!

300 Forumthreads zu ähnlichen Themen

VLOOKUP nicht vorhandene Datei
chrdohmen

Hallo Zusammen,
habe ein kleines Problem beim Erstellen eines VLOOKUP mittels VBA.
Hintergrund: Ich habe in einer Jahresdatei zwölf Spalten Jan. bis Dez.. Jeder Monat soll mittels SVERWEIS auf eine Monatsdatei zugreifen. Den benötigten SVERWEIS habe ich, dieser funktioniert auch einwan...
29.09.2008 08:18:20
Thread-ID: 1013017
2 Beiträge
Anzeige
Vlookup anpassung
Karel

Hallo Forum,
versuchen vergeblich diesese Makro anzupassen, habe ich leztze Woche von Reinhardt erhalten und Funktioniert auch einwandfrei, aber wass muss ich machen wenn Suchwert nicht im Spalte D aber in Spalte E steht. Klick X bleibt im Spalte C
Code:
Option Explicit
Private...
01.11.2008 17:44:09
Thread-ID: 1021046
8 Beiträge
Vlookup
WOP

Hallo alle Zusammen,
ich habe ein Problem mit Vlookup.
In meinem Makro werden die Daten aus allen Worksheet ausgelesen. Falls kein Wert über Vlookup gefunden werden sollte, wird der Wert des vorherigen Excel-Sheets kopiert. (ohne, dass ich dies will)
Noch ein Kleines Bsp.
Suchwe...
01.12.2008 20:47:00
Thread-ID: 1029353
7 Beiträge
Anzeige
vlookup
Timmy

Hallo Freune des Excel-Sports;-)
ich habe folgende Frage!
Ich habe eine Datei mit ca. 40000 Artikelnummern und habe fuer die Beschreibung ein "vlookup" gestartet. Excel holte sich die zugehoerige Artikelbeschreibung dann aus einer Datei in einem anderen Ordner.
Das klappt auch, jedo...
29.01.2009 14:23:39
Thread-ID: 1045014
5 Beiträge
Namen ersetzen und vlookup
Timmy

Liebe Excler,
anbei habe ich eine Datei angehaengt. Diese wird mein Problem verdeutlichen:
https://www.herber.de/bbs/user/59734.xls
Vielen Dank fuer eure Muehen!!
Viele Gruesse
Timmy
24.02.2009 15:46:51
Thread-ID: 1053566
3 Beiträge
Vlookup mit benanntem Bereich
BorisHendrik

Hallo,
ich suche schon den ganzen Morgen für ein Problem, bei dem mir vielleicht / hoffentlich einer von Euch helfen kann.
Es geht um eine Vlookup / SVerweis Formel, als TableArray / Matrix möchte ich eine benannten Bereich verwenden. Also so:
=sverweis(a1; MeinBereich; 2; 0)
Im...
26.02.2009 13:51:31
Thread-ID: 1054369
3 Beiträge
Formel zurueckgeben mit Vlookup
Thomas

Hallo,
ich habe ein kleines Problem mit Vlookup.
Und zwar moechte ich gerne anstelle des Werts in der Zelle die Formel die in der Zelle steht zurueckgeben lassen. Wie ist das moeglich?
Mein aktueller Code sieht so aus:
For Each wks In ActiveWorkbook.Worksheets
If wks.Name =...
23.03.2009 03:37:48
Thread-ID: 1062759
5 Beiträge
VLookup wird nicht erkannt
Werner

VBA-Level: befriedigend
Hallo Freunde,
bei folgender CodeZeile bekomme ich immer eine Fehlermeldung (es soll der Wert in Spalte 5 des
Worksheets "BeispielSheet" ermittelt werden, wenn in Spalte A dessen Wert numerisch "1900"
betraegt.) Excel teilt mit, dass es "VLookUp" nicht ke...
02.04.2009 09:22:02
Thread-ID: 1066196
5 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
9
7
6
2
4
2
2
4
4
1
16
16
2
5
2
2
7
3
3
4
5
5
7
2