Cells- zur Range-Schreibweise umwandeln

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. Die Prozedur "umwandel" ruft die Funktion "Cells2Range" mit Angabe der Zeilen- und Spaltenummer auf und liefert als Ergebnis die gewünschte Range-Schreibweise zurück.