Hey zusammen,
ich möchte über ein Auswahlfenster ein Bereich einer Tabelle auswählen und als "Drucktitel" weiterübergeben.
Die Auswahl klappt prima mit:
On Error Resume Next
Dim DruckBereich As Range
Set DruckBereich = Application.InputBox("Bitte markieren Sie einen Bereich der im Drucktitel auf jeder Seite erscheinen soll", _
"Bereich wählen", , , , , , 8)
MsgBox "Sie haben für den Drucktitle folgenden Bereich ausgewählt: " & _
DruckBereich.AddressLocal(False, False)
On Error GoTo 0
Jetzt möchte ich die "Start"-Zeilen-Nummer und die "End"-Zeilennummer aus dem Auswahlbereich "extrahieren" und diese weitergeben für die "Festlegung" des Drucktitel-Zeilen:
ActiveSheet.PageSetup.PrintTitleRows = ("$A[STARTZEILENNUMMER]:$A[ENDZEILENNUMMER]")
Als kompletter VBA-Neuling kriege ich es gerade leider nicht hin, dies aus dem "DruckBereich.AddressLocal" zu extrahieren.
Freu mich über jegliche Hilfe
VG