VBA Funktion zum Links Abschneiden in Excel
Schritt-für-Schritt-Anleitung
Um in Excel mittels VBA einen Teilstring von links abzuschneiden, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
-
Füge den folgenden Code in das Modul ein:
Sub Datum()
Dim letzte As Long
Dim Zelle As Range
letzte = ThisWorkbook.Sheets(1).Cells(Rows.Count, 3).End(xlUp).Row
For Each Zelle In ThisWorkbook.Sheets(1).Range(Cells(1, 3), Cells(letzte, 3))
Cells(Zelle.Row, 3) = CDate(Left(Cells(Zelle.Row, 3), 8))
Next Zelle
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.
Mit diesem VBA-Skript wird der Text in der Spalte C von links abgeschnitten, und nur das Datum bleibt erhalten.
Häufige Fehler und Lösungen
-
Fehler: "Typen unverträglich"
Lösung: Stelle sicher, dass die Zellen in Spalte C das Format "Text" haben und das Datum im richtigen Format vorliegt.
-
Fehler: "Index außerhalb des Bereichs"
Lösung: Überprüfe, ob du in der richtigen Tabelle arbeitest und dass die Spalte C tatsächlich Daten enthält.
Alternative Methoden
Wenn du keine VBA-Funktion nutzen möchtest, kannst du auch eine Excel-Formel verwenden, um den Text links abzuschneiden:
- Verwende die Formel
=LINKS(C1;8) in einer benachbarten Zelle.
- Ziehe die Formel nach unten, um sie auf andere Zellen anzuwenden.
Diese Methode eignet sich besonders für kleinere Datensätze.
Praktische Beispiele
Hier ist ein praktisches Beispiel für die Anwendung des VBA-Codes:
Angenommen, du hast in der Spalte C folgende Werte:
20.08.19 08.00 Test
21.08.19 09.00 Beispiel
22.08.19 Weitere Informationen
Nach der Ausführung des VBA-Skripts wird die Spalte C wie folgt aussehen:
20.08.19
21.08.19
22.08.19
Somit kannst du einfach das Datum in der gewünschten Form behalten und unnötigen Text entfernen.
Tipps für Profis
- VBA string kürzen: Verwende die Funktion
Left, um die Anzahl der Zeichen, die du abschneiden möchtest, flexibel zu gestalten.
- Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen in deinem VBA-Code, um unerwartete Fehler zu vermeiden.
- Makros automatisieren: Du kannst das Makro so einstellen, dass es automatisch beim Öffnen der Datei ausgeführt wird, indem du es im
Workbook_Open-Ereignis platzierst.
FAQ: Häufige Fragen
1. Wie kann ich mehrere Spalten gleichzeitig bearbeiten?
Du kannst die Schleife im VBA-Code anpassen, um mehrere Spalten zu durchlaufen, indem du die entsprechende Range angibst.
2. Was mache ich, wenn das Datum nicht im richtigen Format angezeigt wird?
Stelle sicher, dass die Zellen im richtigen Datumsformat formatiert sind. Du kannst dies unter "Zellen formatieren" in Excel überprüfen.