ich freue mich, dieses Forum gefunden zu haben, da ich mich seit Anfang des Monats zu einem Großteil mit VBA befassen muss und möchte. Ich habe leider für mein Vorhaben über die Suchfunktion nicht die passende Lösung gefunden. Vielleicht kann mir jemand von Euch helfen - hierbei geht es mir auch darum das Grundprinzip zu verstehen.
Jetzt aber zu meiner Frage:
Wie kann ich eine Select Case - Abfrage aus einer Vorhandenen Tabelle füllen?
- Ich habe in meiner Arbeitsmappe ein Worksheet mit dem namen "Start", hier befindet sich meine Definitionstabelle.
- In der Spalte L (ab Reihe 2) stehen die Dateiendungen
- In der Spalte M (ab Reihe 2) stehen die Dateitypen
Ich werde diese Funktion auch in Zukunft häufiger benötigen, um Abfragen zu pflegen ohne direkt im Quellcode Änderungen vorzunehmen.
Was wäre in diesem Fall die schönste Lösung (Beispiel der Abfrage siehe unten)?
Vielen Dank schon im Vorraus und einen guten Wochenstart
Marco
Private Sub CaseAusTabelle()
Dim TypeOfFile As String
Dim LongType As String
TypeOfFile = InputBox("Bitte geben Sie die Dateiendung ein:", "Dateiendung", "jpg")
' Select Case TypeOfFile
' Case Is = "jpg"
' LongType = "JPEG Bilddatei"
' Case Is = "mp3"
' LongType = "MP3 Audiodatei"
' Case Is = "mp4"
' LongType = "MP4 Videodatei"
' Case Else
' LongType = "Unbekannter Dateityp"
' End Select
MsgBox "Es handelt sich um eine " & LongType
End Sub