Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer

Forumthread: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer

Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 14:35:35
Dieter(Drummer)
Guten Tag an alle …

Sachverhalt:
In Tabelle1 markiere ich Zelle B5. Dann löse ich ein Makro aus, das folgendes erledigt:
Zelle C5 (Farbzelle) wird markiert und in Zelle D5 bis F5 wird Farbindex, RGB Werte und Farbnummer eingetragen. Das funktioniert alles.

Mein Wunsch ist, wie muss der Code sein:
Zelle B5 markieren, dann Code "FarbIndex" mit Folgecodes ausführen.
Dann B6 markieren und ebenfalls gleichen Code "FarbIndex" mit Folgecodes ausführen.
Entsprechen diese Folge bis Zelle B507.

Meine Versuche reichen leider nur soweit, dass ich die einzelnen Zellen in Spalte B markieren muss und dann jeweils den Code ausführen lassen.
An bei eine Beispieldate mit den bisherigen Code:
https://www.herber.de/bbs/user/170779.xlsm

Mit der Bitte um Hilfe,
grüßt
Dieter(Drummer)

Das sind die bisherigen Codes: 
Public Sub Farbe_etc()

Sheets("Tabelle1").Range("B5").Select

  Call FarbIndex

Range("B6").Select

  Call FarbIndex

'Bis inkl. Zelle 507

End Sub


Code FarbIndex: 
Sub FarbIndex()

  ActiveCell(1, 2).Select 'Zellebereich NUR Spalte 2

     ActiveCell.Offset(0, 1).Value = ActiveCell.Interior.ColorIndex

     ActiveCell.Offset(0, 3).Value = ActiveCell.Interior.Color

  Call RGB_Werte

End Sub


Code RGB Werte:
'RGB Werte in 2te Nebenzelle schreiben 
Sub RGB_Werte()

ActiveCell.Offset(0, 2).Value = ActiveCell

Dim Farbwert As Long

Dim Rot

Dim Grün

Dim Blau

Farbwert = ActiveCell.Interior.Color

On Error Resume Next

Rot = Farbwert Mod 256

Farbwert = (Farbwert - Rot) / 256

Grün = Farbwert Mod 256

Farbwert = (Farbwert - Grün) / 256

Blau = Farbwert Mod 256

ActiveCell.Offset(0, 2).Value = Rot & ", " & Grün & ", " & Blau

End Sub

Anzeige

33
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 14:44:53
Riebi
Hallo Dieter,

Public Sub Farbe_etc() solltest du so ändern: 



Public Sub Farbe_etc()

Dim Zeile As Long



For Zeile = 2 To 507

Sheets("Tabelle1").Range("B" & Zeile).Select

Call FarbIndex

Next Zeile

End Sub


Damit erstellst du eine Schleife die von Zeile 2 bis zur Zeile 507 durchläuft
Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 15:17:59
Dieter(Drummer)
Hallo Riebi,

Danke für deinen Code, der perfekt funtioniert.
Habe wohl noch zwei Anpassungen/Änderungen gemacht und es läuft perfekt.
Application.Screenupdating = false ergit ein sehr schnelles einfügen der Werte etc. und Zeile 2 habe ich auf Zele 5 gesetzt. Klappt alles perfekt.

Danke und einen schönen Tag.

Gruß,
Dieter(Drummer

Hier der geänderte Code von dir: 
Public Sub Farbe_etc()

Application.ScreenUpdating = False

Dim Zeile As Long

For Zeile = 5 To 507

Sheets("Tabelle1").Range("B" & Zeile).Select

Call FarbIndex

Next Zeile

End Sub

Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 14:45:44
Onur
Erst mal Vorarbeit leisten:
Aus 
Sub FarbIndex()

machst du 
Sub FarbIndex(rng as Range)

Und SÄMTLICHE "ActiveCell" in "Farbindex" änderst du in "rng".
Und das selbe auch mit 
Sub RGB_Werte()

Dadurch ist es möglich, der Sub beim Aufruf einen Parameter, nämlich die Zelle, mit zu übergeben, womit er alles macht (statt mit ActiveCell).
Wenn du das hast, poste den Code erneut.
Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 16:07:10
Uduuh
Hallo,
ich würde mir 3 Functions definieren und die in die Zellen schreiben.

In ein Modul: 
Function Farbe(rng As Range)

  Farbe = rng.Interior.Color

End Function



Function FarbIndex(rng As Range)

  FarbIndex = rng.Interior.ColorIndex

End Function



Function RGB_Werte(rng As Range)

  Dim lngFarbe As Long

  Dim R As Integer

  Dim G As Integer

  Dim B As Integer

  

  lngFarbe = rng.Interior.Color

  R = lngFarbe Mod 256

  lngFarbe = (lngFarbe - R) / 256

  G = lngFarbe Mod 256

  lngFarbe = (lngFarbe - G) / 256

  B = lngFarbe Mod 256

  

  RGB_Werte = Join(Array(R, G, B), "; ")

End Function


B5: =FarbIndex(A5)
C5: =Farbe(A5)
D5: =RGB_Werte(A5)
und runter kopieren.

Gruß aus'm Pott
Udo

Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
09.07.2024 10:22:41
daniel
Hi Dieter
alles Gute zum Geburtstag.

ich würde das mit Funktionen lösen, die ich dann in die zellen Eintrage.

hier der Code: 

Sub Einfügen()

With Selection.Offset(0, 1).Resize(, 3)

    .Columns(1).FormulaR1C1 = "=FarbID(RC[-1])"

    .Columns(2).FormulaR1C1 = "=FarbNr(RC[-2])"

    .Columns(3).FormulaR1C1 = "=FarbRGB(RC[-3])"

    .Formula = .Value

End With

End Sub





Function FarbNr(Zelle As Range)

    FarbNr = Zelle(1).Interior.Color

End Function



Function FarbID(Zelle As Range)

    FarbID = Zelle(1).Interior.ColorIndex

End Function



Function FarbRGB(Zelle As Range)

Dim Farbwert As Long

Dim Rot As Long

Dim Grün As Long

Dim Blau As Long

Farbwert = Zelle(1).Interior.Color

Rot = Farbwert Mod 256

Farbwert = (Farbwert - Rot) / 256

Grün = Farbwert Mod 256

Farbwert = (Farbwert - Grün) / 256

Blau = Farbwert Mod 256

FarbRGB = Rot & ", " & Grün & ", " & Blau

End Function


markiere dann die Zellen mit den Farben ("B5:B507") und starte das Makro "Einfügen"

Gruß Daniel
Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
09.07.2024 10:47:15
Dieter(Drummer)
Danke Daniel für die Glückwünsche.

Mit den Funktionen ist auch eine gute Lösung. Vielen Dank.

Gruß und einen erfreulichen Tag,
Dieter(Drummer)
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 16:35:04
Dieter(Drummer)
Danke Udo,

dies wäre auch eine funktionierende Variante.

Danke und Gruß,
Dieter(Drummer)
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 15:22:43
Dieter(Drummer)
Danke Onur für Rückmeldung und Hinweise.
Werde es ändern und mich dann zurück melden.

Gruß, Dieter(Drummer)
Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 15:46:21
Dieter(Drummer)
Hallo Onur,

hier der jetzt geänderte Code.
Ich muss wohl vorher die Zelle links neben der Farbzelle markieren, z.B. B5, dann den Code "Farbindex" starten, dann werden in z.B. D5.F5 die entsprechenden Werte eingefügt.
Aber nur in dieser Zeile. Es läuft nicht weiter bis Zeile 507.

Würde mich auch interessieren, was da noch anders sein muss.
Auch wenn ich den funktionierenden Code von Reibi habe.

Hier der jetzige Code: 
Sub FarbIndex(rng As Range)

  rng(1, 2).Select 'Zellenbereich NUR Spalte 2

     rng.Offset(0, 1).Value = rng.Interior.ColorIndex

     rng.Offset(0, 3).Value = rng.Interior.Color

'RGB Werte in 2te Nebenzelle

     Call RGB_Werte

End Sub


'RGB Werte in 2te Nebenzelle schreiben 
Sub RGB_Werte()

rng.Offset(0, 2).Value = rng

Dim Farbwert As Long

Dim Rot

Dim Grün

Dim Blau

Farbwert = rng.Interior.Color

On Error Resume Next

Rot = Farbwert Mod 256

Farbwert = (Farbwert - Rot) / 256

Grün = Farbwert Mod 256

Farbwert = (Farbwert - Grün) / 256

Blau = Farbwert Mod 256

rng.Offset(0, 2).Value = Rot & ", " & Grün & ", " & Blau

End Sub


Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 15:53:26
Onur
So rufst du die Schleife auf: 
    Dim cel

    For Each cel In Range("B5:B507")

        Call farbindex(cel)

    Next

Aber vorher 
Call RGB_Werte

in Sub "farbindex" ändern in 
Call RGB_Werte(rgb)


Sollte dann laufen.
Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 16:33:04
Dieter(Drummer)
Hallo Onur,

so sieht jetzt mein Code aus und es kommt ein Fehler:
Fehler beim Kompilieren, Argumtenttyp ByRef unverträglch, in Zeile "Call by Farbindex(Cel) und "cel" wird markiert).

Hab ich da etwas falsches gemacht?

Mit Gruß,
Dieter(Drummer)
Code: 
Public Sub Farbe()

    Dim cel

    For Each cel In Range("B5:B507")

        Call Farbindex(cel)

    Next

End Sub


Sub Farbindex(rng As Range)

  rng(1, 2).Select 'Zellenbereich NUR Spalte 2

     rng.Offset(0, 1).Value = rng.Interior.ColorIndex

     rng.Offset(0, 3).Value = rng.Interior.Color

'RGB Werte in 2te Nebenzelle

     Call RGB_Werte

End Sub


'RGB Werte in 2te Nebenzelle schreiben 
Sub RGB_Werte()

rng.Offset(0, 2).Value = rng

Dim Farbwert As Long

Dim Rot

Dim Grün

Dim Blau

Farbwert = rng.Interior.Color

On Error Resume Next

Rot = Farbwert Mod 256

Farbwert = (Farbwert - Rot) / 256

Grün = Farbwert Mod 256

Farbwert = (Farbwert - Grün) / 256

Blau = Farbwert Mod 256

rng.Offset(0, 2).Value = Rot & ", " & Grün & ", " & Blau

End Sub
Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 16:45:43
Onur 
Sub RGB_Werte(ByRef rng as Range)

muss da stehen.
Ändere bitte 
Sub Farbindex(rng As Range)

auch um in 
Sub Farbindex(ByRef rng As Range)
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 17:15:25
Uduuh
Hallo,
läuft bei mir: 
Option Explicit



Public Sub Farbe()

    Dim cel As Range

    For Each cel In Range("B5:B507")

        Call Farbindex(cel)

    Next

End Sub



Sub Farbindex(rng As Range)

  'rng(1, 2).Select 'Zellenbereich NUR Spalte 2

     rng.Offset(0, 1).Value = rng.Interior.ColorIndex

     rng.Offset(0, 3).Value = rng.Interior.Color

'RGB Werte in 2te Nebenzelle

     Call RGB_Werte(rng)

End Sub



'RGB Werte in 2te Nebenzelle schreiben

Sub RGB_Werte(rng)

  Dim Farbwert As Long

  Dim Rot

  Dim Grün

  Dim Blau

  Farbwert = rng.Interior.Color

  On Error Resume Next

  Rot = Farbwert Mod 256

  Farbwert = (Farbwert - Rot) / 256

  Grün = Farbwert Mod 256

  Farbwert = (Farbwert - Grün) / 256

  Blau = Farbwert Mod 256

  rng.Offset(0, 2).Value = Rot & ", " & Grün & ", " & Blau

End Sub

Gruß aus'm Pott
Udo
Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 17:41:42
Dieter(Drummer)
Hallo Udo,

läuft bei mir ncht richtig, da die Eintragungen schon in Spalte C anfangen, statt ab Spalte D.

Gruß, Dieter(Drummer)
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 18:21:32
Uduuh
Hallo,
es ist doch kein Problem, die OffSet-Werte zu ändern.
eingedampft: 
Option Explicit



Public Sub Farbe()

    Dim rng As Range

    For Each rng In Range("B5:B507")

     rng.Offset(0, 2).Value = rng.Interior.ColorIndex 'D

     rng.Offset(0, 3).Value = rng.Interior.Color      'E

     rng.Offset(0, 4) = RGBWerte(rng)                 'F

    Next

End Sub



Function RGBWerte(rng As Range)

  Dim Farbwert As Long

  Dim R As Byte

  Dim G As Byte

  Dim B As Byte

  Farbwert = rng.Interior.Color

  

  R = Farbwert Mod 256

  Farbwert = (Farbwert - R) / 256

  G = Farbwert Mod 256

  Farbwert = (Farbwert - G) / 256

  B = Farbwert Mod 256

  RGBWerte = R & ", " & G & ", " & B

End Function

Gruß aus'm Pott
Udo
Anzeige
AW: Danke an alle in dieser Sache, mir wurde geholfen ...
08.07.2024 18:45:42
Dieter(Drummer)
... Muss jetzt leider aufhören, da ich in Vorbereitungen für meinen morgigen Geburtstag,, der 80zigste :-), bin

Danke an alle und Gruß,
Dieter(Drummer),
(off-topic)
09.07.2024 09:31:09
Pierre
Dann an dieser Stelle einmal herzlichen Glückwunsch und alles Gute zu deinem 80. :)
AW: (off-topic)
09.07.2024 09:54:39
Dieter(Drummer)
Herzlichen Dank für deinen Glückwunsch.

Gruß,
Dieter(Drummer)
Anzeige
AW: (off-topic)
09.07.2024 09:59:22
hary
Moin Dieter
Auch von mir Happy Birthday.
Dann musst du ja die Schiessbude wieder aus dem Keller holen.
Und ab jetzt alles im dreivierteltakt ;-)))
Nix mehr mit "Headbanging"
gruss hary
AW: (off-topic)
09.07.2024 10:43:50
Dieter(Drummer)
Danke Hary für deine Glückwünsche, hat mich sehr gefreut.

Gruß und ein angenehmen Tag,
Dieter(Drummer)
Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 16:56:35
Dieter(Drummer)
Danke Our für deine weitere Hilfe,

es kommt abr immer noch der Fehler, mit der Markierung auf (Cel).
Code: 
Public Sub Farbe()

    Dim cel

    For Each cel In Range("B5:B507")

        Call Farbindex(cel)

    Next

End Sub


Deine Anpassungen habe ich jetzt alle vorgenommen.

Hast Du noch eine Idee?

Gruß,
Dieter(Drummer)
Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 16:59:15
Onur
Poste bitte mal die Datei.
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 17:00:38
Onur
Oder teste vorher das:

Call Farbindex(cel.Address)
Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 17:30:59
Dieter(Drummer)
Hallo Onur,

geht leider auch nicht und jetzt wird die ganze Zeile "Call Farbindex(cel.Address)" gelb markiert und "Laufzeitfehler 424, Objekt erforderlich"
Wenn nicht geht, dann gehts eben so nicht.

Danle dir für deine Hilfe.

Gruß,
Dieter(Drummer)
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 17:32:13
Onur
Wie gesagt, geht Alles.
Aber dafür brauche ich die Datei, per Ferndiagnose ist das nervenaufreibend.
Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 17:46:36
Dieter(Drummer)
Hallo Onur Danke für Datei,

Eintragungen beginnen hier auch schon bei C statt bei D, wie auch beim Code von Udo. Ansosten werde die Eintragungen gemacht.
Wo liegt der Fehler?

Gruß,
Dieter(Drummer)
Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 17:52:02
Onur
Auf Button klicken.
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 17:54:51
Onur 
    Dim x

    x = rng.Address

kann weg - Restmüll aus Testphase.
Anzeige
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 18:08:40
Dieter(Drummer)
Hallo Onur,

dieser Zeilen 
Dim x

    x = rng.Address

sind in der Datei von dir nicht drin!

Gruß,
Dieter(Drummer)
AW: Zellfarbe in Nebenzellen, Farbindex, RGB Werte, Farbnummer
08.07.2024 18:10:42
Onur
Umso besser.

Forumthreads zu verwandten Themen

Zelleninhalte abwechselnd mit der Füllfarbe... ?
Selma

Hallo Leute,
in Spalte A habe ich ganz viele Einträge. Jetzt möchte ich von Zelle in der am Anfang dies <artikel name steht bis Zelle wo es am Anfang dies steht in Füllfarbe gelb und den nächsten Abschnitt mit der Füllfarbe grün darstellen. Dies soll immer abwechselnd bis letzte Zelle d...
07.10.2008 10:00:00
Thread-ID: 1014628
11 Beiträge
Bienenwabe mit Farben auslesen
Pepi

Halle Excel-Gemeinde
Gibt es eine Möglichkeit die Farbnummern von der Bienenwabe (Menu-Schriftart-Ausfüllen-weitere Farben) rauszuschreiben (super wäre natürlich eine solche Bienenwabe zu erstellen) damit diese Farben im VBA-Code weiterverwendet werden können. Bis jetzt habe ich die 56 Farb...
15.01.2009 17:24:00
Thread-ID: 1040242
16 Beiträge
Zellfarbe mit makro A, manuell B
Tobias

Hallo allerseits
ich ändere den farbwert einer zelle mit:
Cells(i, 2).Font.ColorIndex = 3
Leider bleibt die zelle immer noch auf 3, wenn ich später manuell etwas in Spalte B eintrage.
hätte gerne bei manuellem Eintrag den wert 1
Wie kann man das lösen?
Beste Grüsse,
...
27.02.2009 21:55:07
Thread-ID: 1054943
5 Beiträge
Pivottable formatieren mit verschiedenen Farben
Rita

Hallo,
ich versuche gerade, eine PivotTable per VBA zu formatieren.
Wie kann ich z.B. die Spalte mit der Gesamtsumme in einer bestimmten Farbe anzeigen? Ich habe schon herausgefunden, dass es wohl mit xlGrandTotalColumn zu tun hat, bekome es aber nicht hin.
Danke Rita
28.07.2009 17:55:59
Thread-ID: 1092020
2 Beiträge
Registerfarbe mit makro
Markus

Hallo Excel-Gemeinde,
ich möchte die Farben eines Registers automatisch per makro ändern.
Hier eine Beispieldatei.
Die Datei https://www.herber.de/bbs/user/64340.xls wurde aus Datenschutzgründen gelöscht
Dank' euch schonmal
Grüße Markus
11.09.2009 20:05:02
Thread-ID: 1102107
7 Beiträge
Balkendiagramm mit verschiedenen Farben
Räber

Hallo zusammen
Ich habe ein Problem mit einem Excel-Diagramm, welches ich nicht den Anforderungen entsprechend erstellen kann. Folgende Ausgangslage:
1. Ich habe ein Excel-Sheet, welches per SQL mit Daten abgefüllt wird.
2. Es gibt diverse Spalten, für das Diagramm ist die Spalte "K...
23.09.2009 15:41:32
Thread-ID: 1104938
2 Beiträge
bestimmte Hintergrundfarbe auf neutral
Volker

Hallo liebe Excelgemeinde, ich habe einen Code, in den in einer Spalte alle Hintergrundfarben gelöscht wird
Farbmarkierung in Spalte D wird gelöscht
Columns("D:D").Interior.ColorIndex = xlNone
Wie müsste der Code heissen wenn nur bestimmte Farben z.B. Rot (3) und Grün (43) gelöscht...
22.11.2009 16:35:05
Thread-ID: 1119186
7 Beiträge
Farbeintrag mittels VBA | Herbers Excel-Forum
nuernberg@esm-ept.de
Sehr geehrte Forumgemeinde,
wie kann ich Einträge die in diesem VBA Programm gemacht werden mit einer Textfarbe makieren??? Private Sub CommandButton2_Click() Dim XZeile As Long If TextBox1 = "" Then Exit Sub If ComboBox1.ListIndex = 0 Then XZeile = [A65536].End(xlUp).Row + 1 Else XZeile = Comb...
14.01.2010 13:04:24
Thread-ID: 1129883
3 Beiträge
Textfarbe in Kommentar mit VBA ändern? | Herbers Excel-Forum
Kasimir
Hallo Leute,
wie aus der Überschrift ja ersichtlich, möchte ich per VBA Texte in einem Kommentarfeld formatieren. Vorrangig möchte ich die Texte farblich verändern. Leider zeichnet mir der Makrorecorder dies nicht auf. Geht das trotzdem?
Danke und Gruß,
Kasimir
14.01.2010 13:59:43
Thread-ID: 1129913
10 Beiträge
Combobox Einträge mit abwechselnder Farbe
TOM

Guten Morgen zusammen
Ich habe in meinem USerform eine Combobox mit 15 Einträgen die ich gerne abwechslend farblich mit grün/weiss zu r besseren Übersicht anzeigen lassen möchte. Geht so was und wenn ja wie!?
Besten Dank für einen Tipp
Gruss und schöner Tag
TOM
16.04.2010 07:29:40
Thread-ID: 1152146
3 Beiträge
Diagramm mit 2 Farben
Stefan

Hallo Zusammen,
habe ein Excelproblem, bei dem ich nicht weiß wie ich es lösen kann...
Die Aufgabe hört sich recht einfach an, ich brings trotzdem nicht auf die Reihe...
Z.B.
A / B / C
Arbeit 1 / 5 min / Tätigkeit
Arbeit 2 / 7 min / Wartezeit
Arbeit 3 / 2 min / Tätig...
22.09.2010 00:04:17
Thread-ID: 1178739
3 Beiträge
VBA-Code für Bereich mit Farbe ausfüllen
Karsten

Hallo,
könnte mir bitte jemand beim Bau des Codes helfen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Zelle.Value = "Blfl." Then
diese und die beiden Zellen daneben rechts und die unter "Zelle" und die beiden Zellen daneben rechts mit
Color...
04.10.2010 09:15:07
Thread-ID: 1180527
7 Beiträge

Beliebteste Forumthreads (12 Monate)

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