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. 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.

 

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800