Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Kauz vom 27.08.2020, 22:22 Options

Eckpunkte eines markierten Bereichs(VBA)

Hallo in die Runde...

ich möchte gerne per VBA die Eckpunkte eines beliebigen
markierten Bereichs ermitteln.

Mit
Target.Row und Target. Column
bekomme ich den Eckpunkt oben links.
Mit Target. Count die Anzahl der markierten Felder.

Soweit so gut....
wie bekomme ich den unteren rechten Eckpunkt raus?

So was wie Target.Row.Count und Target.Column.Count gibt es scheinbar nicht.

Weiß dafür jemand Rat?

Sollte für Excel ab 2003 sein.

Gruß
Andreas

Antwort schreiben

Antwort 1 von rainberg vom 27.08.2020, 23:06 Options

Hallo Andreas,

da fällt mir auf die Schnelle das ein

Sub test()
    MsgBox ActiveCell.Address
    MsgBox ActiveCell.Offset(0, Selection.Columns.Count - 1).Address
    MsgBox ActiveCell.Offset(Selection.Rows.Count - 1, 0).Address
    MsgBox ActiveCell.Offset(Selection.Rows.Count - 1, Selection.Columns.Count - 1).Address
End Sub

Gruß
Rainer

Antwort 2 von Kauz vom 28.08.2020, 00:06 Options

Hallo Rainer..

Habe anstelle .Address - .Row und .Column eingestetzt:

MsgBox ActiveCell.Offset(0, Selection.Columns.Count - 1).Column
MsgBox ActiveCell.Offset(Selection.Rows.Count - 1, 0).Row

Damit bekomme ich genau was ich brauche!

Vielen Dank
Gruß
Andreas

Antwort 3 von nighty vom 28.08.2020, 13:09 Options

hi all

noch ein wenig info

gruss nighty

Sub makro01()
Rem letzte zeile eines sheets
a = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Rem letze spalte eines sheets
b = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Rem letzte zeile einer spalte
c = ActiveSheet.Range("D" & Rows.Count).End(xlUp).Row
Rem letzte spalte einer zeile
d = ActiveSheet.Range("3:3").End(xlToRight).Column
End Sub

Antwort 4 von Kauz vom 28.08.2020, 19:54 Options

Hi nighty...

es bewahrheitet sich immer wieder:

Viele Wege führen nach Rom!

Auch Dir besten Dank für die 'Zusatzinfo'.

Gruß
Andreas

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken