Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ganze Zeile einfärben wenn Wert größer 0

Forumthread: Ganze Zeile einfärben wenn Wert größer 0

Ganze Zeile einfärben wenn Wert größer 0
22.05.2015 12:48:24
Michael
Hallo,
ich möchte wenn im Bereich von M3 bis Ende der Tabelle ein Wert über 0 vorkommt die ganze Zeile innerhalb der Tabelle Rot einfärben. Folgender Code funktioniert nicht:
Private Sub Zeilen einfärben
Dim Target As Range
If Cells(Target.Row, 4).Value >0 Then
Target.EntireRow.Interior.Color = vbRed
Else
Target.EntireRow.Interior.ColorIndex = xlNone
End If
End Sub
ich bin nicht wirklich geübt mit VBA. Der Code kann auch total Müll sein :(
Über bedingte Formatierung möchte ich das nicht machen weil das einfärben der Zeilen Bestandteil eines größerern Makros sein soll und automatisch auf weitere Tabellen mit selben Aufbau angewendet werden soll.
Gruß
Michael

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Ganze Zeile einfärben wenn Wert größer 0
22.05.2015 12:56:19
Gerd
Hallo Michael!
Cells(Target.Row, 4) bezieht sich auf Spalte D.
Was verstehst du unter "..bis Ende der Tabelle" ?
Gruß Gerd

AW: Ganze Zeile einfärben wenn Wert größer 0
22.05.2015 13:03:11
Michael
Hallo Gerd,
ich möchte keinen fest definierten Bereich angeben in dem die Werte untersucht werden. Es ist jedoch immmer ausgehend von Zelle M3 bis zum letzten Eintrag in der Tabelle.
Gruß
Michael

Anzeige
AW: Ganze Zeile einfärben wenn Wert größer 0
22.05.2015 13:23:43
Michael
In etwa so nur nicht auf die Spalte beschränkt sondern die ganze Zeile soll in dieser Form eingefärbt werden:
Range("M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.Pattern = xlGray75
.PatternThemeColor = xlThemeColorDark1
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True

Anzeige
AW: Ganze Zeile einfärben wenn Wert größer 0
22.05.2015 19:19:49
Gerd
Hallo Michael,
du antwortest auf Rückfragen nur indirekt. Meinst du so? 
Sub c()
Dim objCell As Range
For Each objCell In Range(Range("M3"), Range("M" & Rows.Count).End(xlUp))
If objCell.Value > 0 Then
With objCell.EntireRow
.Font.Bold = True
.Font.Italic = False
.Font.ColorIndex = xlAutomatic
.Font.TintAndShade = 0
.Interior.Pattern = xlGray75
.Interior.PatternThemeColor = xlThemeColorDark1
.Interior.Color = 255
.Interior.TintAndShade = 0
.Interior.PatternTintAndShade = 0
End With
End If
Next
End Sub
Gruß Gerd
Anzeige
;

Forumthreads zu verwandten Themen

SUMMEWENN; Zahl finden
Cordula

Hallo Excel-Forum,
stehe gerade völlig auf dem Schlauch. Folgendes:
Spalte A
Artikel
210
e-6
s-9
310 1
Spalte B
Preis
10€
20€
30€
40€
Nun möchte ich nur den Preis summieren, deren Artikelnummer die erste Stelle eine Zahl i...
12.09.2008 12:02:00
Thread-ID: 1009320
6 Beiträge
=SUMME(C1:C18)ZÄHLENWENNc19(>0;-I19)zählenWENNc19(
ottgunter

Hallo
Mit dieser Formel will es nicht klappen.
Kann mir jemand eine bessere Lösung sagen
=SUMME(C1:C18)ZÄHLENWENNc19(>0;-I19)zählenWENNc19( Gruß Gunter
29.05.2009 20:21:45
Thread-ID: 1078296
2 Beiträge
Zählenwenn / Summenprodukt aber wie?
Hans

Hallo .. ich habe ein Problem mit dem zusammenzählen bei einer bestimmten Bedingung.
In Spalte A steht das Datum in Form von MM.JJJJ (01.2007, 02.2007 ..... )
In Spalte B stehen Namen
Nun möchte ich für jeden Monat zusammenzählen wie oft z. b. "Hans" in jedem Monat vorkommt.
Ic...
24.06.2009 14:21:02
Thread-ID: 1084128
8 Beiträge
Summen über ein Array nur wenn Datum im Zeitraum
Leif

Hallo Gemeinde,
ich habe in Excel eine Aktivitätenliste gebaut die ich gerne auswerten möchte:
Sheet1:
- Neben der eigentlichen Aktivität in Spalte A stehen in Spalte B die Namen der Mitarbeiter (mit "," von einander getrenn) die daran arbeiten sollen. Der Name der Spalte ist "ResNa...
10.07.2009 08:44:17
Thread-ID: 1087264
2 Beiträge
SummeWenn bzw. AnzahlWenn (?)
Wolfang

Hallo,
die nachstehende Formel zählt jeweils die Summe, wenn der Begriff in z.B. B7 mit dem Begriff in Spalte H übereinstimmt. Wie kann ich die Formel umstellen, wenn weiterhin der Begriff in B7 sowie Spalte H übereinstimmen sollen, aber in Spalte L nur dann die Anzahl der vorkommenden "X"...
10.11.2009 20:27:23
Thread-ID: 1115989
7 Beiträge
summewenn Fkt. als Makro
meixner

Hallo zusammen,
habe ein Problem mit einem Makro. Anhand eines Makros wird eine Tabelle kopiert mit range(AX :BA) und in eine andere Excel - Mappe kopiert. Ich möchte, aber das dieses Makro gleichzeitig vor kopieren eine summewenn - Funktion ausführt.
Die Fkt. heisst: summewenn(AX:AX; A...
29.11.2009 17:32:32
Thread-ID: 1120809
2 Beiträge
Anzeige
Zusammenzählen Wenn Summe
Heinz

Hallo Leute
Ich habe in G6:G35 einigemale die Formel =SUMME stehen.
Nun möchte ich in G36 die Gesamtsummen von =SUMME zusammenzählen.
Zb. In G8 =SUMME(G6:G7) , In G25 =SUMME(G14:G19) usw.
Nur die Zellen mit der Formel sind Variabel.
Hatte dazu jemand bitte eine Formel ?
...
30.12.2009 17:00:04
Thread-ID: 1126420
14 Beiträge
summewenn der falsche Befehl?
Markus

Hallo liebe Excel-Gemeinde,
in einer Tabelle habe ich mehrfach eine Teilenummer, verteilt über mehere Spalten und Zeilen. Jeweils im Feld rechts neben der Teilenummer steht die Menge.
Ich möchte nun die Summe aller Mengen des ganzen Tabellenblattes bilden (aber nur aus der Zelle rechts...
05.02.2010 13:10:16
Thread-ID: 1136151
4 Beiträge
If Target.Address ... aber nur wenn eine Zahl
Hans

Hallo Leute, ich habe folgendes Skript : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Target.Address(0, 0) = "C6" Then Lager = Target.Cells(1, 1).Value Range("H2") = Lager Call Lagr Cancel = True End If Das besagt das die Methode Lagr ausgeführt w...
25.02.2010 15:13:26
Thread-ID: 1141551
5 Beiträge
Anzeige
Summe wenn als VBA-CODE
Tim

Hallo Leute,
hab da ein kleines Problem.
Ich muss eine Verkaufsstatistik bauen. Natülich kommen jeden Monat neue Produkte und neue Kunden hinzu. Daher erstelle ich im Pivot eine Liste der Kunden und Produkte und hole mir per Array-Formel die Verkaufszahlen aus der Datenbank-Liste. Nur m...
20.04.2010 18:04:24
Thread-ID: 1152958
8 Beiträge
Anzeige
Zählenwenn/Summenprodukt Formelproblem
SteffenS

Hallo Zusammen,
ich habe folgende Formel in meiner Zelle:
=SUMMENPRODUKT(([bl_ct_dt.xls]db_dt!$N$2:$N$20000>=-9999)*([bl_ct_dt.xls]db_dt!$N$2:$N$20000 Leider habe ich dabei das Problem, dass als Ergebnis: 19826 herauskommt, obwohl ich im Bereich nur
einen Wert habe und dieser -3...
07.06.2010 20:44:13
Thread-ID: 1160743
3 Beiträge
zeilenzahl finden, wenn summe erreicht
selli

hallo leute,
bei matrixformeln stehe ich nach wie vor auf dem schlauch, werde aber hier wohl nicht drumherum kommen.
daher meine bitte um hilfe.
im bereich c2:c500 stehen zahlen in den zellen. jetzt benötige ich die zeile ab der eine bestimmte summe (von oben gerechnet) erreicht ist...
21.07.2010 14:45:03
Thread-ID: 1168122
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige