Registriert seit: 30.01.2016
Version(en): 2010
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?
Registriert seit: 28.05.2014
Version(en): 2013 / 2016
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!
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo,
z.B. so:
Range("A:A").SpecialCells(xlCellTypeConstants).Areas(1).Select
Gruß Uwe
Registriert seit: 14.04.2014
Version(en): 2003, 2007
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
Registriert seit: 30.01.2016
Version(en): 2010
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?
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo,
Columns(1).SpecialCells(xlCellTypeConstants).Areas(1).Select
macht bei mir dasselbe.
Gruß Uwe
Registriert seit: 14.04.2014
Version(en): 2003, 2007
Hallo,
Range("A1").CurrentRegion.Columns(1).Select
Gruß Atilla
Registriert seit: 30.01.2016
Version(en): 2010
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.
Registriert seit: 29.09.2015
Version(en): 2030,5
13.02.2016, 14:56
(Dieser Beitrag wurde zuletzt bearbeitet: 13.02.2016, 14:57 von snb.)
Bitte zeig mal deine Datei.
Ich hoffe es gibt keine 'merged cells'
Registriert seit: 30.01.2016
Version(en): 2010
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.
