Thema Datum  Von Nutzer Rating
Antwort
Rot Ordern erstellen und mit Hyperlink verknüpfen
 18.12.2019 17:32:55 Volker
NotSolved
18.12.2019 22:05:51 Mase
NotSolved

Ansicht des Beitrags:
Von:
Volker		 Datum:
18.12.2019 17:32:55		 Views:
1459		 Rating:
     
Antwort:
  Ja
Thema:
Ordern erstellen und mit Hyperlink verknüpfen

Hallo zusammen,

ich habe folgenen Code der funktioniert: ;-)

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub NeuerOrdnerAnlegenFinalKurz()
'Ein neuer Ordern wird im Ordner "Kabelarbeiten" erstellt als Kopie des Ordners "Vorlage" Die Benennung erfolgt aus den Spalten D & C
  c00 = "..\Desktop\Kabelarbeiten\"                           'Variable, zum Pfad Ordner "Kabelarbeiten"
  With ActiveCell                                            
     c01 = Cells(.Row, 4) & " " & Cells(.Row, 3)              'Variable, Auswahl der Spalten E & D
  End With
  
    If Dir(c00 & c01, 16) = "" Then                           'Wenn Ordner nicht vorhanden dann....
        CreateObject("Scripting.FileSystemObject").CopyFolder c00 & "\Vorlage", c00 & c01         'kopiere Ordern und benenne um
        MsgBox "Der Ordner:" & vbCrLf & vbCrLf & Cells(ActiveCell.Row, 4).Value & " " & Cells(ActiveCell.Row, 3).Value & vbCrLf & vbCrLf & "wurde angelegt.", vbOKOnly, "Kabelarbeiten"             'MessageBox wurde angelegt
    Else
        MsgBox "Der Ordner:" & vbCrLf & vbCrLf & Cells(ActiveCell.Row, 4).Value & " " & Cells(ActiveCell.Row, 3).Value & vbCrLf & vbCrLf & " ist bereits vorhanden!", vbCritical, "Kabelarbeiten"   'MessageBox bereits vorhanden
    End If
End Sub

Jetzt würde ich gerne nachdem ein neuer Ordner aus der Vorlage erstellt wurde noch zusätzlich eine Hyperlink einfügen von der aktiven Zeile, Zelle 3 auf den neuen  Ordner. 

 

Leider habe ich sehr wenig Ahnung von VBA und hoffe das mir jemand eine Tip geben kann wie ich das Problem lösen kann.

 

Gruß Volker

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Ordern erstellen und mit Hyperlink verknüpfen
 18.12.2019 17:32:55 Volker
NotSolved
18.12.2019 22:05:51 Mase
NotSolved