Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Debugger geht immer auf bei Abbrechen

Debugger geht immer auf bei Abbrechen
30.01.2004 21:55:16
Maren
Hallo
ich habe eine Datei bekommen mit der man sich alle Datei in einem Ordner anzeigen lassen kann. Es ist nur ein kleiner Haken an der Sache. Wenn man bei dem ersten Button auf Abbrechen klickt geht der Debugger auf. Hat jemand eine Idee wie man das noch modifizieren kann. Dann wäre das nämlich ganz toll
Schönen Abend noch Maren
Werde noch bißl fern schauen. Heute ist nicht alle Tage, ich komm wieder keine Frage. Liebe Grüße an Nepu
https://www.herber.de/bbs/user/3280.xls

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

Betreff
Datum
Anwender
Anzeige
AW: Debugger geht immer auf bei Abbrechen
30.01.2004 22:05:34
Hajo_Zi
Hallo Maren
eigentlich müßte ich bei diesem Namen nicht Antworten.
Ändere den Code wie folgt

Sub DateienAuflisten()
Dim lngAkt As Long
Dim rngBereich As Range
Dim rngZelle As Range
Cells.Select
Selection.ClearContents
'Const Verzeichnis = "C:\test\"
Verzeichnis = InputBox(("Bitte Pfad eingeben!"), "Verzeichnisse in Tabelle1", "C:\test\")
Dim Fso, Ordnername
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FolderExists(Verzeichnis) = False Then Exit Sub
Cells(1, 2).Value = Verzeichnis
'Verzeichnis = ThisWorkbook.Path
With Application.FileSearch
.NewSearch
.LookIn = Verzeichnis
.SearchSubFolders = False ' bei true = mit Unterverzeichnissen
.FileType = msoFileTypeExcelWorkbooks 'Hier den DateiTyp einstellen!
.Execute
For lngAkt = 1 To .FoundFiles.Count
Cells(lngAkt, 1) = Mid(.FoundFiles.Item(lngAkt), Len(Verzeichnis) + 1)
Next lngAkt
End With
UserForm1.Show
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: Debugger geht immer auf bei Abbrechen
31.01.2004 13:44:21
Maren
Hajo,
bist Du mir denn immer noch böse. Mit dem Crossposting das war Quatsch von mir. Ich habs ja nie wieder gemacht. Kannst du mir verzeihen.
Ich danke Dir ganz sehr für Deine Hilfe und wünsche Dir ein schönes We.
Maren

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige