Letzten 2 Stellen einer Variablen mittels VBA auslesen
Schritt-für-Schritt-Anleitung
Um die letzten 2 Stellen einer Variablen in VBA auszulesen, kannst Du die Funktion Right verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
-
Öffne den Visual Basic for Applications (VBA) Editor in Excel (Alt + F11).
-
Füge ein neues Modul hinzu (Rechtsklick auf "VBAProject" > Einfügen > Modul).
-
Schreibe den folgenden Code in das Modul:
Sub LetzteZweiStellen()
Dim ArtikelNr As String
Dim LetzteStellen As String
ArtikelNr = "123456" ' Beispielwert
LetzteStellen = Right(ArtikelNr, 2) ' Extrahiert die letzten 2 Stellen
MsgBox "Die letzten 2 Stellen sind: " & LetzteStellen
End Sub
-
Führe das Makro aus (F5) und sieh Dir das Ergebnis in der MessageBox an.
Häufige Fehler und Lösungen
Alternative Methoden
Falls Du die letzten 2 Stellen nicht mit VBA, sondern mit Excel-Formeln auslesen möchtest, kannst Du die Formel =RECHTS(A1;2) verwenden, wobei A1 die Zelle ist, die die Artikelnummer enthält. Diese Methode ist besonders hilfreich, wenn Du keine VBA-Kenntnisse hast.
Praktische Beispiele
Hier sind einige praktische Beispiele, die Dir helfen, die Technik besser zu verstehen:
-
Beispiel 1:
Sub ArtikelBeispiel()
Dim ArtikelNr As String
ArtikelNr = "ABC12345"
MsgBox "Die letzten 2 Stellen sind: " & Right(ArtikelNr, 2) ' Gibt "45" aus
End Sub
-
Beispiel 2:
Sub KundenID()
Dim KundenNr As String
KundenNr = "KDN98765"
Dim LetzteZwei As String
LetzteZwei = Right(KundenNr, 2) ' Gibt "65" aus
Debug.Print LetzteZwei ' Ausgabe im Direktfenster
End Sub
Tipps für Profis
- Nutze die Funktion
Right in Kombination mit anderen string-manipulierenden Funktionen, wie Len oder Mid, um komplexere Anforderungen zu erfüllen.
- Dokumentiere Deinen Code gut, indem Du Kommentare hinzufügst. Dies hilft nicht nur Dir, sondern auch anderen, die Deinen Code lesen.
FAQ: Häufige Fragen
1. Wie kann ich die letzten 3 oder mehr Stellen einer Variablen auslesen?
Ändere einfach die Zahl in der Right-Funktion. Beispielsweise: Right(ArtikelNr, 3) gibt die letzten 3 Stellen aus.
2. Funktioniert das auch in Excel 365?
Ja, die Funktion Right ist in allen gängigen Excel-Versionen, einschließlich Excel 365, verfügbar.