Ich bin mal wieder hilflos, versuche mich seit Tagen an der Erweiterung eines Makros. Das Makro ist natürlich auch aus diesem Forum.
Dim f As Office.FileDialog
Set f = Application.FileDialog(msoFileDialogFilePicker)
'Set the initial path to the C:\ drive.
f.InitialFileName = "I:\Unsere Musiksammlung\" & TextBox16
f.Show
Dim sPfad$
sPfad = Application.GetOpenFilename("Musik (*.mp3;*.wav),*.mp3;*.wav,WAV File(*.wav),*.wav,MP3 File(*.mp3),*.mp3,Alle(*.*),*.*")
If sPfad "" Then
TextBox13.Text = sPfad
End If
TextBox12.SetFocus
tmp = Split(TextBox13, "- ")
tmp = tmp(UBound(tmp))
TextBox11 = Split(tmp, ".")(0)
Das ist das perfekt funktionierende Makro. Auslösung erfolgt durch klick in TextBox13.
Nun geht es mir noch um TextBox10. Wenn diese leer ist soll dann aus dem Inhalt der TextBox13
der bspw. so aussieht:
I:\Unsere Musiksammlung\0181 - Verschiedene - Boom 2007 (2CD's)\CD 1\01 - DJ Ötzi - Ein Stern.mp3
In TextBox11 steht wie gewollt: Ein Stern und nun soll in TextBox10 (wenn leer) DJ Ötzi erscheinen.
Ist das realisierbar und wenn ja wie muss ich mein (euer) Makro erweitern?
Danke vorab.
L.G. Grüße Frank H.