Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Automatisches erzeugen eines Ordners

Forumthread: Automatisches erzeugen eines Ordners

Automatisches erzeugen eines Ordners
27.05.2006 10:53:39
AVD
Folgendes Problem ich möchte einen Ordner automatisch erzeugen.
Dieser Soll den Namen der Tabelle1 und der Telle A1 haben.
Vorher: ThisWorkbook.Path
nach ausführen des Befehls:
Nachher: ThisWorkbook.Path & Tabelle1 ZelleA1
Vielen Dank für eure Beiträge
Gruß
Alex
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisches erzeugen eines Ordners
27.05.2006 11:07:28
Josef
Hallo Alex!
Das geht z.B. so!
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
  ByVal DirPath As String) As Long

Sub nn()
Dim strPath As String

strPath = ThisWorkbook.Path & "\" & Tabelle1.Name & "\" & Tabelle1.Range("A1").Text & "\"

MakeSureDirectoryPathExists strPath

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Automatisches erzeugen eines Ordners
27.05.2006 11:20:53
AVD
Danke Dir Sepp!
Wo trage ich denn den Befehl ein?
Danke Dir.
Gruß
Alex
AW: Automatisches erzeugen eines Ordners
27.05.2006 11:27:01
Sven
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************
AW: Automatisches erzeugen eines Ordners
27.05.2006 11:27:31
Josef
Hallo Alex!
Wo trage ich denn den Befehl ein?
Na in dem Makro welches den Ordner erstellen soll!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Automatisches erzeugen eines Ordners
27.05.2006 13:27:42
AVD
AN Josef und Sven,
vielen Dank für euren Einsatz hat super geklappt. Ich bin
sehr zufrieden.
Tausend Dank.
Gruß
Alex
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige