Ordner Verlinkung
03.08.2022 11:11:45
Heiko
ich habe folgendes VBA, um Ordner aus Zelleintägen zu erstellen. Nun würde ich gerne dass dies automatisch die Zellen M9-M3010. Die Ordner werden in dem Verzeichnis "Mitglieder" abgespeichert. Zudem sollte am Ende in den Zellen automatisch der Hyperlink hinzugefügt werden, und zum jeweiligen Ordner führt. Kann mir jemand behilflich sein? Bitte
Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r