Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1516to1520
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen Datei vorhanden wenn nein erstellen

Prüfen Datei vorhanden wenn nein erstellen
10.10.2016 10:50:32
Christof
Moin,
ich möchte gerne Prüfen, ob eine .xlsx datei vorhanden ist oder nicht. Wenn nicht, dann soll diese angelegt werden. Leider erzeugt mir VBA bisher immer nur einen Ordner.
Wer kann mir helfen?
If Dir("N:\Mitarbeiter\Kauer\" & Name & "\" & Name & " Index.xlsx") = "" Then
MkDir ("N:\Mitarbeiter\Kauer\" & Name & "\" & Name & " Index.xlsx")
End If

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen Datei vorhanden wenn nein erstellen
10.10.2016 11:02:21
UweD
Hallo
MkDir erzeugt auch nur ein Verzeichnis.
- Willst du prüfen, ob die Datei existiert,
- oder/und ob das Vereichnis exitiert?
dann soll diese angelegt werden
- eine leere Datei?
- oder eine kopie der geöffneten?
LG UweD
AW: Prüfen Datei vorhanden wenn nein erstellen
10.10.2016 11:05:35
Christof
Prüfen ob Datei existiert und dann eine leere Datei mit definiertem Namen anlegen
AW: Prüfen Datei vorhanden wenn nein erstellen
10.10.2016 11:16:54
UweD
Hallo
dann so...

Sub Makro2()
Dim Datei As String, NName As String
'NName = "Test"
Datei = "N:\Mitarbeiter\Kauer\" & NName & "\" & NName & " Index.xlsx"
If Dir(Datei) = "" Then
Workbooks.Add.SaveAs Filename:=Datei, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
End If
End Sub

Tipp: verwende keine reservierten Befehle etc. von Excel als Variablennamen
LG UweD
Anzeige
AW: Prüfen Datei vorhanden wenn nein erstellen
10.10.2016 11:31:53
baschti007
Ich hätte noch diese Lösung =D
Gruß Basti

Const OrdnerName = "Test"
Const OrdnerPfad = "N:\Mitarbeiter\Kauer\" & OrdnerName & "\"
Const DateiName = OrdnerName & " Index.xlsx"
Sub Pruefen()
If Dir(OrdnerPfad & DateiName)  "" Then
If MsgBox("Soll die vorhandene Datei geöffnet werden?", vbOKCancel, "Meldung1") = vbOK Then
Workbooks.Open OrdnerPfad & DateiName
Exit Sub
Else
Exit Sub
End If
Else
If Dir(OrdnerPfad)  "" Then
Call Dateierstellen
MsgBox "Datei wurde erstellt!!"
Else
MkDir (OrdnerPfad)
Call Dateierstellen
MsgBox "Ordner und Datei wurden erstellt!!"
End If
End If
End Sub
Sub Dateierstellen()
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
With objExcel
.Visible = False
.Workbooks.Add
.ActiveWorkbook.SaveAs OrdnerPfad & DateiName
.Quit
End With
Set objExcel = Nothing
End Sub

Anzeige
AW: Prüfen Datei vorhanden wenn nein erstellen
10.10.2016 11:12:40
ChrisL
Hi Christof
Sub t()
Dim sPfad As String, sName As String
Dim WB As Workbook
sPfad = "N:\Mitarbeiter\Kauer"
sName = "TestKunde"
If Dir(sPfad) = "" Then MkDir (sPfad & "\" & sName)
If Dir(sPfad & "\" & sName & "\" & sName & " Index.xlsx") = "" Then
Set WB = Workbooks.Add
WB.SaveAs sPfad & "\" & sName & "\" & sName & " Index.xlsx"
Else
WB.Open sPfad & "\" & sName & "\" & sName & " Index.xlsx"
End If
End Sub

cu
Chris
AW: Prüfen Datei vorhanden wenn nein erstellen
10.10.2016 11:19:57
ChrisL
Korrektur Flüchtigkeitsfehler:
Sub t()
Dim sPfad As String, sName As String
Dim WB As Workbook
sPfad = "N:\Mitarbeiter\Kauer"
sName = "TestKunde"
If Dir(sPfad & "\" & sName & "\") = "" Then MkDir (sPfad & "\" & sName)
If Dir(sPfad & "\" & sName & "\" & sName & " Index.xlsx") = "" Then
Set WB = Workbooks.Add
WB.SaveAs sPfad & "\" & sName & "\" & sName & " Index.xlsx"
Else
Set WB = Workbooks.Open(sPfad & "\" & sName & "\" & sName & " Index.xlsx")
End If
End Sub

cu
Chris
Anzeige
AW: Prüfen Datei vorhanden wenn nein erstellen
10.10.2016 12:59:31
Christof
Leider kommt es bei mir jetzt immer die Meldung : Fehler beim Zugriff auf Pfad/datei.
Und es wird das MkDir(sPfad & "\" & sName markiert.
AW: Prüfen Datei vorhanden wenn nein erstellen
10.10.2016 13:06:06
ChrisL
Ich bekomme keinen Fehler.
(Copy/Paste Fehler, Backslash zu viel)
AW: Prüfen Datei vorhanden wenn nein erstellen
10.10.2016 14:50:55
Christof
Ich hab es an meine Bedürfnisse angepasst aber evtl. findet ja jemand woran es liegt. (fehler kommt nur wenn Ordner besteht.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$9" Then
Dim OrdnerName As String
OrdnerName = Right(Sheets("SCHADENBUCH").Cells(9, 3).Value, 4)
Dim SchadenNr As String
Dim Pfad As String
Dim Datei As String
Dim Tabelle As String
Dim bereich As String
Dim CountAErg As Double
Dim Ziel As String
Dim WB As Workbook
Pfad = "N:\Mitarbeiter\Kauer\" & OrdnerName
Datei = OrdnerName & " Index.xlsx"
'Tabelle = "Tabelle1"
'bereich = "$A:$A"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Dir(Pfad) = "" Then MkDir (Pfad)
If Dir(Pfad & "\" & Datei) = "" Then
Set WB = Workbooks.Add
WB.SaveAs Pfad & "\" & Datei
Else
GoTo DateiBesteht
End If
Workbooks.Open (Pfad & "\" & Datei)
Workbooks(Datei).Sheets(1).Name = OrdnerName
Workbooks(Datei).Sheets(OrdnerName).Cells(1, 1).Value = "Schadennummer"
Workbooks(Datei).Sheets(OrdnerName).Cells(1, 1).Font.Bold = True
Workbooks(Datei).Sheets(OrdnerName).Cells(1, 2).Value = "Schiffsname"
Workbooks(Datei).Sheets(OrdnerName).Cells(1, 2).Font.Bold = True
Workbooks(Datei).Sheets(OrdnerName).Cells(1, 3).Value = "Schadendatum"
Workbooks(Datei).Sheets(OrdnerName).Cells(1, 3).Font.Bold = True
Workbooks(Datei).Sheets(OrdnerName).Cells(1, 4).Value = "Betreuer"
Workbooks(Datei).Sheets(OrdnerName).Cells(1, 4).Font.Bold = True
Workbooks(Datei).Sheets(OrdnerName).Cells(1, 5).Value = "Mandant"
Workbooks(Datei).Sheets(OrdnerName).Cells(1, 5).Font.Bold = True
Workbooks(Datie).Save
Workbooks(Datei).Close
Application.DisplayAlerts = True
DateiBesteht:
Workbooks.Open (Pfad & "\" & Datei)
CountAErg = Workbooks(Datei).Sheets(OrdnerName).Range("A" & Rows.Count).End(xlUp).Row + 1
SchadenNr = Workbooks(Datei).Sheets(OrdnerName).Range("A" & CountAErg).Value
Workbooks(Datei).Close
Application.ScreenUpdating = False
Cells(11, 5).Value = SchadenNr & "/" & Right(Sheets("SCHADENBUCH").Cells(9, 3).Value, 2)
End If
End Sub

Anzeige
AW: Prüfen Datei vorhanden wenn nein erstellen
10.10.2016 16:23:01
ChrisL
OK, da fehlt noch was...
If Dir(Pfad, vbDirectory) = "" Then MkDir (Pfad)
AW: Prüfen Datei vorhanden wenn nein erstellen
10.10.2016 16:27:53
Christof
Vielen Dank,
mein persönlicher Held des Tages :D

302 Forumthreads zu ähnlichen Themen

Makro prüft ob Datei vorhanden ist.
Peter

Hallo!
Ich bin wirklich ratlos: in meinem Sheet wird eine spezielle Schriftart verwendet. Das Sheet wird leider nur dann leserlich angezeigt, wenn die Schriftart installiert ist. Deshalb soll ein Makro prüfen, ob die Datei "Grafikfonds.TTF im folgenden Ordner vorhanden ist C:\WINDOWS\Fonts\...
28.12.2008 01:46:00
Thread-ID: 1035513
3 Beiträge
Anzeige
Prüfen ob Zelle vorhanden...
pervenches

Guten Tag
Diese Formel sollte überprüfen, ob die Zelle "Erfolg" mit Inhalt "2" vorhanden ist und falls ja den entsprechenden Wert ausgeben. Falls diese Zelle nicht vorhanden ist sollte Sie den Wert von "G1" ausgeben. Die Zelle ist nicht immer vorhanden, da es sich um eine Pivot-Tabelle han...
09.09.2009 09:02:19
Thread-ID: 1101377
5 Beiträge
Prüfen ob Datei vorhanden
Marcus

Hallo,
kann mir jemand sagen, wie folgender Code aussehen muss:
Prüfen ob eine Datei, die ich als Bild in Excel mit VBA einfügen möchte, vorhanden ist.
If Dir(K:\Modelle Zeichnungen\Sal\Bilder TIF\...001.TIF) "" Then
Allerdings steht die Pfadangabe in der Zelle H2, da es verschi...
15.10.2009 07:05:26
Thread-ID: 1109751
2 Beiträge
Anzeige
Prüfen ob Schaltfläche vorhanden
walli

Guten Tag,
ALLEN ein frohes Weihnachtsfest !
Ich habe mal gestöbert und dies gefunden.
Ich möchte nur prüfen ob ein Schaltfläche mit der Nummer 10 vorhanden ist, das klappt so nicht.
Dim shShape As Shape
For Each shShape In Worksheets("Test").Shapes
If shShape.Name = "Sc...
25.12.2009 15:52:15
Thread-ID: 1125912
7 Beiträge
Prüfen ob Tabellen vorhanden
Kurt

Guten Morgen,
wünsche allen ein gesundes neues Jahr !
Danke für die bisherige Unterstützung !
Frage:
Ich habe eine Datei mit Tabellen die mit Monatsnamen hinterlegt
sind. (MMM)
Ich möchte prüfen ob ein Monat fehlt.
mfg Kurt P
05.01.2010 09:31:14
Thread-ID: 1127179
7 Beiträge
ControlPopup prüfen ob 2 mal vorhanden
marco

Hallo Kollegen,
Habe momentan ein problem mit der abfrage ob das popup vorhanden ist. Obwohl in der Menueleiste das Popup mit dem Namen "PT-Tool" vorhanden ist.
Popup wird ertellt.
Public Sub prcCreateButton() Dim myCommandBar As CommandBar Dim myCommandBarPopup As CommandBarContro...
28.01.2010 17:44:30
Thread-ID: 1133863
3 Beiträge
prüfen ob versch. Ziffern in Zellen vorhanden sind
Heinz

Hallo Excellenten,
viele Grüße an Alle an an diesem (im Süden) sonnigen Tag.
Mein Problem: Ich habe eine Spalte mit folgenden Zellen:
A1: 1;0000000 9; 10;000 14;00000000 23;0 25;0 27; 28; 29;0
A2: 00000000 9;00000000000000 24; 25;00000
A3: 00 3;0000000000000000 27;000
A...
08.04.2010 21:26:15
Thread-ID: 1150683
4 Beiträge
Überprüfen ob Tabellenblatt vorhanden ist
Ingo

Hallo zusammen,
hab folgendes Problem. Ich öffne nacheinander verschiedene Dateien um bestimmte Zellen auszulesen.
Wenn in der geöffneten Datei das Tabellenblatt mit dem Namen "Motor" nicht vorhanden ist sollen die nachfolgenden Schritte nicht bearbeitet werden. Irgendwie klappt das bei...
20.04.2010 11:44:29
Thread-ID: 1152802
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
4
1
5
6
6
2
3
2
3
3
2
4
6
6
3
3
2
3
3
3
7
4
4