Prüfen ob Buchstabe in Dateinamen vorkommt
Schritt-für-Schritt-Anleitung
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Einfügen eines neuen Moduls:
- Klicke im Menü auf
Einfügen und wähle Modul.
-
Kopiere den folgenden Code in das Modul:
Sub Dateiname_pruefen()
Dim dat As String, pruef As Byte
dat = ThisWorkbook.Name
pruef = InStr(dat, "A") ' Hier wird der Buchstabe A gesucht
If pruef = 0 Then
MsgBox "Dateiname enthält kein A"
Else
MsgBox "Ja, A enthalten"
End If
End Sub
-
Ändere den Buchstaben, den Du überprüfen möchtest, indem Du "A" durch den gewünschten Buchstaben ersetzt.
-
Führe das Makro aus:
- Du kannst das Makro über das Menü
Ausführen oder mit der Taste F5 ausführen.
Häufige Fehler und Lösungen
Alternative Methoden
Eine weitere Möglichkeit, um zu überprüfen, ob ein Buchstabe im Dateinamen vorkommt, ist die Verwendung von Excel-Formeln. Du kannst die Funktion FINDEN oder SUCHEN verwenden, um das Vorhandensein eines Buchstabens zu testen. Beispiel:
=IF(ISNUMBER(FINDEN("A",A1)), "Ja, A enthalten", "Dateiname enthält kein A")
Hierbei wird angenommen, dass der Dateiname in Zelle A1 steht. Diese Methode ist besonders nützlich, wenn Du Excel testen möchtest, ohne VBA zu verwenden.
Praktische Beispiele
-
Beispiel 1: Suche nach dem Buchstaben "B" im Dateinamen.
Ändere den VBA-Code zu:
pruef = InStr(dat, "B")
-
Beispiel 2: Suche nach mehreren Buchstaben.
Du kannst eine Schleife verwenden, um mehrere Buchstaben zu überprüfen:
Dim buchstaben As Variant
buchstaben = Array("A", "B", "C")
For Each b In buchstaben
If InStr(dat, b) > 0 Then
MsgBox "Ja, " & b & " enthalten"
End If
Next b
Tipps für Profis
- Benutze benutzerdefinierte Funktionen: Wenn Du häufig den Dateinamen überprüfen musst, erstelle eine benutzerdefinierte Funktion in VBA.
- Fehlerbehandlung einfügen: Füge eine Fehlerbehandlung in Deinen Code ein, um unerwartete Fehler abzufangen.
- Verwende die
Len-Funktion: Du kannst die Länge des Dateinamens überprüfen, um sicherzustellen, dass er nicht ungleich 6 Buchstaben ist, bevor Du die Suche durchführst.
FAQ: Häufige Fragen
1. Wie kann ich überprüfen, ob ein Dateiname genau 6 Buchstaben lang ist?
Du kannst die Len-Funktion verwenden:
If Len(dat) <> 6 Then
MsgBox "Dateiname ist ungleich 6 Buchstaben lang"
End If
2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der VBA-Code sollte in allen aktuellen Excel-Versionen funktionieren, solange VBA unterstützt wird.