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

Kleinigkeiten anpassen (Code von Tino)

Forumthread: Kleinigkeiten anpassen (Code von Tino)

Kleinigkeiten anpassen (Code von Tino)
28.04.2014 00: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 16: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
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18