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.

 

Sie brauchen eine individuelle Excel-/Office-Lösung?

Wir entwickeln Ihr Makro, Tool oder Ihre Datenbank – passgenau für Ihr Unternehmen.
Kostenlose Projektanfrage

Relevante Artikel

Projekt-Anfrage

Excel automatisieren. Zeit sparen.
Fehler vermeiden.
Wir entwickeln Ihre individuelle
Excel- / VBA-Lösung.
Jetzt anfragen!

Formular Anfrageformular öffnen Telefon Jetzt anrufen: +49 (0)151 164 55 914 E-Mail Anfrage per E-Mail senden Informationen Weitere Informationen
Wir benutzen Cookies
Ihre Zufriedenheit ist unser Ziel, deshalb verwenden wir Cookies. Mit diesen ermöglichen wir, dass unsere Webseite zuverlässig und sicher läuft, wir die Performance im Blick behalten und Sie besser ansprechen können. Cookies werden benötigt, damit technisch alles funktioniert und Sie auch externe Inhalte lesen können. Des Weiteren sammeln wir unter anderem Daten über aufgerufene Seiten, getätigte Käufe oder geklickte Buttons, um so unser Angebot an Sie zu Verbessern. Mehr über unsere verwendeten Dienste erfahren Sie unter „Weitere Informationen“. Mit Klick auf „Akzeptieren“ erklären Sie sich mit der Verwendung dieser Dienste einverstanden. Ihre Einwilligung können Sie jederzeit mit Wirkung auf die Zukunft widerrufen oder ändern.
Akzeptieren Ablehnen
Weitere Informationen | Impressum