Zeichen in Excel mit VBA abschneiden
Schritt-für-Schritt-Anleitung
-
Öffne Excel und lade die Arbeitsmappe, in der du die Bezeichnungen bearbeiten möchtest.
-
Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
-
Kopiere den folgenden VBA-Code in das Modul:
Sub OhneDieErstenDrei()
Dim lrZelle As Range
For Each lrZelle In Selection
If IsNumeric(Left(lrZelle.Value, 3)) = True Then
lrZelle.Value = Right(lrZelle.Value, Len(lrZelle.Value) - 3)
End If
Next
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Markiere den Bereich, in dem du die Bezeichnungen ändern möchtest.
-
Drücke ALT + F8, wähle OhneDieErstenDrei aus und klicke auf Ausführen.
Jetzt werden alle Bezeichnungen, bei denen die ersten 3 Buchstaben Zahlen sind, entsprechend bearbeitet.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn du keine VBA-Lösung verwenden möchtest, kannst du die folgende Formel nutzen:
=IF(ISNUMBER(VALUE(LEFT(A1, 3))), MID(A1, 4, LEN(A1)-3), A1)
Setze diese Formel in eine Zelle ein und ziehe sie nach unten, um die gesamte Liste zu bearbeiten. Dies funktioniert jedoch nur, wenn die Bezeichnungen in einer Tabelle stehen und kann nicht auf einen markierten Bereich angewendet werden.
Praktische Beispiele
Angenommen, du hast folgende Bezeichnungen in den Zellen A1 bis A5:
- ZF322
- 071ZF322B
- RSG15/18S
- 010RSF10/20S
- RKB/W20K
Nach der Ausführung des VBA-Codes sehen die Zellen wie folgt aus:
- ZF322
- ZF322B
- RSG15/18S
- RSF10/20S
- RKB/W20K
Die Bezeichnungen, bei denen die ersten 3 Buchstaben Zahlen waren, wurden erfolgreich bearbeitet.
Tipps für Profis
- Erweiterung des Codes: Du kannst den VBA-Code erweitern, um auch mehr als 3 Buchstaben abzuschneiden oder spezifische Bedingungen zu implementieren.
- Fehlerbehandlung einfügen: Implementiere
On Error Resume Next, um Fehler zu ignorieren und eine robustere Lösung zu schaffen.
- Schutz deiner Daten: Vor der Ausführung des VBA-Skripts ist es ratsam, ein Backup deiner Daten zu erstellen.
FAQ: Häufige Fragen
1. Kann ich das Makro auch in anderen Excel-Versionen verwenden?
Ja, das Makro funktioniert in Excel-Versionen, die VBA unterstützen, wie Excel 2010, 2013, 2016 und 365.
2. Was passiert, wenn die Zelle keine Zahlen enthält?
In diesem Fall bleibt der Inhalt der Zelle unverändert. Das Makro schneidet nur die ersten 3 Buchstaben ab, wenn sie Zahlen sind.