Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kleinigkeiten anpassen (Code von Tino)

Forumthread: Kleinigkeiten anpassen (Code von Tino)

Kleinigkeiten anpassen (Code von Tino)
27.04.2014 22:59:29
Tino)
Hallo Excel Experten,
hier der Code, der Daten mehrere Listen in einer Master Liste bündelt.
https://www.herber.de/bbs/user/90364.zip
Ich bräuchte wenige Anpassungen.
1.) Das Makro durchsucht in allen Einzellisten die Sheets(Registerkarte der Excel Datei), die welche "Tabelle1" heißen.
Es soll aber immer ungeachtet vom Sheetnamen immer das erste durchsuchen. Wenn ich also z.B das erste Sheet "xyz" nenne soll es dieses durchsuchen, wenn es an erster Stelle steht.
2.)
In der Spalte von C18(siehe Zeile 1) steht als Wert entweder G,R oder Y.
Bei übernahme des Wertes G aus der Einzelliste soll das G in der Master Liste als Feldfarbe grün sein. Bei Y gelb und bei R rot.

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kleinigkeiten anpassen (Code von Tino)
30.04.2014 14:43:58
Tino)
Klappt super.
Möchte jetzt, dass die Funktion mit der Feldfarbe auch bei anderen Spalten funktionieren soll.
Habe dazu eine For-Schleife um den Code implementiert. Es kommt zwar kein Fehler funktioniert aber nicht. Hier soll die funktion für das C8,C9 und C10 funktionieren.
If n = LBound(arFiles) Then
For colcolor = 8 To 10
varCol = Application.Match("Ccolcolor", Rows(1), 0)
If IsNumeric(varCol) Then
Columns(varCol).FormatConditions.Delete
End If
Range(Rows(7), Rows(MaxRow)).ClearContents
Next colcolor
End If

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige