Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Wenn Ordner existiert, Fehlermeldung, sonst anlege

Forumthread: Wenn Ordner existiert, Fehlermeldung, sonst anlege

Wenn Ordner existiert, Fehlermeldung, sonst anlege
29.06.2003 23:35:37
Heiner

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Ordner existiert, Fehlermeldung, sonst anlege
29.06.2003 23:57:51
Nepumuk
Hallo Heiner,

der Code kommt mir doch sehr bekannt vor.


So gehts:

'Übergeordneter Ordner wird erstellt:
Dim FsyObjekt As Object, Ordner As String, Ordner2 As String
Ordner = Laufw & ":\" & UeberOrdner
Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
If Not FsyObjekt.FolderExists(Ordner) Then
FsyObjekt.CreateFolder (Ordner)
Else
If MsgBox("Der Ordner " & Ordner & " existiert bereits." & vbLf & "Weitermanchen?", 36, "Abfrage") = 7 Then Exit Sub
End If
'Untergeordneter Ordner wird erstellt:
Ordner2 = Laufw & ":\" & UeberOrdner & "\" & UntOrdner
If Not FsyObjekt.FolderExists(Ordner2) Then
FsyObjekt.CreateFolder (Ordner2)
Else
If MsgBox("Der Unterordner " & Ordner2 & " existiert bereits." & vbLf & "Weitermanchen?", 36, "Abfrage") = 7 Then Exit Sub
End If
MsgBox " Das Verzeichnis " & Ordner2 & " wurde angelegt! " & Chr(13) _
& " " & Chr(13) _
& " Kopien werden im angezeigten Verzeichnis abgelegt! " & Chr(13) _
& "", vbInformation, " Test.1.0"


Du musst übrigens das FileSystemObject nicht zweimal definieren. Ich habe das überflüssige mal entfernt.
Gruß
Nepumuk


Anzeige
AW: Wenn Ordner existiert, Fehlermeldung, sonst anlege
30.06.2003 00:14:25
Heiner
Hallo Nepumuk,

ein grosses DANKE, Dein Code funktioniert bestens.

Der Code wurde übrigens irgendwann von mir im Excelforum gefunden und nur etwas modifiziert.
Vielleicht kommt er Dir daher sehr bekannt vor?!

Danke und Gruß,
Heiner


Forumthreads zu verwandten Themen

Zählenwenn Funktion
Marzena

Hallo Forum,
Ausgangssituation:
Ich habe 25 Arbeitsmappen in denen ich in jeder Mappe bestimmte Zellen z.B. E14:E31 auswerten will. Steht in den Zellen ein Wert größer als 0 soll dieser in Anzahlsumme aufgenommen werden.
Die Funktion Zählenwenn scheint mir die Richtige zu sein, nur...
15.01.2012 12:25:33
Thread-ID: 1246232
3 Beiträge
Fehler in einer Formel
Frank

Hallo Zusammen!!!
Wollte folgende Formel nutzen:
=WENN(ODER(BI40="";BK40="";BI41="";BK41="");"";WENN(UND(BH41<>"";BI41>BK41);BP41;BP40; WENN(BY40>BY41;BP40;BP41)))
Es kommt aber die Fehlermeldung: Sie haben zu viele Argumente zu dieser Funktion eingegeben!
Wer kann...
29.03.2012 22:16:29
Thread-ID: 1257077
4 Beiträge
Einträge mittels Verweis erzeugen.
Ronald

Moin,
ich habe eine Tabelle in der die Ein- und Ausgänge einer Türschließung von BKS verwaltet werden.
Ich habe die Spalten A bis M und Zeilen von 1 bis 5800 und mehr.
Die Spalten A bis J werden aus dem BKS Programm übernommen.
Die Spalten K bis M sind für die Überwachung der A...
19.06.2019 14:03:58
Thread-ID: 1698491
7 Beiträge
Anzeige
2 Fragen (Filter und Formel)
ahoy

stößt Excel an seine Grenzen?
Frage1: Ich möchte aus einer ca. 46000 Zellen enthaltenden Tabelle (Tagesdaten einer Wetterstation 1881 bis 2005) den Mittelwert jedes einzelnen Tages berechnen. 29.Februar wurde erstmal aussortiert, ist also kein Problem. Jetzt müßte ich ja nur eine Formel er...
26.08.2006 13:11:26
Thread-ID: 795790
12 Beiträge
Summewenn anwenden bei 'DIV/0! Fehlerwert in Summenspalte
Exc-Neuling
Hallo! Nachdem ich im Netz keine Antwort auf meine Frage gefunden habe (auch nicht in diesem Forum), stelle ich sie nun hier:

Ich will die Werte einer Spalte (B) summieren, aber nur die Werte, bei denen in der entsprechenden Spalte A (gleiche Zeile) ein bestimmter Wert steht. Dafür würde ic...
07.01.2024 19:47:42
Thread-ID: 1959719
3 Beiträge
Anzeige
Formel verkürzen
Jenny

Weil ich einen Teil davon nicht mehr brauche-
Ich hatte ursprüngliche Formel, welche funktioniert hat:
=WAHL(1+MIN(5;1*ODER(WENNFEHLER(SVERWEIS(G1;Movies!A:D;4;);)="";WENNFEHLER(SVERWEIS(G1;Movies!A:D;4;) ;)="E")+2*UND(ODER(WENNFEHLER(SVERWEIS(E1;Movies!A:D;4;);)="E";WENNFEHLER(SVERWEI...
29.03.2017 13:25:42
Thread-ID: 1550030
3 Beiträge
Anzeige
Pop-Up Hinweise bei benutzerdefinierter Excel Funktion
Stefan

Hallo,
ich habe folgendes Problem:
Ich habe eine Funktion im VBA, z.B.
Function Volumen(laenge As Double, breite As Double, hoehe as Double) As Double Volumen = laenge * breite * hoehe End Function
Diese Funktion kann ich ja im Excel nun aufrufen, z.B. in Zelle A3 "=Volumen(8...
22.11.2019 16:19:41
Thread-ID: 1725017
5 Beiträge
Mittelwert
Erik

Hallo zusammen,
ich steh mal wieder vor einem problem an dem ich einfach net vorbei komme.
Ich möchte aus 5 Werten einen Mittelwert bilden. Man kann aber in die Zellen eine Zahl, "n.b." oder "n.e." eintragen. Am Anfang steht überall "n.b." drin. Nun soll es sich ändern wenn man "n.e." i...
29.02.2012 12:45:48
Thread-ID: 1252888
1 Beitrag
Anzeige
RUNDEN
Frank
Hallo,
möchte gerne mein Ergebnis in I22 runden.
das wird errechnet, Zellen Währungsvormatiert:: =WENN(ANZAHL(D12;D14;D17);SUMME(I12;I14;I17);"")
funktioniert auch aber die Rundung passt nicht immer
erstellt habe ich dann: =WENN(ANZAHL(D12;D14;D17);SUMME(RUNDEN(I12;I14;I17;2));"")
03.07.2021 17:51:02
Thread-ID: 1837631
11 Beiträge
Doppel Wenn Formel
Nadine

Wer kann mir bei dieser doppel Wenn Formel helfen?
Die einfache Version funktioniert, will ich einen 2 Namen dazu nehmen, kommt die Meldung "Sie haben zu viele Argumente zu der Formel eingegeben"
=WENN(C6="Gast";$C$1;0) funktioniert
=WENN(C6="Gast";$C$1;0;WENN(C6="Sekreteriat";$C$1...
27.07.2010 22:42:03
Thread-ID: 1169200
3 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 19:23:24
VBA - Blattschutz lässt sich mit Code nicht ausschalten
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum