Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
128to132
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Marko für Zellenhintergrundfarbe

Marko für Zellenhintergrundfarbe
26.06.2002 10:18:48
Sandy
Hallo,

ich habe eine Excel-Tabelle mit Zahlen die sich täglich ändern, sobald eine Zahl in den Minusbereich kommt, soll sich die Hintergrundfarbe der Zelle ändern.

Leider hab ich überhaupt keinen Plan von Markos, über Hilfe würd ich mich sehr freuen!

Vielen Dank
Tschau Sandy

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Marko für Zellenhintergrundfarbe
26.06.2002 10:24:16
Otto Ecker
Hallo Sandy,

hierzu reicht die "Bedingte Formatierung"

Gruß

Thomas

Re: Makro für Zellenhintergrundfarbe
26.06.2002 10:24:50
Niko
Hier hab ich so etwas ähnliches geschrieben:

Sub Farb_Klassifizierung()
'
' Farb_Klassifizierung Makro Hotkey ---> Strg + M
' Farbe aus Text 1 auslesen und in Spalte dahinter als Zahl schreiben
'
Dim mycolor As Variant

For rwindex = 2 To letzteZeile()

Worksheets("Tabelle1").Activate
Cells(rwindex, 11).Activate
mycolor = Worksheets("Tabelle1").Cells(rwindex, 11).Interior.Color ' mit interior ist Hintergrundfarbe gemeint

If mycolor = 65280 Then '65280 ist rückgabewert von grellgrün
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = 2 ' schreibt die Zahl 2 für die Farbe grellgrün
End If

If mycolor = 255 Then ' 255 ist rückgabewert von rot
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = 0 ' schreibt die Zahl 0 für die Farbe rot
End If

If mycolor = 65535 Then ' 255 ist rückgabewert von gelb
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = 1 ' schreibt die Zahl 1 für die Farbe gelb
End If


Next rwindex



End Sub

Hoffe es hilft dir da steht eigentlich alles was du brauchst mußt nur noch ne if Schlefe wegen deinen Minuszahlen selber bauen
Gruß
Niko

Anzeige
Re: Marko für Zellenhintergrundfarbe
26.06.2002 10:34:18
Sandy
Hi Thomas,

Vielen Dank!

Tschau Sandy

Re: Makro für Zellenhintergrundfarbe
26.06.2002 10:37:26
Sandy
Hi,

Danke für den Code, solang es auch ohne Marko funktioniert, geh ich der ganzen Sache im großen Bogen aus dem weg ;o)

Aber trotzdem vielen Dank

Tschau Sandy

300 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
2 zellen als Bedingung
sockel939

Guten Morgen an alle,
habe diesen code hier gebastelt!
Würde ihn jetzt gerne um 2 Bedingungen erweitern
und zwar soll der bereich L4:L1000 und N4:N1000 als Bedingung hinzukommen,
hab aber keinen Plan wies geht.
For Each Zelle In Range("K4:K1000")
If Zelle = "overhauled"...
23.08.2008 04:57:59
Thread-ID: 1004065
10 Beiträge
in ComboBox leere Zellen + Duplikate löschen
Uwe

Hi nochmal:
Ich konnte mit folgendem Befehl viel Platz sparen:
With Sheets("Katalog")
UserForm1.cob_produkt.RowSource = "'Katalog'!" _
& .Range("A2:C" & .UsedRange.Rows.Count).Address
End With
Das Problem:
A2: A
A3: B
A4: -leer-
A5:...
26.08.2008 14:56:01
Thread-ID: 1004819
2 Beiträge
Anzeige
Zählen E-Mailadressen in einer Zeile
Enjoy82

Guten Morgen,
ich hab in die Zelle A1 einen rießigen E-Mail Verteiler kopiert und möchte nun die Anzahl der E-Mail Adressen wissen.
Mit Zählenwenn kam ich nicht wirklich weiter (wollte die @s zählen) -- Formel spuckt 0 aus
Nach jedem Beistrich einen Zeilenumbruch machen, ist mir noc...
27.08.2008 08:59:00
Thread-ID: 1004969
3 Beiträge
Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
Zeilen in Zellen zählen
kai

Hallo
Ich habe eine Frage:
Wie kann ich mittles VBA in einer Zelle mit Zeilenumbruch die Anzahl der Zeilen zählen?
Grüße
Kai
29.08.2008 14:07:00
Thread-ID: 1005824
10 Beiträge
Zwei Dinge in einer Zelle
Sabine

Hallo,
ich möchte ein Problem mit Excel Formeln und ohne VBA lösen.
Es gibt drei Spalten: Datum1, Zweck, Datum 2
Wenn in Zweck in einer Spalte das Wort "Show" eingetragen wird, soll in Datum 2 in der entsprechenden Zeile stehen "Bitte nennen Sie ein Verwendungsdatum". Das kriege ich...
29.08.2008 15:25:00
Thread-ID: 1005860
2 Beiträge
Zeilenhöhe nach Zelleninhalt
Tom

Hallo,
Ich möchte gern je nach Zelleninhalt in der Spalte "D" die Zeilenhöhe abhängig machen.
Steht in "D" Hauptprojekt, so soll die Zeilenhöhe 27 betragen
steht in "D" Teilprojekt, so soll die Zeilenhöhe 20 sein
und ist "D" leer, dann soll die Zeilenhöhe 15 betragen
Die For...
01.09.2008 13:53:00
Thread-ID: 1006431
2 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
5
9
1
3
2
3
9
1
1
8
8
1
4
1
1
3
9
1
3
4
2
6
7
2