Hallo und einen schönen Feierabend,
ich beschäftige mich gerade mit der CurrentRegion Methode. Mit dem Befehl:
Code:
Range("A1").Select
ActiveCell.CurrentRegion.Select
bekomme ich genau das was ich möchte. In der Spalte A einen Zellenblock mit Inhalt bis zur ersten Leerzelle in Spalte A. Doch jetzt habe ich ein Problem.
Das funktioniert nur solange in Spalte B nichts steht.
Wie erhalte ich den Status Quo, wenn Spalte B beschrieben wird?
Moin,
ich denke, dass wir dir besser helfen können, wenn du ohne (suboptimal angewendete) Fachbegriffe nur beschreibst, was du warum erreichen willst. Insbesondere weil ich das Gefühl habe, dass du im Einsteiger-Status bist…
Hallo,
z.B. so:
Range("A:A").SpecialCells(xlCellTypeConstants).Areas(1).Select
Gruß Uwe
Hallo,
mit Currentregion so:
ActiveCell.CurrentRegion.Columns(1).Select
oder
ActiveCell.CurrentRegion.Columns("A").Select
In dem Zusammenhang würde ich mir in der OH auch die Schlüsselwörter Offset, Resize , Row, Column, Columns.Count, Rows.Count anschauen.
1. Danke an Uwe, der Code funktioniert wie gewünscht.
2. An Atilla: Dein Code macht bisher leider nichts. Könntest du den nochmal überarbeiten? Danke.
3. Wichtig!!!!
Wenn ich den Code von Uwe leicht modifiziere, also
Code:
Columns(1).SpecialCells(xlCellTypeConstants).Areas(1).Select
schreibe. Erhalte ich wieder nicht das gewünschte Ergebnis. Ich dachte immer Columns(1) und Range("A:A") sind identisch. Wo liegt mein Denkfehler?
Hallo,
Columns(1).SpecialCells(xlCellTypeConstants).Areas(1).Select
macht bei mir dasselbe.
Gruß Uwe
Hallo,
Range("A1").CurrentRegion.Columns(1).Select
Hallo Atilla,
auch dieser Code bringt keine Verbesserung:
Code:
Range("A1").CurrentRegion.Columns(1).Select 'liefert nicht das gewünschte Ergebnis
Bis jetzt liefert nur die von Uwe ins Forum gestellte Version das gewünschte Ergebnis.
Bitte zeig mal deine Datei.
Ich hoffe es gibt keine 'merged cells'
Hallo Leute,
Uwe hatte mir vor einigen Tagen in diesem Thread mit dieser Formel sehr weitergeholfen:
Code:
Range("A:A").SpecialCells(xlCellTypeConstants).Areas(1).Select
Damit kann ich einen zusammenhängenden Block unter Ausschluss von Leerzeilen markieren.
Jetzt frage ich mich wie die entsprechende Formel aussehen müßte, um alle Blöcke in Spalte A in denen etwas steht zu markieren?
Danke schon mal im vorraus für euere Hilfen und euren Rat.