Anzeige
Archiv - Navigation
1680to1684
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
Inhaltsverzeichnis

Function & Filters mit Name

Function & Filters mit Name
11.03.2019 11:23:27
Manuel
Hallo,
ich habe gleich zwei fragen:
1.) kann ich zwei "Function" benutzen ohne das die sich beißen ?
2.) Kann ich den Filters.add mit einem Name ausstatten ?
Also ich habe folgenden Code:
Function GetFolder(ByVal DefaultPath As String) As String
If Right(DefaultPath, 1)  "\" Then DefaultPath = DefaultPath & "\"
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "MES - Import"
.AllowMultiSelect = True
.InitialView = msoFileDialogViewList
.InitialFileName = DefaultPath
.Filters.Clear
.Filters.Add "Log-Dateien", "*.log*", 1
.Filters.Add "Alle Dateien", "*.*", 2
.FilterIndex = 1
.ButtonName = "Import"
.Show
If .SelectedItems.Count = 0 Then
GetFolder = ""
MsgBox "Es wurde Abgebrochen", vbCritical, "Error"
End 'Beendet komplett
Else
GetFolder = .SelectedItems(1)
End If
End With
End Function
Sub pfad_MES()
Range("AA1") = GetFolder("\\10.26.21.205\Log")
End Sub

Jetzt möchte ich das der Filter = .Filters.Add "Log-Dateien", "*MES.log*", 1 Filtert. Da ich mehrere Log´s im Ordner habe. Ist das möglich ?
Und kann ich in einem anderem Modul eine neue Funktion schreiben mit einem anderem pfad und anderem Filter ?
Danke
Gruß

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Function & Filters mit Name
12.03.2019 07:18:42
Manuel
Guten Morgen zusammen,
hat keiner hier ne Idee ?
Gruß
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige