Button erst freigeben wenn mindestens eine Datei

Forumthread: Button erst freigeben wenn mindestens eine Datei
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Button erst freigeben wenn mindestens eine Datei

14.04.2016 11:14:04

Alex K

Hallo
ich mochte nach Auswahl eines Pfades prüfen ob in einem Unterordner eine Datei liegt.
Wenn ja möchte ich einen Button freigeben wenn nein denselben gesperrt Lassen.
Geht das?
Danke

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Button erst freigeben wenn mindestens eine Datei

14.04.2016 11:21:25

selli
AW: Button erst freigeben wenn mindestens eine Datei

14.04.2016 11:28:47

Michael (migre)
AW: Button erst freigeben wenn mindestens eine Datei

14.04.2016 12:46:22

Alex K
Bitte gern, owT

14.04.2016 12:50:01

Michael (migre)

AW: Button erst freigeben wenn mindestens eine Datei

14.04.2016 11:21:25

selli

hallo alex,
ja, das geht per vba.
gruß
selli

AW: Button erst freigeben wenn mindestens eine Datei

14.04.2016 11:28:47

Michael (migre)

Hallo!
Schema:

Sub SchalterFreigeben()
Dim SuchDialog As FileDialog
Dim Pfad As String
Dim Datei As String
Dim Anzahl As Long
Set SuchDialog = Application.FileDialog(msoFileDialogFolderPicker)
With SuchDialog
.Title = "Bitte Verzeichnis wählen"
.AllowMultiSelect = False
If .Show <> -1 Then
MsgBox "Vorgang abgebrochen", vbInformation
Exit Sub
Else: Pfad = .SelectedItems(1) & "/"
End If
End With
Datei = Dir(Pfad)
If Datei <> "" Then
With Worksheets("Tabelle1")
.OLEObjects("CommandButton21").Enabled = True
End With
End If
End Sub

LG
Michael

AW: Button erst freigeben wenn mindestens eine Datei

14.04.2016 12:46:22

Alex K

Danke dir habe es umgesetzt

Bitte gern, owT

14.04.2016 12:50:01

Michael (migre)

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