nur einen Teil des Dateinamens zur Auswahl in einer Combobox

Moderator: ModerationP

nur einen Teil des Dateinamens zur Auswahl in einer Combobox

Beitragvon Word User » 21. Feb 2019, 16:18

Guten Tag,

ich habe folgenden Makro Teil, hier wird quasi der komplette Dateiname in der Combobox angezeigt.

Ich würde jedoch gerne nur den Teil hinter dem letzten "_" mir in der Combobox anzeigen lassen, wie kann ich dies mit meinem Makro ermöglichen, so dass das einfügen des korrekten Bausteins mit vollen Namen weiterhin funktioniert?

Vielen Dank im Voraus.

------------------------------------------------------------------------------------------------------------------------------------------------------------------

Makroteil:
const Basispfad as String = ......
const Relativpfad as String = ......
const Dateierweiterung as String = ......

Private Sub auswahl()
Dim auswahl As String
Dim gefundeneDatei As String
Dim Pfad As String

gefundeneDatei = Dir(Basispfad & Relativpfad & Pfad & "*" & Dateierweiterung)
'
'Sortierung der gefundenen Dateien
anz% = 1
i% = 0
'
While gefundeneDatei > ""
gefundeneDatei = MittlererNamensteil(gefundeneDatei)
If anz = 1 Then
MAuswahl.ComboBox1.AddItem (gefundeneDatei)
MAuswahl.ComboBox1.ListIndex = 0
Else
i = 0
Do While StrComp(gefundeneDatei, MAuswahl.ComboBox1.List(i), vbTextCompare) = 1
i = i + 1
If i = anz - 1 Then
Exit Do
End If
Loop
MAuswahl.ComboBox1.AddItem (gefundeneDatei), i
End If
gefundeneDatei = Dir
anz = anz + 1
Wend
'
'MAuswahl.ComboBox1.ListIndex = 0
'
Load MAuswahl
'
With MAuswahl
'
.Show
'
auswahl = .ComboBox1.Value
'
End With

End Sub
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Private Function MittlererNamensteil(VollerName)
MittlererNamensteil = Mid(VollerName, Len(Namensanfang) + 1, Len(VollerName) - Len(Namensanfang) - Len(Dateierweiterung))
End Function
Word User
 

Re: nur einen Teil des Dateinamens zur Auswahl in einer Comb

Beitragvon theoS » 21. Feb 2019, 17:58

Es wäre angenehmer wenn du Code Tags verwenden würdest.
Dein Problem löst du wenn der _ ganz rechts steht in der Funktion indem du da noch eine mid-Funktion einbaust, die Position des _ bestimmst du mit instrrev.
theo s.
Benutzeravatar
theoS
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4738
Registriert: 19. Apr 2008, 00:14


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste