Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1796to1800
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
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zeilen färben wenn Zelle Wert

VBA Zeilen färben wenn Zelle Wert
04.12.2020 08:48:15
David
Hallo zusammen
Ich versuche mittels VBA Zeilen zu formatieren wenn in der Spalte 4 ein gewisser Wert steht. Dabei handelt es sich immer entweder um "S" oder "MSTR". Beim zweiten Link sieht man wie ich es mir vorgestellt hätte. Mir ist bewusst das man das ganze mittels Formatierung erreichen kann allerdings soll es sich hier um eine erweiterung eines bestehenden Excel Tools handeln.
https://www.herber.de/bbs/user/142048.xlsx vorhandene liste
https://www.herber.de/bbs/user/142049.png gewünschtes Ergebnis
Gruss und danke schonmal
David

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zeilen färben wenn Zelle Wert
04.12.2020 09:11:01
worti
Hallo David,
in das Modul für die entsprechende Tabelle folgenden Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 4 Then
If Target.Value = "MSTR" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.ColorIndex = 48
Else
If Target.Value = "S" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.ColorIndex = 15
End If
End If
End If
End Sub

Gruß Worti
AW: VBA Zeilen färben wenn Zelle Wert
04.12.2020 09:23:13
David
Salut
Vielen Dank schonmal für die Antwort. Leider gibt er mir an "objekt erforderlich". https://www.herber.de/bbs/user/142054.png
Sorry ich bin wirklich totaler Anfänger und vermutlich wärs ganz einfach.
Gruss David
Anzeige
AW: VBA Zeilen färben wenn Zelle Wert
04.12.2020 11:27:38
worti
Hallo David,
du hast die Prozedur ja auch nicht in das Modul der entsprechenden Tabelle gepackt.
Wenn du es einfach so laufen lassen möchtest, dann so 
Sub einfaerben()
Dim lngZeile As Long
For lngZeile = 1 To Cells(Rows.Count, 4).End(xlUp).Row
If Cells(lngZeile, 4).Value = "MSTR" Then
Range(Cells(lngZeile, 1), Cells(lngZeile, 4)).Interior.ColorIndex = 48
Else
If Cells(lngZeile, 4).Value = "S" Then
Range(Cells(lngZeile, 1), Cells(lngZeile, 4)).Interior.ColorIndex = 15
End If
End If
Next lngZeile
End Sub

Gruß Worti

37 Forumthreads zu ähnlichen Themen

Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Anzeige
Zeile rot einfärben, wenn Zelle X einen Wert übers
Takahara

Hallo,
ich habe eine Berechnung abgeschlossen und möchte nun mit der Auswertung das ganze abrunden.
Dazu möchte ich meine Tabelle durchlaufen (mit einer For-Schleife) und jedes mal wenn in einer Zeile der Wert in der Spalte "L" über den Wert einer Variablen (Uss2) steigt, die Zeile rot...
10.10.2010 10:56:54
Thread-ID: 1181570
10 Beiträge
zeilen kopieren wenn wert in zelle
Andreas

Hallo Zusammen
Den nachstehenden Code habe ich im Forum gefunden. Nun möchte ich aber, dass nur zeilen mit einem bestimmten wert in der zelle a kopiert werden. Der zu suchende Wert steht im Tabellenblatt "Ziel" Zelle A1. Kann mir jemand helfen und mir schreiben wo ich den code wie anpassen...
13.11.2010 02:05:04
Thread-ID: 1186607
2 Beiträge
Anzeige
Zellen verknüpfen wenn bestimmter Wert
Olly

Hallo Leute,

ich möchte wenn z.B. in Tabelle1 in Zelle A1 eine Name oder Zahl/Kundennummer steht in Bezug darauf aus Tabelle2/Adressdatei die dazugehörige Adresse in Tabelle 3 in den Zellen A2, B2 und C2 erscheinen lassen. Wie muß ich vorgehen?
Danke für Eure Hilfe
Oli
25.05.2002 19:31:23
Thread-ID: 123700
7 Beiträge
Zeile kopieren wenn Wert in Zelle
Hans

Hallo,
ich habe aus dem Forum folgenden Code um die Zeilen zu kopieren wenn in der jeweiligen Zelle ein bestimmter Wert vorhanden ist.
Im Bsp ist ein "X" als Suchwert angegeben.
Ich möchte jetzt alle Zeile kopieren bei denen der Wert >99 ist. Wenn ich statt "X" ">99" eingebe w...
27.03.2013 15:48:27
Thread-ID: 1306213
3 Beiträge
Zeilen ausblenden wenn Wert in Zelle <=-10
Hanshuerbel

Hallo.
Habe volgendes Problem. Möchte gerne alle Zeilen verbergen wenn der Wert in Zelle D kleiner gleich -10 ist. Leider bringt er mir einen Fehler bei Cell.EntireRow.Hidden.
vermute mal das es an dem Minuszeichen liegt.
Bitte um Hilfe.
Danke
Sub HideRows() Application.Scre...
28.05.2013 09:44:36
Thread-ID: 1315184
10 Beiträge
Zelle sperren, wenn bestimmter Wert eingetragen
Sören

Hallo Forengemeinde,
ich habe mal wieder ein Problem bzgl. einer Excel Tabelle, die bei uns als Terminliste genutzt wird.
Die Tabelle ist mit einem Blattschutz versehen, welcher über eine Checkbox (chkPS) gesteuert wird. Ist der Haken drin, ist der Blattschutz aktiviert.
Ein Terminb...
18.12.2013 12:03:19
Thread-ID: 1342975
2 Beiträge
mit VBA Zellen einfärben wenn....
Holger

Hallo
ich hoffe es kann mir jemand weiter helfen.
Da es mit Excel 2000 nicht möglich ist, mit der bedingten Formatierung Zellen einzufärben, sondern nur den Text, benötige ich eine VBA Lösung.
Die Zellen
C4 bis AD4 sowie
C5 bis C17 sowie
F17 bis AD17
sollen sich...
09.03.2015 02:34:24
Thread-ID: 1413647
4 Beiträge
Anzeige

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
2
2
9
1
4
6
2
9
1
3
4
3
1
6
2
1
1
4
10
3
2
3
7
6
10