Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1740to1744
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
1740to1744
1740to1744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Frage Userform und Explorer

VBA Frage Userform und Explorer
19.02.2020 08:49:47
Timonski
Servus...
allgemeine VBA Frage... zwar für's Outlook... aber ist in diesem Fall egal :-)
Ich will eine Userform erstellen, bei der ich gleich beim Initializieren der Userform ein bestimmtes Verzeichnis und ihre Unterordner sehe, aber keine Dateien...
sowas in dieser Art, nur von mir selbst konfiguiert... bzw. gleich in der Userform mit zusätzlichen Knöpfen :-)
strStartPath = "P:\Projekte\"
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, (strStartPath))
On Error Resume Next
PFAD = BrowseDir.Items().Item().Path
If PFAD = "" Then Exit Sub
vielleicht kann mir einer helfen...
Vielen Dank im voraus :-)
Timonski
@E-Mail Adresse, kann man die auch irgendwo ändern?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Frage Userform und Explorer
19.02.2020 12:56:15
Rudi
Hallo,
wozu eine Userform? Dafür gibt's doch das FileDialog-Objekt.
Schema: 
  Dim strPfad As String
strPfad = "p:\projekte\"
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Bitte einen Ordner auswählen"
.InitialFileName = strPfad
If .Show = -1 Then
strPfad = .SelectedItems(1)
Else
strPfad = ""  'abbrechen
End If
End With
If strPfad  "" Then
'mach was
End If
Gruß
Rudi
AW: VBA Frage Userform und Explorer
19.02.2020 16:57:13
Timonski
Servus,
danke für die Antwort bei mir kommt aber die Meldung:
Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht
hab das Verzeichnis mal geändert in "C:\", da das Laufwerk P ein Netzlaufwerk ist...
in Outlook geht es nicht, aber in Excel geht es...
aber ich hätte es doch gern lieber in einem USERFORM, da ich dort noch weitere Knöpfchen einbringen kann...
Danke
Gruß
Timo
Anzeige
AW: VBA Frage Userform und Explorer
24.02.2020 19:43:42
Matthias
Moin!
ALso wenn du es dir wirklich selber nachbauen willst, dann kannst du das FileSystemObjekt oder dir nutzen. Damit gehst du durch deinen PFad und liest die Unterordner aus. Diese fügst dann deiner Listbox hinzu. Bspw. 
Private Sub UserForm_Initialize()
Dim fso As New FileSystemObject
Set ordner = fso.GetFolder("C:\Users\ich\Desktop")
For Each subordner In ordner.SubFolders
Me.ListBox1.AddItem subordner.Name
Next
End Sub

VG
AW: VBA Frage Userform und Explorer
25.02.2020 07:35:32
Timonski
Hallo Matthias,
vielen vielen Dank...
Dank Dir konnte ich meine Listbox füllen, man kann zwar in kein Unterverzeichnis, aber da ich eh nur eine weitere Stufe des Verzeichnisses will, hab ich neben dran eine weitere Listbox erstellt, die den Inhalt der ersten Box zeigt
DANKE DANKE DANKE
Anzeige

303 Forumthreads zu ähnlichen Themen

VBA Dropdown Userform
Ralf

Hallo
ich möchte in einer Userform ein Dropdownfeld erzeugen das aus einer bestimmten Tabelle zum Bsp. aus Spalte A die ersten Zehn Zeilen als Auswahlmöglichkeiten anzeigt.
Wäre nett wenn mir da jemand helfen könnte
Gruss Ralf
15.08.2008 11:16:56
Thread-ID: 1002117
2 Beiträge
Anzeige
vba stopp aus userform
Hugo

Hallo
In einem Userform habe ich einen Button Stopp.
Wenn ich diesen drücke solle das Makro beendet werden damit User im WorkSheet Eingaben tätigen
kann. Private Sub CommandButton1_Click() Unload UserForm Exit Sub End Sub
Nun kehrt es zum Ort wo das Userform gestartet wurde...
01.11.2009 16:17:48
Thread-ID: 1113650
14 Beiträge
VBA-Code von Userform anpassen (DTPicker)
Userform

Hallo Excel-Forum Community,
Leider stoße ich bei der Anpassung des VBA-Codes einer „UserForm“ gerade an meine Grenzen. Vielleicht findet ihr ein paar Minuten um euch die Beispieldatei des nachfolgenden Links anzusehen?
https://www.herber.de/bbs/user/69747.xls
Ich habe einen sehr...
26.05.2010 21:15:00
Thread-ID: 1158924
8 Beiträge
Anzeige
VBA Userform
Rene

Hallo zusammen ,
zunächst vielen Dank an Franz der mir mit seinem letzten Code sehr geholfen hat.
ich habe folgenden Code,der problemlos funktioniert , was muß ich tun damit ich ihn in einer Userform benutzen könnte ,will heißen ich möchte in ein textboxs scannen ,und die Abfrage ergeb...
15.04.2011 11:57:09
Thread-ID: 1209840
2 Beiträge
VBA für UserForm mit Multiseiten
Klaus

Hi Leute
ich habe eine UF mit Multiseiten erstellt und weiß jetzt nich wie ich den Code schreiben soll. In dieswer UF sollen Namen eingetragen werden und auf die Richtigen Tabellen verteilt werden und wenn ich die UF aufrufe sollen die eingetragenen Namen in der UF wiedergegeben werden. Bit...
25.09.2011 13:08:50
Thread-ID: 1231382
6 Beiträge
mehrzeilig eintragen vba userform
Chris

Ich habe vielen von euch schon gelernt, recht herzlichen Dank.
Anbei habe ich mal mein Excel Project hochgeladen. Da der VBA code zu lang wäre um ihn hier verständlich zu schreiben. Wenn man die userform startet hat man die auswahl mehrere Sender einzutragen um sich arbeit zu erleichtern di...
09.01.2012 22:41:55
Thread-ID: 1245334
2 Beiträge
VBA: Userform Minimieren Maximieren (Klassenmodul)
Lombe

Hi Leute,
ich kenn mich mit Klassenmodule wenig aus und habe daher folgendes Problem.
Meine Userform hat neben dem Schließkreuz rechts oben nun auch die Minimeren und Maximieren Schaltflächen dank der Codes (siehe Quellenangaben) die u.a. im Klassenmodul stehen.
Frage:
Ich möcht...
13.01.2012 00:54:48
Thread-ID: 1245764
4 Beiträge
Suchmaske VBA userform
Gatz

Guten Abend, nachdem das mit der Eingabemaske so gut gekappt, dank der Hilfe von euch, würde ich gerne meine Ausgabemaske erstellen wollen. Hierzu finden sich mehrere Textfelder, Comboboxen und Checkboxen in der userform.
Angenommen der Benutzer trägt in Textbox1 einen Wert ein, dann soll i...
12.01.2012 23:41:27
Thread-ID: 1245933
3 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox UserForm

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
1
13
13
7
5
1
5
1
3
2
27
4
9
1
1
3
2
3
6
3
9
10
4
1
3