Thema Datum  Von Nutzer Rating
Antwort
22.12.2021 05:14:16 Rosi
NotSolved
22.12.2021 12:40:26 ralf_b
*****
NotSolved
Rot Ordner anlegen und Hyperlink
22.12.2021 12:53:14 volti
****
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
22.12.2021 12:53:14		 Views:
443		 Rating:
     
Antwort:
  Ja
Thema:
Ordner anlegen und Hyperlink

Hallo Rosi,

eine Idee...

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16		  
Private Declare PtrSafe Function SHCreateDirectoryExW Lib "Shell32.dll" ( _
        ByVal hwnd As LongPtr, ByVal pszPath As LongPtr, ByVal psa As LongPtr) As Long

Sub ErstelleOrdner()
  Dim sPfad As String

  For i = 120 To 122         ' von x bis y
      sPfad = "D:\Test\" & Range("B1").Value & "\" & Chr$(i) & "\"
      SHCreateDirectoryExW 0, StrPtr(sPfad), 0
  Next i

  Range("B1").Select
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
  Address:="D:\Test\" & Range("B1").Value, _
  TextToDisplay:=Range("B1").Value
End Sub
_________
viele Grüße
Karl-Heinz

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.12.2021 05:14:16 Rosi
NotSolved
22.12.2021 12:40:26 ralf_b
*****
NotSolved
Rot Ordner anlegen und Hyperlink
22.12.2021 12:53:14 volti
****
NotSolved