Zweite Ziffer aus einer 6-stelligen Zahl in Excel entfernen
Schritt-für-Schritt-Anleitung
Um die zweite Ziffer aus einer 6-stelligen Zahl in Excel zu entfernen, kannst Du ein Makro nutzen. Hier sind die Schritte:
-
Drücke Alt + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen und wähle Modul.
-
Füge den folgenden Code in das Modul ein:
Sub ZweitesZeichenLöschen()
Dim iZeile As Integer
Dim iSpalte As Integer
Dim vtemp As Variant
iSpalte = 4 '*** Anpassen, in welcher Spalte Deine Daten stehen (D = 4)
For iZeile = 1 To Cells(Rows.Count, iSpalte).End(xlUp).Row
vtemp = Cells(iZeile, iSpalte)
If Len(vtemp) >= 2 Then
vtemp = Left(vtemp, 1) & Mid(vtemp, 3)
Cells(iZeile, iSpalte) = vtemp
Else
MsgBox ("In Zeile " & iZeile & " gibt es keinen Wert mit mehr als zwei Zeichen!")
End If
Next iZeile
End Sub
-
Schließe den VBA-Editor.
-
Um das Makro auszuführen, gehe zu Extras > Makro > Makros und wähle ZweitesZeichenLöschen aus, dann klicke auf Ausführen.
Häufige Fehler und Lösungen
-
Fehler: "In Zeile X gibt es keinen Wert mit mehr als zwei Zeichen!"
- Lösung: Stelle sicher, dass die Zellen in der ausgewählten Spalte mindestens 2 Zeichen enthalten. Andernfalls wird eine Fehlermeldung angezeigt.
-
Fehler: vtemp = Cells(iZeile, iSpalte)
- Lösung: Überprüfe, ob die Spaltennummer (
iSpalte) korrekt gesetzt ist. In diesem Beispiel ist iSpalte = 4 für die Spalte D.
Alternative Methoden
Falls Du das Makro nicht verwenden möchtest, kannst Du auch die Funktion "Ersetzen" in Excel nutzen, um die zweite Ziffer zu entfernen.
- Markiere die Spalte mit den 6-stelligen Zahlen.
- Drücke
Strg + H, um das Ersetzen-Fenster zu öffnen.
- Gib im Feld "Suchen nach"
?? (zwei Platzhalter für die zwei Ziffern) ein.
- Gib im Feld "Ersetzen durch"
?* (ein Platzhalter für die erste Ziffer und alles danach) ein.
- Klicke auf
Alle ersetzen.
Diese Methode ist jedoch weniger flexibel und funktioniert möglicherweise nicht in allen Fällen.
Praktische Beispiele
Wenn Du beispielsweise eine Liste in der Spalte D von D1 bis D445 hast:
Sub ZweitesZeichenLöschen()
Dim iZeile As Integer
Dim vtemp As Variant
For iZeile = 1 To 445
vtemp = Cells(iZeile, 4) ' 4 für Spalte D
If Len(vtemp) >= 2 Then
vtemp = Left(vtemp, 1) & Mid(vtemp, 3)
Cells(iZeile, 4) = vtemp
End If
Next iZeile
End Sub
Dieser Code entfernt die zweite Ziffer aus jeder Zahl in diesem Bereich.
Tipps für Profis
- Wenn Du häufig mit Makros arbeitest, speichere Deine Excel-Datei als
.xlsm, damit die Makros erhalten bleiben.
- Du kannst auch das Makro anpassen, um die letzte Ziffer zu entfernen, indem Du den Code entsprechend veränderst.
- Verwende die
Find-Funktion in Excel, um noch spezifischer zu suchen und zu ersetzen, wenn Du mit komplexeren Zahlen arbeitest.
FAQ: Häufige Fragen
1. Wie kann ich das Makro anpassen, um die letzte Ziffer zu entfernen?
Ändere die Zeile vtemp = Left(vtemp, 1) & Mid(vtemp, 3) zu vtemp = Left(vtemp, Len(vtemp) - 1).
2. Funktioniert das auch in Excel Online?
Leider ist die Verwendung von Makros in Excel Online nicht möglich. Du musst die Desktop-Version verwenden.
3. Was sind die Vorteile von VBA-Makros?
VBA-Makros ermöglichen es Dir, repetitive Aufgaben zu automatisieren, was Zeit und Mühe spart.