Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1552to1556
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
1552to1556
1552to1556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile bis zur letzten nicht leeren Zelle markieren

Zeile bis zur letzten nicht leeren Zelle markieren
21.04.2017 23:08:51
Barbaraa
Hallo
Zellen "B2:K2" haben einen Inhalt drin, wobei auch eine andere Zelle, zB "EW2", die letzte beschriebene sein kann. Es geht also nur um eine Zeile.
Würde gerne für diese Zellen einen Range bilden, um ihn dann für "For each" zu verwenden.
Dim Bereich as Range
Bereich=Range(cells(2,2), ... (weiter weiss ich nicht mehr)
Bereich.Select
und dann soll "xltoLeft" vorkommen.
Vielleicht gibt es einen einfachen Ausdruck?
LG, Barbara

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile bis zur letzten nicht leeren Zelle markieren
21.04.2017 23:31:03
Sepp
Hallo Barbara,
vielleicht reicht schon
Range("B2").CurrentRegion
Gruß Sepp

AW: Zeile bis zur letzten nicht leeren Zelle markieren
21.04.2017 23:44:10
Dirk
Hallo,
vielleicht hilft dieser Code weiter?
Dim rng As Range
Dim rngCell As Range
Set rng = Range(Cells(2, 2), Cells(2, 2).End(xlToRight))
For Each rngCell In rng.Cells
rngCell.Select
Next
LG, Dirk Soetebeer
AW: Zeile bis zur letzten nicht leeren Zelle markieren
21.04.2017 23:56:33
Barbaraa
Hi,
danke, das funktioniert.
Und wenn der gewählte Bereich bis zur letzten beschriebenen Zelle der Zeile gehen soll?
(wenn also auch ein paar leere Zellen dazwischen erlaubt sind)
LG, Barbara
Anzeige
AW: Zeile bis zur letzten nicht leeren Zelle markieren
22.04.2017 00:26:35
Dirk
Hallo,
in dem Fall kann dieser Code weiterhelfen:

Dim rng As Range
Dim rngCell As Range
Set rng = Intersect(ActiveSheet.UsedRange, Rows(2))
'Set rng = Range(Cells(2, 2), Cells(2, 2).End(xlToRight))
For Each rngCell In rng.Cells
rngCell.Select
Next
LG, Dirk
AW: Zeile bis zur letzten nicht leeren Zelle markieren
22.04.2017 10:30:01
Gerd
Hallo Barbara,
der UsedRange umfasst abgekürzt gefüllte und einmal gefüllt gewesene Zellen.
Sub ccc()
Dim RNG As Range
With Sheets("Tabelle1")
Set RNG = .Range(.Cells(2, 2), .Cells(2, .Columns.Count).End(xlToLeft))
End With
MsgBox RNG.Address
End Sub
Gruß Gerd
Anzeige
AW: Zeile bis zur letzten nicht leeren Zelle markieren
28.04.2017 22:39:24
Barbaraa
HI Gerd,
hoffe, mein Dank erreicht Dich noch. Diese Thema ist im Forum bereits unten raus gefallen.
Ich hatte ursprünglich
Set Bereich = .Range(.Cells(2, 2), .Cells(2, .Cells(2, .Columns.Count).End(xlToLeft).Column))
verwendet. Funktioniert, aber Deine Lösung ist etwas kürzer und übersichtlich.
Wieder was gelernt.
Danke,
LG, Barbara

319 Forumthreads zu ähnlichen Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Anzeige
MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Anzeige
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Summe von bis, abhängig vom Datum in Zelle C4
bis,

Vielen Dank für eure Hilfe, Beispieldatei ist hier zu finden https://www.herber.de/bbs/user/56782.xls
Hallo liebe Helfer,
ich habe ein Tabellenblatt, mit mehreren Zeilen als im Beispiel angegeben, mit IST-Werten (Monat schon kummuliert) und ein Tabellenblatt mit den PLAN-Werten für jede...
14.11.2008 11:30:00
Thread-ID: 1024502
7 Beiträge
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
summenprodukt mit 2 wenn's geht nicht?
Silvi


Moin zusammen,
muß eine ziemlich komplexe Abfrage machen und habe mir untenstehende ellenlange Formel ausgedacht, die leider nicht funktionert... :o( Hat von Euch jemand eine Idee, wie man das eleganter lösen könnte (ohne Makro?). Vielleicht ist nur eine Klammer falsch? Ich komm nicht...
23.01.2009 10:30:18
Thread-ID: 1042851
8 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
3
5
5
2
9
2
6
9
10
7
5
4
9
7
1
5
4
23
23
3
6
9
3
7
9