Suchergebnisse

@INOPIAE Äh... also du kannst es vergessen.. ich habe grade gesehen, er macht es auf einmal. Ich hatte eben alle Werte aus dem Ding genommen, und neu eingefügt, weil ich vorher was getestet habe was nicht funktioniert hat. Jetzt geht's auf einmal (sieht aber alles aus wie vorher auch) Also du kannst es vergessen. Ich danke dir echt vielmals. Damit ist das Thema beendet und es hat genau so funktioniert Kann es noch gar nicht fassen, dass es endlich geht. Danke danke danke ! :D Okay also ich habe …

Vielen Dank erstmal @INOPIAE , es macht grundsätzlich erstmal was es soll! ABER.. auch irgendwie wieder nicht so ganz. Weil, egal was ich auswähle werden: S_10, S_12, S_13 und S_20 nicht mit gefärbt und haben somit die falsche Farbe. Excel sucht doch aber nach den Namen, ist das korrekt? Das tut er ja hiermit: wks1.Shapes("S_" & Format(wks4.Cells(Zeile, 5).Value, "00")) und füllt dann hiermit .Fill.ForeColor.RGB = RGB(Farbe(0), Farbe(1), Farbe(2)) auf. Findet Excel diese Felder aus irgendeinem G…

@INOPIAE Hier mal die Datei als xlsm Die Codes sind im Modul "Farbzuordnung" bei Vertriebler() und bei Positionen() Sub VertrieblerFarbe() Dim Farbe() As String Dim Zeile As Long Dim wks1 As Worksheet Dim wks4 As Worksheet Set wks1 = Worksheets("Vertriebsgebiete") Set wks4 = Worksheets("Einstellungen") For Zeile = 6 To 100 Farbe = Split(wks4.Cells(Zeile, 6).Value, ",") wks1.Shapes("S_" & Format(Zeile, 6, "00")).Fill.ForeColor.RGB = RGB(Farbe(0), Farbe(1), Farbe(2)) Next End Sub Das ist die Funkt…

@INOPIAE Jetzt markiert er mir hier: wks1.Shapes ("S_" & wks4.Cells(Zeile, 5).Value.Fill.BackColor.RGB = RGB(Farbe(0), Farbe(1), Farbe(2))) .Shapes und sagt mir Unzulässige Verwendung einer Eigenschaft Und ja, 11 gibt es tatsächlich nicht.. hilft es was, wenn ich eine 11 einbaue? Eigentlich ja nicht, weil dann müsste ich ja auch andere PLZ Gebiete einbauen die es gar nicht gibt, weil es fehlen ja noch mehr Zahlen (für die es dann auch kein Textfeld gibt) Oder ist das zwingend notwendig? Ich bin …

@INOPIAE Erstmal vielen Dank für die Antwort INOPIAE, ich versuche noch diesen Split Befehl zu verstehen. Aber irgendwie ist es auch egal wie ich es drehe und wende, er schickt mich immer wieder zum Debuggen zurück. Ich habe den Code so übernommen wie von dir geschrieben und eben nur grade Zeile, Spalte usw. angepasst.Vielleicht ist es sinnvoll mal die Datei so anzuhängen wie sie ist. Vllt. mach ich auch irgendwo einen groben Fehler. Den Code habe ich wie folgt in ein Modul gesetzt, damit dieser…

Hallo Zusammen, ich bin neu hier und hoffe ich habe nicht irgendwo bereits einen Eintrag übersehen und poste unnötig. Und zwar habe ich folgendes Problem: Ich habe eine Excel Mappe (mit Makros). Worauf sich auf Tabelle1 eine Landkarte aus mehreren Textfeldern befindet. Auf Tabelle2 befindet sich eine Liste mit RGB Werten (In einer Spalte von einer Tabelle). * MA1 * 255, 0, 0 * MA2 * 0, 255, 0 * MA1 * 255, 0, 0 * MA1 * 255, 0, 0 * MA2 * 0, 255, 0 Also jedem Mitarbeiter ist eine Farbe zugeordnet. …