Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1944to1948
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
1944to1948
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen farbig nach Inhalt formatieren VBA ?

Zeilen farbig nach Inhalt formatieren VBA ?
10.09.2023 13:07:17
Dieter
Hey all,
Ich habe in einem anderen Beitrag nach Zeile und Formeln kopieren gesucht was erledigt ist.
Jetzt möchte ich gerne die Zeilen nach Inhalt farbig unterteilen nach zwei Kriterien.
Das ändert sich aber wieder wenn ich eine neue Zeile eingefügt habe.
Erstens nach Spalte, Zeile ab A3 in Zusammenhang mit Spalte, Zeile ab C3.
Das geht leider nicht über Tabellen Formatierung.?
Wie bekomme ich das hin ?
Anbei ein Beispiel
https://www.herber.de/bbs/user/162768.xlsm
Vielen Dank schon mal im Voraus

MfG.
Dieter

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen farbig nach Inhalt formatieren VBA ?
10.09.2023 19:59:43
Oberschlumpf
Hi Dieter,

zumindest ich verstehe deine Bsp-Datei...nicht

Deswegen hab ich diese etwas geändert und n paar "Wünsche" eingetragen.
Vielleicht ist es ja nach deiner Anpassung für mich/für Andere? verständlicher, was du erreichen möchtest.

hier, guck mal...
https://www.herber.de/bbs/user/162772.xlsm
...und zeig bitte die neue Bsp-Datei

Ciao
Thorsten
Zeilen farbig nach Inhalt formatieren VBA ?
11.09.2023 14:31:21
Dieter
Hallo Thorsten,
Du hast doch meine Bsp-Datei verstanden. Was Du gemacht hast
stimmt doch fast. Er formatiert mir die Zeile farbig neu wenn ich eine Zeile einfüge.
Was nicht gut ist das er mir die Zeilen bis ? farbig markiert. Ich brauche nur bis Spalte Q.
Des weiteren, ist noch falsch, sollte der Eintrag gleich bleiben wie schon mal vorhanden,
also in A und C ist die weitere farbliche Formatierung dann nach unten falsch,
da es sich ja alles nach unten verschiebt.

MfG.
Dieter
Anzeige
Zeilen farbig nach Inhalt formatieren VBA ?
10.09.2023 20:04:14
Piet
Hallo

bei mir funktioniert es mit diesem Code, Er gehört in ein normales Modul.
Im Code für CommandButton1 dieses neue Makro mit Call aufrufen.
Dazu im vorhandenen Code diese Zeile neu einfügen. Dann sollte es problemlos klappen.
Call Tabelle_neu_färben
X.Offset(1, 0).Select
End Sub

mfg Piet

  • Dim i As Long, j As Long
    Dim Farbe As Integer, lz1 As Long

    Sub Tabelle_neu_färben()
    Cells.Interior.ColorIndex = xlNone
    lz1 = Cells(Rows.Count, 1).End(xlUp).Row
    Cells(3, 1).EntireRow.Interior.ColorIndex = 20
    'Schleife für A + C Daten Auswertung
    For j = 3 To lz1
    If Cells(j + 1, 1) > Cells(j, 1) Or _
    Cells(j + 1, 3) > Cells(j, 3) Then
    If Cells(j, 1).Interior.ColorIndex = 20 Then _
    Farbe = xlNone Else Farbe = 20
    'Schleife zum farblich markieren
    For i = j + 1 To lz1
    Cells(i, 1).EntireRow.Interior.ColorIndex = Farbe
    If Cells(i + 1, 1) > Cells(i, 1) Or _
    Cells(i + 1, 3) > Cells(i, 3) Then Exit For
    Next i
    End If
    Next j
    End Sub
    • Anzeige
    Zeilen farbig nach Inhalt formatieren VBA ?
    11.09.2023 14:39:09
    Dieter
    Hallo Piet,
    Ich glaube die Antwort habe ich bei
    dem Beitrag von Thorsten gepostet.
    Schau da mal bitte nach.
    Das gehört zu Deinem Versuch.

    Mfg.
    Dieter
    Zeilen farbig nach Inhalt formatieren VBA ?
    11.09.2023 14:56:55
    Dieter
    Hey onur,
    Danke für Deinen Code, der das macht was ich möchte,
    allerdings die Farbe ist ekelhaft. ( sorry )
    Könntest Du mir die machen wie in meiner Bsp-Datei ?
    Dann habe ich noch 
    rnga = Range("A3:C500")

    geändert auf 
    rnga = Range("A3:C40")

    ich brauche nicht mehr Zeilen.
    Außerdem brauche ich die farbige Markierung nur bis Spalte Q.
    Wenn Du mir das noch bitte ändern könntest,
    ist der Code eigentlich perfekt für mich.
    Vielen Dank im Voraus

    MfG.
    Dieter
    Anzeige
    Zeilen farbig nach Inhalt formatieren VBA ?
    11.09.2023 15:16:28
    onur
    Das, was du geändert haben willst, läuft über bedingte Formatierung - das kannst du auch selber ändern.
    Zeilen farbig nach Inhalt formatieren VBA ?
    11.09.2023 16:52:14
    Dieter
    Hey onur,
    Sorry das mit der bedingten Formatierung hattest Du vorher nicht erwähnt, habe ich jetzt gemacht und eingestellt.
    Aber trotzdem ist in dem Code noch ein kleiner Fehler,
    Wenn man sich jetzt vertan hat mit der Zeile einfügen, zB. zwischen den ganzen 7 x 0,15 ist ein 7 x 0,18 drin, wird nach unten
    nicht mehr richtig farbig geändert.
    Vielleicht reicht ja nur was in der bedingten Formatierung ( andere Formel ) ?
    Könntest Du da vielleicht noch mal schauen ?
    Vielen Dank

    MfG.
    Dieter
    Anzeige
    Zeilen farbig nach Inhalt formatieren VBA ?
    13.09.2023 15:15:41
    Dieter
    Hey onur,
    Habe jetzt den Code und die Formatierung in die Originale Tabelle eingebaut
    und gut getestet. Bis jetzt kein Fehler mehr darin gefunden.
    Läuft alles wie es soll.
    Vielen Dank für Deine Hilfe und Arbeit.

    MfG.
    Dieter
    Gerne !
    13.09.2023 16:02:12
    onur

    304 Forumthreads zu ähnlichen Themen

    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
    Anzeige
    Tabellenblätter nach Liste erstellen
    Hannes

    Moin Moin,
    ich möchte gerne nochmal meine frage von gestern auffrischen...
    erst mal besten dank an Rudi...BESTEN DANK
    die programmierung läuft fast richtig.
    nur bei aktivierung haut ein LAUFZEITFEHLER 1004 dazwischen. wenn man dan beenden bzw debuggen drückt werden wie gewüsch a...
    03.12.2008 14:26:37
    Thread-ID: 1029835
    6 Beiträge
    Filtern mit mehreren Einträgen pro Zeile
    Nico

    Hallo,
    ich bin gerade dabei eine Kontaktliste zu erweitern.
    Pro Zeile ist ein Kontakt eingetragen.
    Ich will die Kontakte jetzt gruppieren können.
    Ich möchte einen Kontakt z.B. drei Kathegorien zuordnen ("Freunde", "München", "Schule")
    Bei einem anderen soll z.B. stehen "Beka...
    14.01.2009 19:41:32
    Thread-ID: 1039783
    12 Beiträge
    Anzeige
    Zeilennr. in gefilterten und markierten Bereich
    Kasimir

    Hallo Leute,
    ich stehe auf dem Schlauch und weiß ehrlich auch nicht so ganz, ob das was ich realisieren möchte überhaupt geht?
    Also, ich filtere über den Autofilter Daten. Bei diesen gefilterten Daten möchte ich danach einen Bereich, also mehrere zusammenhängende Zellen in einer Spalte...
    04.04.2009 08:21:59
    Thread-ID: 1066813
    7 Beiträge
    Datei automatisch speichern nach Eingabe
    Franz

    Hallo zusammen,
    habe folgendes Problem:
    über eine Vorlage (XLT) wird ein neues Arbeitsblatt erstellt. In 2 Zellen (D7 und B13) sollen Kundennummer und Reparaturnummer eingetragen werden. Auf dem Blatt gibt es einen Button der die Datei dann speichert und zwar in der Form: Kundennummer_R...
    29.04.2009 13:13:57
    Thread-ID: 1071890
    2 Beiträge
    stunden liste nach vorgabe filtern | Herbers Excel-Forum
    chris
    hallo zusammen ich hatte schon mal einen anlauf mit dieser frage aber ich bin trotzdem nicht weiter gekommen
    in der liste stehen alle meine stunden es letzten jahres, ich an den tagen verschiedene termine
    ich möchte rausfinden an wieviel tagen cih mehr als 8 stunden gearbeitet habe kann ma...
    25.01.2010 20:59:04
    Thread-ID: 1132844
    3 Beiträge
    Autofilter beginnt eine Zeile zu spät
    tco99


    Hallo zusammen,
    ich habe folgendes Problem:
    ich habe eine Beispielmappe gemacht. In dieser Mappe gibt es das Blatt "Daten" und das Blatt "Ausgabe". Mit einer Userform und den ComboBoxen in dieser Userform filtere ich die Daten und übertrage sie auf das Blatt "Ausgabe". Das Übertrag...
    05.03.2010 10:46:51
    Thread-ID: 1143590
    8 Beiträge
    Filtern nach Eingabe
    Steffen

    Guten Morgen. Ich tüftle seit ner Weile an folgendem Sachverhalt:
    Ich möchte eine Tabelle nacheinander nach allen Werte einer Spalte filtern und als PDF-Drucken. Die Spaltennummer in der gefiltert wird, steht unter
    Code:
    feg = ThisWorkbook.Worksheets("system").Range("E12").Value...
    07.04.2010 17:24:27
    Thread-ID: 1150498
    7 Beiträge
    Anzeige

    Links zu Excel-Dialogen

    CommandButton Frame

    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
    1
    6
    5
    11
    4
    6
    1
    2
    7
    6
    4
    1
    2
    2
    1
    1
    8
    2
    3
    16
    2
    6
    7
    8
    2