Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

CurrentRegion auf eine Spalte beschränken
#1
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?
Antworten Top
#2
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…
Beste Grüße
  Günther

Excel-ist-sexy.de
  …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Antworten Top
#3
Hallo,

z.B. so:

Range("A:A").SpecialCells(xlCellTypeConstants).Areas(1).Select

Gruß Uwe
Antworten Top
#4
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.
Gruß Atilla
Antworten Top
#5
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?
Antworten Top
#6
Hallo,

Columns(1).SpecialCells(xlCellTypeConstants).Areas(1).Select

macht bei mir dasselbe.

Gruß Uwe
Antworten Top
#7
Hallo,

Range("A1").CurrentRegion.Columns(1).Select
Gruß Atilla
Antworten Top
#8
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.
Antworten Top
#9
Bitte zeig mal deine Datei.

Ich hoffe es gibt keine 'merged cells'
Antworten Top
#10
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.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste