mit Funktion aus Bereichsname Spaltenbereiche abfr
Peter
Mit nachfolgender Funktion frage ich die Adresse des benannten Bereiches ab. Es handelt sich hier in der Regel um eine Mehrfachauswahl, die Rückgabe ist z.B.
A4,D4,I4:J4,N4:R4,U4:V4,Z4:AA4,AE4:BZ4
Wie der Name der Funktion schon sagt, möchte ich jedoch nicht die genauen Zellen abfragen, sondern die Spalten.
Meine Fragen:
- wie muss ich die Funktion erweitern, dass die Rückgabe (obiges Beispiel) wie folgt aussieht:
A:A,D:D,I:J;N:R,U:V,Z:AA;AE:BZ
- Wie muss ich die Funktion anpassen, dass ich bei deren Aufruf den Parameter ohne "" eingeben kann?
--> anstelle =BereichsSpalten("AAA") =Bereichsspalten(AAA)
Function BereichsSpalten(Name As String) As String
BereichsSpalten = Range(Name).Address(0, 0)
End Function
Danke, Peter
Anzeige