Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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

Anzeige
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

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

305 Forumthreads zu ähnlichen 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
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
Anzeige
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
A1 bis letzte verwendete Zelle markieren
Marten

Hallo,
bin mal wieder auf der Suche im Internet nicht fündig geworden. Ich würde gerne in meiner Excel-Datei einen bestimmten (variablen) Bereich markieren. Anfangspunkt hierfür ist immer "A1". Nun soll Excel mir den Bereich von A1 bis zur letzten verwendeten Zelle in Zeile 1 markieren. Das...
03.08.2011 10:38:39
Thread-ID: 1224691
4 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

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
4
2
5
1
3
9
2
2
3
3
2
21
10
2
2
4
1
9
2
4
2
8
5
3
5