Gruppen
- Top Gruppen
- 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 / Skripte(PHP,ASP,Perl...)
Skripte(PHP,ASP,Perl...)
Fragevon snailhouse vom 14.11.2020, 19:11 Options
Excel VBA: Zeilen- und Spaltennummern aus Range auslesen (Druckbereich)
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
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
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
oWS.PageSetup.PrintAreaz.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 vom 21.11.2020, 15:43 OptionsLösung
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
Ähnliche Themen
markierte Zeilen auslesen
morpheus__85 05.07.2007 - 19 Hits - 3 Antworten
Excel, Zeilen beim Autostart automatisch über einen Wert in einer Spalte löschen
torsten110 09.11.2007 - 109 Hits - 4 Antworten
Excel VBA: Datei speichern, Excel beenden und Windows herunterfahren
snailhouse 15.11.2007 - 476 Hits - 1 Antwort
Excel VBA
drphilgonzo 17.01.2008 - 33 Hits - 1 Antwort
Excel VBA: Modul per Makro importieren in geschütztes VBA-Projekt (Passwort bekannt)
snailhouse 29.10.2008 - 75 Hits - 4 Antworten
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
