Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen markieren, wenn in Zelle A ein Wert steht

Forumthread: Zeilen markieren, wenn in Zelle A ein Wert steht

Zeilen markieren, wenn in Zelle A ein Wert steht
Ingo
Gut Tag mal wieder
Ich möchte mit VBA alle Zeilen, in denen in Zelle A ein Wert steht,
von A bis L markieren.
Hier mal ein Beispiel:
-----A-----B-----C-----D-----E-----F-----G-----H-----I-----J-----K-----L
-1----------X-----X-----X-----X-----X-----X-----X-----X-----X-----X-----X
-2---X-----X-----X-----X-----X-----X-----X-----X-----X-----X-----X-----X
-3----------X-----X-----X-----X-----X-----X-----X-----X-----X-----X-----X
-4---X-----X-----X-----X-----X-----X-----X-----X-----X-----X-----X-----X
-5---X-----X-----X-----X-----X-----X-----X-----X-----X-----X-----X-----X
-6----------X-----X-----X-----X-----X-----X-----X-----X-----X-----X-----X
Die Striche habe ich nur gemacht, damit hier im Forum alles anständg
untereinander steht :)
Wie mann sehen kann stehen hier nur in den Zeilen 2,4 und 5 jeweils
ein Wert in Zelle A.
Somit sollen also auch nur in Zeile 2,4 und 5 Die Spalten A-L markiert werden.
Da ich selber so etwas in VBA leider nicht schaffe,
würde ich mich riesig freuen, wenn mir jemand von Euch
den entsprechenden VBA-Code "machen" könnte :)
Gruß
Ingo
Anzeige
AW: Zeilen markieren, wenn in Zelle A ein Wert steht
Pepi
Hallo Ingo,
schau dir mal Format Bedingte Formatierung an.
Habe ein kleines Beispiel angehängt.
Grüsse
Pepi
Wo ist denn Dein Beispiel ?
Ingo
Lieber Pepi
-- Habe ein kleines Beispiel angehängt.
Wo ist denn Dein Beispiel ?
Gruß
Ingo
AW: Wo ist denn Dein Beispiel ?
Pepi
Hallo Ingo,
https://www.herber.de/bbs/user/6003.xls
Sorry, hab ganz drauf vergessen.
Grüsse
Pepi
Anzeige
AW: Wo ist denn Dein Beispiel ?
04.05.2004 14:33:24
Ingo
Lieber Pepi
Mein Anliegen wurde inzwischen weiter untern in diesem Thread gelöst.
Aber trotzdem natürlich auch Dir vielen lieben Dank für Deine Tipps.
Gruß
Ingo
AW: Zeilen markieren, wenn in Zelle A ein Wert steht
xXx
Hallo,
markiere den Bereich, dann Format-Bedingte Formatierung.
Formel ist: =$a1"" und Format(Muster) auswählen.
Gruß aus'm Pott
Udo
Anzeige
AW: Zeilen markieren, wenn in Zelle A ein Wert steht
Uwe
Hallo Ingo,
so sollte es gehen:

Sub ZeilenMarkieren()
Dim GefBer As Range
Dim SuchBer As Range
Dim SucheNach
Dim Z As Range
SucheNach = "x"
Set SuchBer = Range("A1:A" & Columns("A").EntireColumn.Find("*", searchdirection:=xlPrevious).Row)
For Each Z In SuchBer.Cells
If Z.Value = SucheNach Then
If GefBer Is Nothing Then
Set GefBer = Range(Cells(Z.Row, 1), Cells(Z.Row, 12))
Else
Set GefBer = Application.Union(GefBer, Range(Cells(Z.Row, 1), Cells(Z.Row, 12)))
End If
End If
Next Z
If Not GefBer Is Nothing Then GefBer.Select
End Sub

Gruß Uwe
Anzeige
Funktioniert leider noch nicht.
Ingo
Lieber Uwe
Vielen lieben Dank erstmal für Deine schnelle Hilfe !
Aber leider will es noch nicht richtig funtionieren.
Ich habe folgenden Code als Modul hinzugefügt:
Option Explicit

Sub AAA()
Dim GefBer As Range
Dim SuchBer As Range
Dim SucheNach
Dim Z As Range
SucheNach = "x"
Set SuchBer = Range("A1:A" & Columns("A").EntireColumn.Find("*", searchdirection:=xlPrevious).Row)
For Each Z In SuchBer.Cells
If Z.Value = SucheNach Then
If GefBer Is Nothing Then
Set GefBer = Range(Cells(Z.Row, 1), Cells(Z.Row, 12))
Else
Set GefBer = Application.Union(GefBer, Range(Cells(Z.Row, 1), Cells(Z.Row, 12)))
End If
End If
Next Z
If Not GefBer Is Nothing Then GefBer.Select
End Sub

Wennn ich nun das Makro "AAA" ausführe, passiert leider garnichts.
Was mache ich falsch ?
Es würde mich riesig freuen, wenn Du mir da noch weiter helfen könntest.
Gruß Ingo
Anzeige
AW: Funktioniert leider noch nicht.
Uwe
Hallo Ingo,
vielleicht liegt es daran, das in den Zellen große X-se stehen. Groß- Kleinschreibung
wird unterschieden.
Gruß Uwe
kann es sein...
P@ulchen
dass hier ein Mißverständnis vorliegt ?
Ich glaube, dass Ingo alle Zeilen markieren will, die in Spalte A nicht leer sind.
Der Code von Uwe markiert jedoch alle Zeilen, die in Spalte A ein "x" haben...
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
P@ulchen hat Recht
Ingo
Lieber Uwe
Da habe ich mich in meinem ersten Posting vielleicht etwas
unklar ausgedrückt.
Ich möchte NICHT die Zeilen markieren, die in Spalte A ein "X" haben.
Sondern ich möchte alle Zeilen marieren, die in Spalte A nicht leer sind.
Liesse sich Dein Code da abändern ?
Über Deine Hilfe freut sich natürlich immer noch sehr der
Ingo aus Münster :)
Anzeige
AW: P@ulchen hat Recht
Uwe
Hallo Ingo, Hallo Paul,
hab ich tatsächlich falsch verstanden.
@Ingo:
ersetze die Zeile
If Z.Value = SucheNach Then
durch
If Not IsEmpty(Z) Then
Gruß Uwe
DANKE ... genau so klappts ! ... (o.T.)
04.05.2004 14:32:09
Ingo
o.T.

Forumthreads zu verwandten 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
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Anzeige
Zeile markieren, wenn sich der Wert wechselt
Peter

Hallo Forum, ich habe mir mit Hilfe von Eueren Beiträgen ein Makro gebastelt. Jetzt sollte noch jeweils die letzte Zeile markiert werden, wenn sich der Wert ändert (s. Beispiel). Baue auf Euere Hilfe, habe in der Recherche nichts Passendes gefunden. Danke im voraus. Gruß Peter
Die Datei htt...
23.06.2009 17:03:12
Thread-ID: 1083879
8 Beiträge
Anzeige
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
Spalte markieren (Zelle) VBA
Dirk

Hallo,
Kurze Problemschilderung:
In dem Makro wird eine bestimmte (über inputbox eingegebene Zelle) gesucht.
ich möchte den Inhalt löschen, aber nicht nur den Inhalt der Zelle, sondern eines bestimmten Bereiches in der Spalte (range(X1:X70 um genau zu sein).
weiss jemand wie das m...
22.05.2002 10:03:44
Thread-ID: 122609
6 Beiträge
vba; erste und letzte zelle markieren
Günter

Guten Tag,
bräuchte was in VBA, welches mir die erste gefüllte Zelle bis zur letzten gefüllten Zelle
kopiert.
Schönen Gruß
Günter
04.05.2011 13:35:30
Thread-ID: 1213067
3 Beiträge
Zeilen markieren: "Zählenwenn" bei 2 Bedingungen
Rita

Excel 2011 auf Mac OS X Mountain Lion
Liebe Fachleute,
ich stehe mal wieder auf meiner Leitung. Habe viele Beiträge auch andernorts gelesen und finde einfach nicht die korrekte Formel für meine Spalte C:
Es gibt 3 Spalten (A + B +C).
In Spalte A, maximal 1000 Zeilen, stehen vie...
03.05.2013 15:00:01
Thread-ID: 1311542
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
Anzeige
Laufzeitfehler beim Markieren von Zellen in VBA
Zellen

Hallo,
ich stehe mal wieder auf dem Schlauch.
Wiese bekomme ich bei der Markierung über ".Range(Cells(4,6),..." wie unten angegeben, einen Laufzeitfehler?
Wenn ich die Zellen über F4 bis ... angebe, funktioniert es.

.
.
With Worksheets("Test")
.Activate
.Ran...
08.08.2013 16:16:06
Thread-ID: 1326200
8 Beiträge
Anzeige
Zeile markieren, wenn Wert vorhanden
Daniel

Hallo,
ich habe eine kleines Problem:
ich will die Spalte F nach dem Wort "Kunde" durchsuchen
und mir die Zeilen von der Spalte A:S rot markieren lassen,
wo dieser Wert vorhanden ist.
Will mein Makro durch diese Funktion ein bisschen ausbauen.
Vielen Dank.
Gruß Danie...
02.12.2013 14:32:54
Thread-ID: 1340886
4 Beiträge
Zeile Farbig markieren Wenn Wert 1250 & Höher Ist
Leo

Tag Excel Cracks,
ich raff es einfach nicht,
was ich wie machen muss damit mir die E SPALTE bei einem Wert von 1250 & höher farbig (am besten in ROT) selbstständig automatisch aufgefüllt wird !?
Hier meine Vorarbeit ...
@ https://www.herber.de/bbs/user/93321.xls
Für Eur...
23.10.2014 17:44:34
Thread-ID: 1388295
5 Beiträge
Alle Zeilen mit Eintrag markieren (ab Zeile 10)
Schulle

Hallo Leute,
ich hoffe, ihr könnt mir helfen. Gibt es eine Möglichkeit ab Zeile 10 alle Zeilen zu markieren, bei denen in Spalte 1 ein Eintrag enthalten ist. Währe mir wichtig um diese Zeilen manuell schnell in in ein anderes Tabellenblatt kopieren zu können. Ist nämlich manchmal ganz schön...
25.05.2015 12:23:18
Thread-ID: 1427638
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zeilen markieren, wenn in Zelle A ein Wert steht

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und lade die Datei, in der Du die Zeilen markieren möchtest.

  2. Öffne den VBA-Editor: Drücke ALT + F11.

  3. Füge ein neues Modul hinzu: Rechtsklicke im Projekt-Explorer auf VBAProject (DeineDatei), wähle Einfügen und dann Modul.

  4. Kopiere den folgenden VBA-Code in das Modul:

    Sub ZeilenMarkieren()
   Dim GefBer As Range
   Dim SuchBer As Range
   Dim Z As Range

   Set SuchBer = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)

   For Each Z In SuchBer.Cells
       If Not IsEmpty(Z) Then
           If GefBer Is Nothing Then
               Set GefBer = Range(Cells(Z.Row, 1), Cells(Z.Row, 12))
           Else
               Set GefBer = Application.Union(GefBer, Range(Cells(Z.Row, 1), Cells(Z.Row, 12)))
           End If
       End If
   Next Z

   If Not GefBer Is Nothing Then GefBer.Select
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Führe das Makro aus: Drücke ALT + F8, wähle ZeilenMarkieren aus und klicke auf Ausführen.

Jetzt sollten alle Zeilen, in denen in Zelle A ein Wert steht, von A bis L markiert werden.

Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht, oder es wird nichts markiert.
    Lösung: Stelle sicher, dass die Zellen in Spalte A nicht leer sind. Der Code markiert nur die Zeilen, in denen Zelle A einen Wert enthält.

  • Fehler: Groß- und Kleinschreibung wird nicht berücksichtigt.
    Lösung: Achte darauf, dass Du den Wert in Zelle A korrekt eingibst, wenn Du eine spezifische Bedingung hast.

Alternative Methoden

  1. Bedingte Formatierung:

    • Markiere den Bereich A1:L100.
    • Gehe zu Start > Bedingte Formatierung > Neue Regel.
    • Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden und gib die Formel =NOT(ISBLANK($A1)) ein.
    • Wähle das gewünschte Format und klicke auf OK.

  2. Excel-Funktionen:

    • Wenn Du nur visuell hervorheben möchtest, kannst Du auch die Funktion =WENN($A1<>""; "Markieren"; "") verwenden und die Zellen entsprechend formatieren.

Praktische Beispiele

  • Beispiel 1: Du hast die Daten in den Zeilen 1 bis 10 in Spalte A und möchtest alle Zeilen markieren, in denen Werte vorhanden sind. Der oben angegebene VBA-Code funktioniert dafür perfekt.

  • Beispiel 2: Wenn Du eine Liste hast, in der Du nur die Zeilen markieren möchtest, die in einer bestimmten Liste stehen, kannst Du die Formel in der bedingten Formatierung anpassen:

    =ISTEXT($A1)

Tipps für Profis

  • Verwendung von Variablen: Du kannst die Suchbereiche und Formate in Variablen speichern, um den VBA-Code übersichtlicher und flexibler zu gestalten.
  • Optimierung: Bei großen Datenmengen kann das Markieren von Zeilen mit VBA schneller sein als manuelle Methoden und hilft, die Performance zu verbessern.
  • Makros speichern: Vergiss nicht, Deine Excel-Datei im .xlsm-Format zu speichern, um die Makros zu behalten.

FAQ: Häufige Fragen

1. Frage
Wie kann ich die Zeilen markieren, wenn die Zelle A einen bestimmten Wert hat?
Antwort
Ändere die Bedingung im VBA-Code von If Not IsEmpty(Z) Then zu If Z.Value = "deinWert" Then.

2. Frage
Kann ich das Makro so ändern, dass es auch Zeilen markiert, wenn in A ein Wert steht, aber auch in B?
Antwort
Ja, Du müsstest die If-Bedingung entsprechend anpassen, um auch die Zelle B zu überprüfen: If Not IsEmpty(Z) Or Not IsEmpty(Z.Offset(0, 1)) Then.

Beliebteste Forumthreads (12 Monate)

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