Macro um Zeilen farbig Kennzeichen

08.01.2026 16:23:01

Jörg

Hallo,
Ich habe da ein kleines Problem.
Ich möchte mit einem Macro in Verbindung mit einem Button in eine leere Zeile springen und sie farblich kennzeichnen. Denn Button habe ich und wie ich das Macro zuweise auch. Bei einem Eintrag oder beim verlassen soll die Zeile wieder die alte Farbe haben. Der Zeilenbereich geht von A bis M. Da die Mappe sehr groß ist macht es für mich Sinn das so zumachen, weil ich sonst zulange scrollen muss. Wäre schön, wenn mir jemand helfen könnte.
Vielen Dank schon mal im voraus.
Grüße Jörg

AW: Macro um Zeilen farbig Kennzeichen

08.01.2026 16:49:09

Daniel

Hi

Ich würde das so machen, mit 3 Teilschritten

1. Im Makro springst du die Zelle an und schreibst dann die Zeilen- und D
Spaltennummer in zwei freie Zellen (A1 und B1)

2. Im selectionCange-Event Makro leerst du diese beiden Zellen

3. Die Färbung machst du über die Bedingen Formel, mit folgender Regel:
=und(A1>"";Zeile()=$A$1;Spalte()=$B$1)

Wober "A1" (ohne $) die erste Zelle des Bereichs sein muss, für den du für bedingte Formatierung einrichtest .

Bedingte Formatierung ist hier das einfachste, weil damit die Originalformatierung erhalten bleibt und du diese dir weder merken noch wieder einrichten musst.

Gruß Daniel

AW: Macro um Zeilen farbig Kennzeichen

13.01.2026 18:53:58

Jörg

Vielen Dank für die Unterstützung.
Nach vielen probieren habe ich es hinbekommen.
Danke 😊

AW: Macro um Zeilen farbig Kennzeichen

13.01.2026 19:40:14

Alwin Weisangler

Gerne.

Gruß Uwe

AW: Macro um Zeilen farbig Kennzeichen

08.01.2026 17:31:30

Jörg

Hallo Daniel
danke für die schnelle Antwort.

Noch mal zu Erklärung. Ich denke, ich habe mich sehr unklar ausgedrückt.

Mein jetziger Code sieht so aus

Sub LeereZeile()
Dim Spalte As Range
Set Spalte = ActiveCell.EntireColumn
Spalte.Find("", ActiveCell, xlFormulas, xlWhole, xlByColumns, xlNext).Select
Set Spalte = Nothing
End Sub

Ich möchte eigendlich, er soll in die Zeile ab B springen, wenn sie leer ist. In dem Fall also z.B. B 34 bis M34
Diese soll er farbig hinterlegen. Zur besseren Unterscheidung.
Wenn ich in irgendein von diesen Zellen einen Eintrag mache, soll er wieder die alte Farbe haben.
Ich habe ein Extra Macro wo er automatisch immer beim Speichern in B4 spring. Zelle A ist schon belegt, da Zählt er einen Wert. Ab Zelle B4 geht es erst mit den eigendlichen Einträgen los.
Kann mir da geholfen werden?
Danke schon mal für eure Zeit

AW: Macro um Zeilen farbig Kennzeichen

08.01.2026 18:02:34

Alwin Weisangler

Hallo Jörg,

mal ein ganz anderer Denkansatz:
Im Ribbonband (Menü) ein Tab angelegt. Im Tab 2 Button eingebaut.

1. Button Sprung zur ersten freien Zelle in Spalte A und markiert diese Zeile grün.
2. Button hebt Grün der Zeile auf und springt zu der ursprünglichen selektierten Zelle zurück.

Ist vielleicht von der Handhabung sinnvoller.
https://www.herber.de/bbs/user/179989.xlsm
Teste mal.

Gruß Uwe

AW: Macro um Zeilen farbig Kennzeichen

08.01.2026 18:15:23

Jörg

Hallo,
vielen Dank.
Leider funktioniert es nicht.
Er springt zwar in die Leere Zelle, das wars dann auch schon.
Also wie bei meinem Code

Noch mals Danke

AW: Macro um Zeilen farbig Kennzeichen

08.01.2026 18:43:23

Alwin Weisangler

Hallo Jörg,

das was ich dir hochgeladen habe macht exakt das, was ich dir beschrieben habe. Vorteil kein Scrollen zu irgendeinem Button auf dem Tabellenblatt.

Falls der 2. Button nicht benutzt wird, kann man via Worksheet_SelectionChange dies auf demselben Weg wie in der Ereignisprozedur des Ribbonbutton dies einbauen. Siehe im Modul1 Btn2_Callback(control As IRibbonControl).

Gruß Uwe

AW: Macro um Zeilen farbig Kennzeichen

08.01.2026 18:59:07

Jörg

Vielen lieben Dank Uwe,

werde es morgen noch mal probieren. Gebe dann bescheid.
Danke noch mal für die schnelle Hilfe.

Grüße Jörg

AW: Macro um Zeilen farbig Kennzeichen

10.01.2026 17:01:44

Jörg

Hallo noch mal,
Ich denke, das ich absoluter Anfänger bin. Leider kann ich den Macrobefehl in die leere Zeile springen nachvollziehen noch weiß ich nicht, wie ich die Pfeile für das hin und her springen im Menü hinbekommen soll. Mit der bedingten Formatierung funktioniert es auch nicht.
Mein Sprungbefehl funktioniert ja, aber ich möchte gern eine Einfärbung der ganzen Reihe. Die Tabelle fängt bei A4 an und geht bis N800.
Vielleicht kann mir einer die einzelnen Schritte erklären. Habe im Web schon geschaut. Es wird aber immer ein für mich hohes Wissen verlangt. Ich weiß wie man Macros Aufzeichnet und wie sieeee dann auf einen Button gelegt werden oder in der Mappe gestartet werden. Aber bei sowas bin ich ratlos.
Danke schon mal für euer Verständnis

AW: Macro um Zeilen farbig Kennzeichen

10.01.2026 17:51:44

Alwin Weisangler

Hallo Jörg,

die beiden "Pfeile" sind Button. Die Ereignisprozedur des Buttons "Leere Zeile Zeigen":



Sub Btn1_Callback(control As IRibbonControl)

    Dim rng As Range

    With Tabelle1

        tmp = Replace(Selection.Address, "$", "")

        Set rng = .Columns("A:A").Find("")

        If Not rng Is Nothing Then

            With .Rows(rng.Row & ":" & rng.Row)

                .Interior.Color = vbGreen

                .Activate

                tmp = tmp & "###" & rng.Row

            End With

        End If

    End With

End Sub

sucht mit der Methode .Find die erste leere Zelle in Spalte A, aktiviert diese Zelle (setzt den Corsor in diese Zelle) und färbt die komplette Zeile Grün. Des Weiteren wird eine Variable mit der Bereichsadresse des letzten aktivierten Bereiche oder Zelle gefüllt und ebenso die Zeilennummer, der grün gefärbten Zeile. Dies ist für den 2. Button nötig.

Die Ereignisprozedur des 2. Buttons:



Sub Btn2_Callback(control As IRibbonControl)

    Dim tmp1

    tmp1 = Split(tmp, "###")

    With Tabelle1

        .Rows(CDbl(tmp1(1)) & ":" & CDbl(tmp1(1))).Interior.Color = xlNone

        .Range(tmp1(0)).Activate

    End With

End Sub

Hebt die Grünfärbung der Zeile auf und der ursprüngliche Bereich oder Zelle wird wieder aktiviert.
Das ist die Funktionalität der Datei, die ich dir hochgeladen hatte.

Gruß Uwe

AW: Macro um Zeilen farbig Kennzeichen

10.01.2026 17:35:27

Jörg

Hallo noch mal,
Ich denke, das ich absoluter Anfänger bin. Leider kann ich den Macrobefehl in die leere Zeile springen nachvollziehen noch weiß ich nicht, wie ich die Pfeile für das hin und her springen im Menü hinbekommen soll. Mit der bedingten Formatierung funktioniert es auch nicht.
Mein Sprungbefehl funktioniert ja, aber ich möchte gern eine Einfärbung der ganzen Reihe. Die Tabelle fängt bei A4 an und geht bis N800.
Vielleicht kann mir einer die einzelnen Schritte erklären. Habe im Web schon geschaut. Es wird aber immer ein für mich hohes Wissen verlangt. Ich weiß wie man Macros Aufzeichnet und wie sieeee dann auf einen Button gelegt werden oder in der Mappe gestartet werden. Aber bei sowas bin ich ratlos.
Danke schon mal für euer Verständnis

Macro um Zeilen farbig Kennzeichen

Forumthread: Macro um Zeilen farbig Kennzeichen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Macro um Zeilen farbig Kennzeichen

Forumthread: Macro um Zeilen farbig Kennzeichen

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

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread