Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen markieren, bis die graue Zelle kommt bzw. ?

Forumthread: Zeilen markieren, bis die graue Zelle kommt bzw. ?

Zeilen markieren, bis die graue Zelle kommt bzw. ?
23.07.2007 18:21:00
Selma
Hallo Leute,
ich möchte gern per VBA die Zeilen wie folgt markieren und dann eine andere Routine aufrufen.
Markiert sollen die Zeilen ab aktive Zellenzeile bis in Spalte A die Zelle mit grauer Hintergrundfarbe (Interior.ColorIndex = 15) kommt bzw. nächste leere Zelle in Spalte A.
Anbei eine Beipieldatei: https://www.herber.de/bbs/user/44365.xls
Wie mache ich das ?
Vielen Dank im Voraus....
Liebe Grüße
Selma

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen markieren, bis die graue Zelle kommt bzw. ?
23.07.2007 21:35:00
Peter
Hallo Selma,
versuch es so:

Public Sub Markieren()
Dim lZeile  As Long
Dim lStart  As Long
lStart = ActiveCell.Row
For lZeile = lStart To Range("A65536").End(xlUp).Row
If Range("A" & lZeile).Interior.ColorIndex = 15 Or _
Range("A" & lZeile).Value = "" Then
Range("A" & lStart & ":A" & lZeile).Select
Exit For
End If
Next lZeile
End Sub


Gruß Peter

Anzeige
AW: Zeilen markieren, bis die graue Zelle kommt bzw. ?
23.07.2007 21:37:00
Peter
Hallo Selma,
ggf. noch diese Änderung: Range("A" & lStart & ":A" & lZeile - 1).Select
Gruß Peter

AW: Zeilen markieren, bis die graue Zelle kommt bz
23.07.2007 21:54:20
Selma
Hallo Peter,
erstmal vielen Dank für Deine Hilfe.
Ich habe Dein Code mit folgendem Ergebnis getestet :
a) z.B. wenn Zelle B8 aktiv ist, dann wird durch das Makro der Zellenbereich A8:A15 markiert.
Richtig wäre: Zeile 8 bis Zeile 15
b) z.B. wenn Zelle A17 aktiv ist, dann wird durch das Makro der Zellenbereich A17:A26 markiert.
Richtig wäre: Zeile 17 bis Zeile 26
c) z.B. wenn Zelle A34 aktiv ist, dann werden durch das Makro keine Zeilen markiert.
Richtig wäre: Zeile 34 bis Zeile 43
Ich hoffe Du kannst mir bitte bei Änderungen nochmal behilflich sein.
LG
Selma

Anzeige
AW: Zeilen markieren, bis die graue Zelle kommt bz
23.07.2007 21:58:49
Peter
Hallo Selma,
dann versuch es so:

Public Sub Markieren()
Dim lZeile  As Long
Dim lStart  As Long
lStart = ActiveCell.Row
For lZeile = lStart To Range("A65536").End(xlUp).Row
If Range("A" & lZeile).Interior.ColorIndex = 15 Or _
Range("A" & lZeile).Value = "" Then
Range("A" & lStart & ":IV" & lZeile - 1).Select
Exit For
End If
Next lZeile
End Sub


Gruß Peter

Anzeige
AW: Zeilen markieren, bis die graue Zelle kommt bz
23.07.2007 22:12:03
Peter
Hallo Selma,
du kannst anstelle von Range("A" & lStart & ":IV" & lZeile - 1).Select
auch Rows(lStart & ":" & lZeile - 1).Select schreiben, der Effekt ist der gleiche.
Gruß Peter

AW: Zeilen markieren, bis die graue Zelle kommt bz
23.07.2007 22:20:00
Selma
Hallo Peter,
a) und b) funktionieren. Nur dies nicht:
c) z.B. wenn Zelle A34 aktiv ist, dann werden durch das Makro keine Zeilen markiert.
Richtig wäre: Zeile 34 bis Zeile 43
LG
Selma

Anzeige
AW: Zeilen markieren, bis die graue Zelle kommt bz
23.07.2007 22:19:04
Peter
Hallo Selma,
den Punkt c) hatte ich noch vergessen:

Public Sub Markieren()
Dim lZeile  As Long
Dim lStart  As Long
lStart = ActiveCell.Row
For lZeile = lStart To Range("A65536").End(xlUp).Row + 1
If Range("A" & lZeile).Interior.ColorIndex = 15 Or _
Range("A" & lZeile).Value = "" Then
Rows(lStart & ":" & lZeile - 1).Select
Exit For
End If
Next lZeile
End Sub


Gruß Peter

Anzeige
Super..... vielen Dank Peter....
23.07.2007 22:21:00
Selma
LG
Selma
;

Forumthreads zu verwandten Themen

Bereich markieren bis zur ersten Zahl
michael

Hallo zusammen,
ich möchte in einem bestimmten Bereich alle Leerzellen bis zum Ersten Eintrgag pro Zeile markieren.
Habe schon verschiedene probiert, z.B. gehe zu Leerzellen, da sich aber zwischen den Einträgen Zellen ohne Werte befinden und ich die Leerzellen nur die Leerzellen vor dem...
21.09.2008 12:38:00
Thread-ID: 1011285
5 Beiträge
Anzeige
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Spalten ausblenden von - bis
-

Hallo an alle Cracks,
habe eine Beispieldatei angehängt. Ich würde gerne in den Zellen B1 und B2 als Eingabe für die Kalenderwochen definieren. z.B. ich gebe von KW 10 bis KW 15 anschließend werden alle Spalten ausgeblendet nur die sollen angezeigt werden in dem Interval von 10 - 15. Könnt...
20.02.2009 11:23:00
Thread-ID: 1052397
6 Beiträge
VBA Datumsspalte bis zum aktuellen Tag markieren
Michael

Hallo, ich habe einiges ausprobiert aber nichts hat annährend funktioniert daher suche ich nun hier Hilfe.
Ich habe eine Tabelle wo in der Spalte A immer ein Datum steht.
In Zelle E:3 befindet sich das aktuelle Datum.
Nun möchte ich gern das in Spalte A alle Werte bis zum Tag vor de...
10.06.2009 09:13:18
Thread-ID: 1080342
2 Beiträge
Ab von Tabelle8 bis Ende mache
Tabelle8

Hallo,
Ich würde gerne einen Kopiervorgang automatisieren.
Und zwar habe ich viele Tabellenblätter in einer Mappe, und es soll ab dem 8 Tabellenblatt bis zum letzen jeweils die gleiche Sub aufgerufen werden.
Ich kriege die Schleife mit dem hochzählen der Blätter nicht hin.
Wer k...
30.01.2010 13:56:48
Thread-ID: 1134370
10 Beiträge
Zelle nach unten und nächste Spalte analysieren
igoryg

Hallo an alle!
ich habe folgene Formel:
=WENN($D$5="x";ZÄHLENWENN(BL5:BL$21;1); )
Wenn ich diese Zelle einfach nach unten ziehe bekomme ich das da:
=WENN($D$5="x";ZÄHLENWENN(BL6:BL22;1); )
Mein Problem ist, dass ich das haben möchte:
=WENN($D$5="x";ZÄHLENWENN(BM5:BM21;1)...
22.07.2010 16:09:44
Thread-ID: 1168405
3 Beiträge
Zeilen bis ende löschen
gerhard

Hallo zusammen
bitte um Makro hilfe...
wie kann ich in Spalte A die Zelle in dem der Wert 1650 steht alle nachfolgenden Zeilen bis Ende löschen?
Vielen Dank für Eure Hilfe
Gruß G.
15.11.2010 13:18:48
Thread-ID: 1186841
3 Beiträge
Spalte nach unten ausfüllen, Bezug auf Zellen
Janet

Hallo Zusammen
Seid einigen Tagen versuche ich das nun hinzubekommen.
Ich finde einfach keine Lösung trotz lesen div.Berichte ect.
Nun hoffe ich auf Eure Hilfe.
Es betrifft folgendes:
Tabelle Übersicht mit Spalten (ich nenne sie Tab1)
A B C D E
Tabelle Verzeichnis mi...
08.08.2012 11:40:12
Thread-ID: 1274205
4 Beiträge
Anzeige
Spalten bis zum Schluss ausblenden
Matthias

Hallo miteinander,
wie ich per VBA einzelne oder auch mehrere Spalten ausblenden kann ist für mich klar.
Ich möchte jedoch, dass sämtliche Spalten bspw. ab Spalte AC aufwärts ausgeblendet werden und damit im Normalfall auch nicht mehr erreichbar sind. Wie bekommt man das hin?
Grupp...
20.08.2012 10:25:45
Thread-ID: 1275682
3 Beiträge
Anzeige
Zellen löschen bis ende
Kurt

Guten Morgen,
hatt gerade im Forum gestöbert, leider nicht das Richtige
gefunden.
Ich möchte die 1. Leerzelle in der Spalte A selektieren und von da aus alle
Zeilen bis Ende (65000) löschen.
mfg Kurt
29.11.2012 10:19:29
Thread-ID: 1288543
3 Beiträge
Automatisch markieren, bis folgende Zelle leer
Hermann

Hallo,fuer folgendes Problem suche ich einen VBA - Code:Ich moechte gerne ab einer bestimmten Zeile Zellen solange markieren (z.B. ab A6), bis eine leere Zelle kommt. Mit den markierten Zellen moechte ich dann naemlich ein Diagramm erstellen. Es kann auch sein, dass ich mehrer Reihen markiern m...
20.06.2002 22:52:01
Thread-ID: 130328
3 Beiträge
Spalten per VBA nach unten kopieren
Dierk

Guten Tag,
ich hätte eine Bitte. Ich suche einen Automatismus für folgende Fragestellung.
Ich habe in Spalte 1 das Datum stehen. In den folgenden Spalten jeweils die Umsätze einen Abt.
Datum 1 2 3
1.1.13 0 0 0
2.1.13 50 34 55
3...
28.08.2013 14:06:49
Thread-ID: 1328655
2 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