2012 16:53:38
hier eine weitere Möglichkeit:
Option Explicit
Private Declare Function MakeSureDirectoryPathExists Lib "" ( _
ByVal lpPath As String) As Long
' Legt einen kompletten Verzeichnispfad an Private Sub PfadAnlegen()
Dim Pfad As String
Pfad = "C:\Daten\Excel\Sonstiges\"
' Verzeichnis erstellen
MakeSureDirectoryPathExists Pfad
Heinz
Geschrieben am: 22. 2012 20:06:27
Hallo Heinz,
danke für Deinen Lösungsansatz. Mir ist es leider nicht gelungen den Code auf mein Fallbeispiel umzuschreiben, aber der Rudi konnte mir helfen.
Vba Verzeichnis Erstellen Index
If Right(strPfad, 1) <> "\" Then strPfad = strPfad & "\"
strPfadNeu = strPfad & heets("Tabelle2")(2, 1) 'Anpassen!!! If Right(strPfadNeu, 1) <> "\" Then strPfadNeu = strPfadNeu & "\" 'Wichtig immer vor MakePath
If MakePath(strPfadNeu) = 0 Then
'Das kommt eigentlich nur vor wenn Laufwerk oder Pfad unzulssig sind oder keine Zugriffsrechte bestehen
MsgBox strPfadNeu, vbInformation, "Pfad konnte nicht angelegt werden. " End If
End Sub
Gru
Verfasst am: 15. Dez 2010, 09:40 Rufname:
hallo slowboarder und eller
dankeschn fr eure schnelle hilfe, werde ich gleich mal ausprobieren und feedback geben...
gre
Verfasst am: 15. Dez 2010, 12:37 Rufname:
hallo...
also funktionieren beide lsungen wunderbar...
sascha
Jonny80
Einsteiger
Verfasst am: 09. Mrz 2013, 10:04 Rufname:
Version: Office 2003
Hallo zusammen,
der Code hat mir schon super weitergeholfen. Vba verzeichnis erstellen program. Wie kann ich erreichen das er mir jetzt noch eine Meldung ausspuckt, dass er erfolgreich einen neuen Ordner angelegt hat (und nur dann)? Private Declare Function MakePath Lib "" _
Private Sub Worksheet_Change(ByVal Target As)
strPfad = Worksheets("Verwaltung")("B6")
If dress = "$B$6" Then
If MakePath(strPfad) = 0 Then
MsgBox "Der Pfad " & strPfad & " konnte nicht angelegt werden.
Vba Verzeichnis Erstellen 10
2018 11:57:51
Hallo Hopps,
Modul Modul1 Option Explicit
Private Declare Function MakeSureDirectoryPathExists Lib "" ( ByVal lpPath As String) As Long
Sub Ordner_erstellen()
Dim Zeilen As Long, Pfad As String, FullPfad As String, i As Long
Zeilen = Range( "A65536")(xlUp)
Pfad = Range( "B1")
FullPfad = Pfad & Cells(i, 1) & "\" & Range( "C1") & "\"
Call MakeSureDirectoryPathExists(FullPfad)
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung: RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12. 6. 0
Gruß Sepp
Geschrieben am: 21. Vba verzeichnis erstellen 7. 2018 12:26:52
Hallo Sepp,
vielen lieben Dank für Deine Hilfe. Läuft wie gewünscht. Schönes sonniges Wochenende wünsch ich Dir.
Vba Verzeichnis Erstellen Program
Cyberhunter
Newbie
Beiträge: 21
Gespeichert
Hallo zusammen, ich kann mal ein wenig Hilfe gebrauchen, da meine VBA Kenntnisse gen Null gehen. Ich möchte aus Access (Formular) heraus im Filesystem Ordner erstellen. Dazu habe ich auch schon VBA Code gefunden: Private Sub Jahr_anlegen_Click() 'prüfen ob ein Ordner vorhanden ist und falls nicht 'fragen ob Ordner erstellt werden soll Dim Ord As String Dim Antwort As Integer Ord = "\\network\Folder\SubFolder\etc\" & [Folder] If Dir(Ord, vbDirectory) <> "" Then MsgBox "Ordner ist schon vorhanden" Else Antwort = MsgBox("Der Ordner " & Ord & " ist nicht vorhanden. " _ & vbNewLine _ & "soll der Ordner angelegt werden?! ", vbYesNo) If Antwort = vbYes Then 'Falls kein LW angegeben ist, erstellt die MkDir-Anweisung 'den neuen Ordner auf dem aktuellen LW. VBA Ordner erstellen. 'LW wurde aber durch "C:\xyz\" festgelegt MkDir Ord MsgBox "Ordner " & Ord & " angelegt" Else MsgBox "Es wurden keine Änderungen vorgenommen" Exit Sub End If End If End Sub Der funktioniert für den Hauptordner auch super.
Excel Vba Verzeichnis Erstellen
Vorgabedaten erstellen
Neue Klasse erstellen
Dateiliste mit DOS- und Windowsnamen erstellen
Zelle auswählen, Link erstellen und Format übernehmen
Symbolleiste mit ComboBox erstellen
Kontextmenü mit Buchungsvorgaben erstellen
Diagramm erstellen, in UserForm anzeigen und drucken
Menüpunkt bei Aktivieren einer Mappe erstellen
Aus Zelleintragungen Hyperlinks und HTML-Tabelle erstellen
Einfügen eines Menüpunktes zum Erstellen eines Kommentars.
Vba Verzeichnis Erstellen 7
VBA Ordner erstellen von gaertner1706 vom 22. 10. 2012 13:41:51
AW: VBA Ordner erstellen - von Frank H. am 22. 2012 14:46:21
AW: VBA Ordner erstellen - von gaertner1706 am 22. 2012 15:04:44
AW: VBA Ordner erstellen - von Rudi Maintaire am 22. 2012 16:35:14
AW: VBA Ordner erstellen - von gaertner1706 am 22. 2012 20:04:12
AW: VBA Ordner erstellen - von haw am 22. 2012 16:53:38
AW: VBA Ordner erstellen - von gaertner1706 am 22. 2012 20:06:27
Betrifft: VBA Ordner erstellen
von: gaertner1706
Geschrieben am: 22. 2012 13:41:51
Hallo,
bin bis eben noch eine "Forenjungfrau" hier also meine erste Frage:
Angenommen A1=1 und A2=Ordner
Ich möchte dass z. B. Bei einem Rechtsklick in Zeile A folgender Ordner erstellt wird:
C:\vbaOrdnerErstellen\Ordner\1
einzeln bekomme ich das hin (s. Ordner erstellen falls nicht vorhanden. u. ) zusammen funktioniert es nicht. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Ord As String
'Ord = "C:\vbaOrdnerErstellen\" & Cells(, 2)
'Ord = "C:\vbaOrdnerErstellen\" & + 120995
MkDir Ord
If Dir(Ord, vbDirectory) <> "" Then
MsgBox "Ordner """ & Ord & """ wurde angelegt"
Else
MsgBox "Ordner nicht vorhanden"
End If
End Sub
Betrifft: AW: VBA Ordner erstellen
von: Frank H.
Geschrieben am: 22.
Geschrieben am: 21. 2020 17:15:09
Neben diesem Forum gibt es ja auch noch Google/Wikipedia etc. und dort findest du eine Erklärung der UNC Notation. von: Anton
Geschrieben am: 21. 2020 18:44:58
probier's hiermit: Code in Zwischenablage:
Option Explicit
Sub sharepoint_neuer_ordner()
Dim objNetzwerk As Object
Dim strPath As String, sNeuerOrdner As String
Set objNetzwerk = CreateObject("twork")
strPath = " Dokumente/01_Test/Ordner_Anlegen" 'anpassen
sNeuerOrdner = "test" 'anpassen oder
If Not CreateObject("leSystemObject"). DriveExists("B") Then
On Error Resume Next
'sharepoint als Laufwerk "B:" verbinden
NetworkDrive "B:", strPath
If <> 0 Then
MsgBox scription, vbCritical, "Fehler bei Verbindung! " Else
'Ordner erstellen
If Dir("B:\" & sNeuerOrdner, vbDirectory) = "" Then MkDir "B:\" & sNeuerOrdner
'sharepoint trennen
moveNetworkDrive "B:"
End If
Set objNetzwerk = Nothing
End Sub
mfg Anton
Geschrieben am: 26. 2020 08:00:17
Hallo Anton
Vielen Dank für deinen Code, leider erhalte ich die Fehlermeldung, dass ich nicht authentifiziert bin.
Peter Renner ist in einem Jahr 365 mal auf Berge gelaufen, um dann mit dem Gleitschirm wieder hinunter zu fliegen. Den 365. Flug absolvierte er am letzten Tag des Jahres. Peter Renner (3. v. l. ) feierte seinen 365. Hike and Fly des Jahres 2019. // Quelle: Facebook, Niviuk CH-DE-AT
Man könnte es eine Punktlandung nennen, die der Bad Reichenhaller Peter Renner da hingelegt hat. Am letzten Tag des Jahres machte er den 365. Hike and Fly des Jahres 2019. Damit erfüllte er genau das selbstgesteckte Ziel, innerhalb eines Jahres 365 mal von zu Fuß erklommenen Bergen wieder hinabzufliegen. Tandem Gleitschirmflug in Bad Reichenhall - DeinKleinanzeigen. 365 Hike and Fly hatte er sein Projekt genannt, das er das ganze Jahr über auf seiner Website, auf Facebook und Instragram dokumentierte. Es galten einfache Regeln: Jeder Hike musste minimal über 300 Höhenmeter gehen und im Durchschnitt sogar mindestens 500 Höhenmeter umfassen. Und am Ende des Jahres sollten 365 solcher Aufstiege und Abflüge zusammenkommen. Ein Weltrekord in einer ungewöhnlichen Ausdauerdisziplin.
Peter Renner Gleitschirm Icaro Gravis² L
Hinterlasse einen Kommentar für Peter Renner
Peter Renner in facebook. Leave a comment for Peter Renner
Peter Renner auf Google Maps Peter Renner on google maps
Verbundene Firmen mit Peter Renner: Raiffeisenbank Kِtzting eG | Gasthaus Ochsen | Maria Theis | U. Steinborn | Prof. Christoph Dielitzsch Architekt
Related companies with Peter Renner
Peter Renner ist ein in Deutschland registriertes Unternehmen 1987 in der Region Gerlingen. Wir bieten Ihnen eine umfassende Palette von Berichten und Dokumenten mit rechtlichen und finanziellen Daten, Fakten, Analysen und offiziellen Informationen aus Deutschland. Peter renner gleitschirm icaro gravis² l. Vollständiger Name der Firma: Peter Renner, Firma, die der Steuernummer 159/627/49100 zugewiesen wurde, USt-IdNr - DE814688110, HRB - HRB 532257. Die Firma Peter Renner befindet sich unter der Adresse: Eichenweg 13; 70839; Gerlingen. Weniger 10 arbeiten in der Firma. Kapital - 448, 000 EUR. Der Jahresumsatz des Unternehmens betrug Ungefähr 689, 000 000 EUR, während die Kreditwürdigkeit Hoch ist Informationen zum Inhaber, Direktor oder Manager von Peter Renner sind nicht verfügbar.
Es werden Posts vom Januar, 2020 angezeigt. Alle anzeigen
Selbst glimpflich verlaufende Baumlandungen können noch gefährlich werden, wenn man länger hängend auf die Rettung warten muss. "Beine…
Lesen
Die meisten Gurtzeuge besitzen einen Protektor unterm Sitz, doch bei einem seitlichen Aufprall bieten sie keinen Schutz. Nachrüst-Protektor…
Wer schweres Equipment hat, will das nicht unbedingt überallhin auf dem Rücken tragen. Ein faltbarer Trolley kann den Weg zum Startplatz er…
Wenn man schräg an einem Rettergriff zieht, kann sich der Innencontainer mit der Rettung im Gurtzeug verkanten. Fliegen über Berchtesgaden, Königssee, Kehlsteinhaus und Watzmann, Fluggebiet Jenner - Berchtesgadener Gleitschirmflieger e. V.. Eine variable Zugkrafteinle…
Kortel hat eine neue Art von Leicht-Karabiner entwickelt. Der T-Bone-Link ist ein Softlink aus Dyneema-Seil, der sich auf einfache Weise öf…
Der Vario-Hersteller Flymaster hat auf seiner Website ein neues Tool integriert, die Blacklist. In dieser Schwarzen Liste sind jene Ger…
Mike Küng hat es mal wieder getan. Aus einem Ballon ist er in großer Höhe hechtrollenartig mit einem Gleitschirm gestartet.