Thema Datum  Von Nutzer Rating
Antwort
04.10.2012 09:59:31 Marcel
NotSolved
04.10.2012 12:59:34 Dekor
****
NotSolved
04.10.2012 13:35:35 Gast20263
NotSolved
04.10.2012 18:34:56 Dekor
****
NotSolved
Rot [HILFEEE!!!] [VBA] Automatisiere Verlinkung mit Verzeichnisen
 04.10.2012 20:11:08 Till
*****
NotSolved
05.10.2012 09:57:25 Marcel
NotSolved
05.10.2012 21:06:20 Till
NotSolved
08.10.2012 09:57:26 Marcel
NotSolved
08.10.2012 15:35:09 Till
*****
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
04.10.2012 20:11:08		 Views:
989		 Rating:
     
Antwort:
  Ja
Thema:
[HILFEEE!!!] [VBA] Automatisiere Verlinkung mit Verzeichnisen

Hi,

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Column
    Case 1
        'in zelle a1: Testkunde - Testprojekt Ref 5050-2012
        Dim str$
        str = Target.Value
        Dim Arr
        Arr = Split(str, "-")
        Dim strPath As String
        strPath = "O:\Kunden\" & Trim(Arr(0)) & "\" & Trim(Arr(1))
        createFullPath strPath
        Target.Hyperlinks.Add Target, strPath
    End Select
End Sub
Sub createFullPath(strPath As String)
Dim FSO As Object
Dim strParentPath As String
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    With FSO
        Dim Drive$
        Drive = Left(strPath, 3)
        If Not .FolderExists(Drive) Then
            MsgBox "Das Laufwerk " & Drive & " ist nicht vorhanden.", vbCritical
            Exit Sub
        End If
        strParentPath = .GetParentFolderName(strPath)
        If Not .FolderExists(strParentPath) Then createFullPath strParentPath
        If Not .FolderExists(strPath) Then .CreateFolder strPath
    End With
End Sub

mal nen Ansatz....

 

Gruß

Till

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
04.10.2012 09:59:31 Marcel
NotSolved
04.10.2012 12:59:34 Dekor
****
NotSolved
04.10.2012 13:35:35 Gast20263
NotSolved
04.10.2012 18:34:56 Dekor
****
NotSolved
Rot [HILFEEE!!!] [VBA] Automatisiere Verlinkung mit Verzeichnisen
 04.10.2012 20:11:08 Till
*****
NotSolved
05.10.2012 09:57:25 Marcel
NotSolved
05.10.2012 21:06:20 Till
NotSolved
08.10.2012 09:57:26 Marcel
NotSolved
08.10.2012 15:35:09 Till
*****
NotSolved