Zellformat per VBA übernehmen bei gleichen W

Hallo zum Wochenende,
in meinem vorhergehenden Thread habe ich es schon angedroht:
Freigegebene Datei: Feinterminplanung
In Tabelle "Aufträge" haben alle Projektnummern mit RGB definierte Zellfarben (ca. 50 - 60 verschiedene)
In der Haupttabelle "Alle" werden diese Projektnummern per verweis übernommen.
Ich möchte verhindern, dass die verschiedenen Beteiligten falsche Farben in der Haupttabelle eintragen.
Deshalb meine Idee:
Per Button die Zellfarben der jeweiligen Projektnummern über VBA
im Blatt "Aufträge" Spalte C auslesen und
im Blatt "Alle" in Spalte F die Zellen mit der identischen Projektnummer entsprechend einfärben.
Ist das möglich/sinnvoll? Wenn ja wie? (VBA-Kenntnisse knapp über Recorderniveau)
Beispieltabelle unten.
Verschärfung: Die Daten Projektnummer / Maschinennummer stammen ursprünglich aus dem Auftragsbuch.
Ich müsste die Projekt+Maschinennummern nicht laufend aktualisieren, wenn das Makro direkt darauf zugreifen würde.
Datei "Feinterminplanung" z.B. Laufwerk Y:\AAA\BBB
Datei "Auftragsbuch" z.B. Laufwerk G:\Daten
auf beide Dateien habe ich vollen Zugriff.
Also im Makro vermutlich
1. in Blatt "Aufträge" alles ab Zeile 2 löschen.
2. das Auftragsbuch öffnen,
3. wenn in Spalte K kein Auslieferungsdatum UND Spalte L= "C" , dann Spalten B500:C500 bis letzte kopieren
4. in Datei "Feinterminplanung" Blatt "Aufträge" ab Zeile 2 einfügen
Danke für euer Gehirnschmalz egal ob nur der 1. oder der 2. Teil.
Liebe Grüße, Margarete
https://www.herber.de/bbs/user/107590.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub MB() Dim rng As Range For Each c In Sheets("Alle").Columns("F").SpecialCells(3, 1) Set rng = Sheets("Aufträge").Columns("A").Find(c, LookIn:=xlValues, lookat:=xlWhole) If Not rng Is Nothing Then c.Interior.Color = rng.Interior.Color End If Next c End Sub

Hallo zusammen,
Habe eben nochmal reingesehen: @Fennek, lieben Dank, werde ich ausprobieren.
Übrigens: "Maggi" deutsch ausgesprochen habe ich seit Jahrzehnten nicht mehr gehört - Kindheitserinnerungen
@Armin: helfen dir diese Infos weiter?
Auftragsbuch:
https://www.herber.de/bbs/user/107603.xlsx
Teil 1 kein Problem mit VBA. Feste Zuordnung oder ändert sich das ganze ständig?
Die Spaltenanordung verändert sich nicht, auch die ersten 8 Zeilen in Blatt "Alle" bleiben unverändert. Die Anzahl der Mitarbeiter und die Anzahl der Aufgaben ändert sich ständig.
Ich gehe davon aus, dass es auf längere Zeit bei max. 1400 Zeilen bleiben wird.
Teil 2 hat nach meinem Verständis einige Fehler:
1. Ab Zeile 2 d.h. auch die Überschriften etc.?
Überschriftszeilen im Auftragsbuch = 2 siehe Datei
3. Spalten B500:C500 sind 2 zellen oder ?
Es muss erst ab Zeile 500 (ist ein Beispiel) gesucht werden
Hier ein Gedächtsnisfehler:
Rückgabe Spalte B Maschinennummer, Spalte C Maschinentyp und Spalte D Projektnummer
4. ab Zeile 3 oder ?
in Blatt Aufträge würden nur in Zeile 1 die Überschriften MaschNr, MaschTyp und ProjektNr stehen, direkt darunter die Datensätze.
Zusatzinfo: Bei einer Lösung von Teil 2 könnte dann das Blatt "Maschinen" entfallen, den Dropdown Spalte E ("MaschNr") in Blatt "Alle" könnte ich auf das Blatt "Aufträge" beziehen.
Ich hatte versucht, so wenig Formatierungen wie möglich in die Datei aufzunehmen, um sie nicht aufzublähen. Was würde schneller laufen:
a) Zu Beginn die Datensätze Spalten B bis D aus dem Auftragsbuch incl. RGB-Farben einkopieren, danach Auftragsbuch schließen und anschließend den Vergleich mit den Projektnummern oder Maschinennummern vorzunehmen.
b) Datensätze ohne Zellformatierung holen und nur bei Treffern aus dem Auftragsbuch die Zellfarbe übernehmen?
Habe übrigens inzwischen ein funktionierendes Makrobeispiel für RGB-Farben gefunden:

Sub RGBFarben()
Farbe = Worksheets("Beispiel").Cells(1,1).Interior.Color
On Error Resume Next
Rot = Farbe Mod 256
Farbe = (Farbe - Rot) / 256
Gruen = Farbe Mod 256
Farbe = (Farbe - Gruen) / 256
Blau = Farbe Mod 256
On Error GoTo 0
Worksheets(Beispiel).Cells(2,1).Interior.Color = RGB(Rot, Gruen, Blau)
End Sub

Liebe Grüße, Margarete

Beliebteste Forumthreads (12 Monate)

Zellformat per VBA übernehmen bei gleichen W

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread