Wie Range in 'nomale' Adresse umsetzen?

Hi Tina,

bezogen auf meinen Beitrag
/t/tabellen-per-makro-als-grafiken-speichern/4816304/4

biste sicher mit dem Link?

möchte ich gerne den Bereich, der im dargestellten Code (unter
Function SelectArea) als Funktion zum Auswählen definiert ist,
von VBA automatisch auswählen lassen. Ich kann den Bereich
auch selektieren, indem ich mir die letzte Zeile und die
letzte Spalte ausrechne und dann sage:

range(cells(1,1), cells (Cletzte, Rletzte).select

Das ergibt zum Beispiel einen Bereich A1 bis BF25
Wie kann ich das in VBA als „normale Adresse“ umrechnen, also
$A$1:blush:BF$25?

vielleicht hilft dir das weiter:

Sub tt()
Dim rngBereich
Set rngBereich = Range(Cells(1, 1), Cells(10, 12))
MsgBox rngBereich.Address
End Sub

Gruß
Reinhard