Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Excel VBA: Zeilen- und Spaltennummern aus Range auslesen (Druckbereich)
Frage
Hallo zusammen,
ich möchte den aktuellen Druckbereich im Worksheet oWS auslesen und den Range, den ich dabei erhalte in einzelne Zeilen und Spaltennummern zurückgeben (im Prinzip die beiden "Eckpunkte")
Das Auslesen löse ich mit
[code]oWS.PageSetup.PrintArea[/code]
z.B. bekomme ich dann hier $A$1:$B$4,
daraus möchte ich die Eckpunkte cell(1,1) und cell(4,2)
aber wie bekomme ich die Einzelwerte in die Variablen ??
lZeileDruckbereichStart [1]
lZeileDruckbereichEnde [4]
iSpalteDruckbereichStart [1]
iSpalteDruckbereichEnde [2]
Für Eure Mühe im voraus vielen Dank!
Jürgen
Antwort 1 von kicia
geht vielleicht auch einfacher, aber:
Sub getArea()
Dim oWS As Worksheet
Dim r As Range
Set oWS = ActiveSheet
Set r = Range(oWS.PageSetup.PrintArea)
a = r.Cells(1).Row
b = r.Cells(1).Column
c = r.Cells(r.Cells.Count).Row
d = r.Cells(r.Cells.Count).Column
MsgBox a & " " & b
MsgBox c & " " & d
End Sub