0160-93 82 19 37 | Nehmen Sie 
Cells- zur Range-Schreibweise umwandeln
101005
Mit dieser Funktion können Sie die die Cells-Schreibweise, z. B. Cells(1, 2) in
die Range-Schreibweise z. B. Range("B1") umwandeln.
Sub umwandeln()
Adresse = Cells2Range(1, 1)
MsgBox Adresse
End Sub
Function Cells2Range(Zeile, Spalte)
Spalte = Columns(Spalte).Address(False, False)
Spalte = Left(Spalte, InStr(Spalte, ":") - 1)
Cells2Range = Spalte & Zeile
End Function
Sie müssen nur anstatt von 1,1 ihre Zeilen- und Spaltennummer eingeben, die Sie in die Range-
Schreibweise umwandeln wollen.
