Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ordner erstellen auf Basis des Zellinhalts

Ordner erstellen auf Basis des Zellinhalts
06.11.2015 09:49:38
Jean-Pierre
Hallo Zusammen
Ich möchte vorweg schicken, ich bin "VBA-dummie", habe (via google) im Forum gesucht, fand Antworten zu genz ähnlichen Fragen, aber -weil dummie- reicht mir das nicht! :-(
In einer Tabelle habe ich verschiedene Projekte aufgelistet, zum erstellen eines neuen Projektordners möchte ich, idealerweise mittels doppelklick auf eine Zelle in Spalte E, einen neuen Ordner auf einem fixen Pfad erstellen, welcher gem. Zellinhalt benannt wird.
Also z.B.:
Zellinhalt: "hallo"
fixer Pfad: T:\LO\Kundensets\
Neuer Ordner: T:\LO\Kundensets\hallo
Eine vorangestellt Prüfung ob der Ordner bereits vorhanden ist und eine entsprechende Meldung, wäre das Sahnehäubchen!
Herzlichen Dank
Gruss
Jean-Pierre

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner erstellen auf Basis des Zellinhalts
06.11.2015 10:09:49
Tino
Hallo,
versuche es mal so.
kommt als Code in Tabelle
Option Explicit 
 
Private Declare Function apiCreateFullPath _
Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long 
 
'Also z.B.: 
'Zellinhalt: "hallo" 
'fixer Pfad: T:\LO\Kundensets\ 
'Neuer Ordner: T:\LO\Kundensets\hallo 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
Dim lngResult& 
Const sPfad$ = "T:\LO\Kundensets\" 
'nicht in Spalte E 
If Intersect(Target, Columns(5)) Is Nothing Then Exit Sub 
'nicht in Überschrift 
If Target.Row = 1 Then Exit Sub 
 
If Target.Value <> "" Then 
    lngResult = apiCreateFullPath(sPfad & Target.Value & "\") 
    If lngResult = 1 Then 
        MsgBox "Ordner angelegt oder vorhanden!", vbInformation 
    Else 
        MsgBox "Ordner konnte nicht angelegt oder gefunden werden!", vbExclamation 
    End If 
    Cancel = True 
End If 
End Sub 
 
 
 
Gruß Tino

Anzeige
AW: Ordner erstellen auf Basis des Zellinhalts
06.11.2015 10:19:45
Jean-Pierre
Hi Tino
Herzlichen Dank für die blitzartige und perfekte Antwort, genau so funktioniert das einwandfrei!
Supper Sache!
Gruss
Jean-Pierre

AW: Ordner erstellen auf Basis des Zellinhalts
06.11.2015 10:11:25
MCO
Hallo!
Bei doppelklick auf Zellen, die einen "/" enthalten wird das Makro ausgeführt.
https://www.herber.de/bbs/user/101282.xlsm
Teste mal.
Gruß, MCO

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige