Endungen von Dateinamen entfernen in Excel mit VBA
Schritt-für-Schritt-Anleitung
Um die Endungen von Dateinamen in Excel zu entfernen, kannst Du VBA verwenden. Folge diesen Schritten:
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Wähle im Menü „Einfügen“ die Option „Modul“.
-
Kopiere den folgenden VBA-Code in das Modul:
Sub test()
Dim dateialt As String
Dim dateineu As String
dateialt = "test.dbf" ' Hier den alten Dateinamen angeben
dateineu = Left(dateialt, Len(dateialt) - 4) & ".xls" ' Entferne die .dbf-Endung
MsgBox dateineu ' Zeigt den neuen Dateinamen an
End Sub
-
Ändere dateialt in den Namen der Datei, die Du konvertieren möchtest.
-
Führe das Skript aus, indem Du auf „F5“ drückst.
Jetzt wird der neue Dateiname ohne die Endung .dbf angezeigt, und stattdessen erhältst Du die Endung .xls.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn Du keinen VBA-Code verwenden möchtest, kannst Du die Endungen auch manuell in Excel entfernen:
- Öffne die Liste der Dateinamen in Excel.
- Nutze die Funktion
=LINKS(A1; LÄNGE(A1)-4) & ".xls" in einer neuen Spalte, um die Endung zu entfernen (ersetze A1 durch die Zelle mit dem Dateinamen).
- Ziehe die Formel nach unten, um sie auf alle Dateinamen anzuwenden.
Praktische Beispiele
Angenommen, Du hast folgende Dateinamen in Spalte A:
| A |
| test1.dbf |
| test2.dbf |
| test3.dbf |
Verwende die Formel in Spalte B:
=LINKS(A1; LÄNGE(A1)-4) & ".xls"
Das Ergebnis wird in Spalte B wie folgt aussehen:
| B |
| test1.xls |
| test2.xls |
| test3.xls |
Tipps für Profis
- Nutze den
FileDialog-Objekt in VBA, um den Benutzer die Dateien auswählen zu lassen, die konvertiert werden sollen.
- Überlege, eine Schleife einzubauen, um mehrere Dateien in einem Rutsch zu bearbeiten.
- Speichere Deine VBA-Projekte regelmäßig, um Datenverlust zu vermeiden.
FAQ: Häufige Fragen
1. Kann ich die Endung auch für andere Dateiformate entfernen?
Ja, Du kannst die Anzahl der zu entfernenden Zeichen anpassen, um andere Dateiformate zu konvertieren. Ändere einfach den Wert in Len(dateialt) - X, wobei X die Länge der Endung ist.
2. Funktioniert dieser Code in allen Excel-Versionen?
Der VBA-Code sollte in den meisten Versionen von Excel ab 2007 funktionieren. Achte darauf, die Makros zu aktivieren, um den Code auszuführen.