Zahlen aus Zeichenfolgen generieren in Excel
Schritt-für-Schritt-Anleitung
Um Buchstaben in Zahlen umzuwandeln und die Buchstabensumme zu ermitteln, kannst Du die folgende Methode nutzen:
-
Vorbereitung: Erstelle eine Excel-Tabelle mit einer Spalte für die Eingabeworte.
-
Buchstabensumme Funktion: Füge ein Modul in den VBA-Editor hinzu, um eine benutzerdefinierte Funktion Buchstabensumme zu erstellen. Hier ist der Code:
Option Explicit
Public Function Buchstabensumme(strText As String) As Long
Dim L As Long
Dim tmp As String
For L = 1 To Len(strText)
tmp = Mid(strText, L, 1)
Select Case tmp
Case "a" To "z"
Buchstabensumme = Buchstabensumme + Asc(tmp) - 96
Case "ä"
Buchstabensumme = Buchstabensumme + 27
Case "ö"
Buchstabensumme = Buchstabensumme + 28
Case "ü"
Buchstabensumme = Buchstabensumme + 29
End Select
Next
End Function
-
Buchstabenprodukt Funktion: Füge eine weitere Funktion für das Buchstabenprodukt hinzu:
Public Function Buchstabenprodukt(strText As String) As Long
Dim L As Long
Dim tmp As String
For L = 1 To Len(strText)
tmp = Mid(strText, L, 1)
Select Case tmp
Case "a" To "z"
If Buchstabenprodukt = 0 Then Buchstabenprodukt = 1
Buchstabenprodukt = Buchstabenprodukt * (Asc(tmp) - 96)
Case "ä"
If Buchstabenprodukt = 0 Then Buchstabenprodukt = 1
Buchstabenprodukt = Buchstabenprodukt * 27
Case "ö"
If Buchstabenprodukt = 0 Then Buchstabenprodukt = 1
Buchstabenprodukt = Buchstabenprodukt * 28
Case "ü"
If Buchstabenprodukt = 0 Then Buchstabenprodukt = 1
Buchstabenprodukt = Buchstabenprodukt * 29
End Select
Next
End Function
-
Formeln anwenden: Nutze die Funktionen in Deinen Zellen, z.B. =Buchstabensumme(A1) und =Buchstabenprodukt(A1).
Häufige Fehler und Lösungen
-
Fehler: Funktion nicht gefunden
Stelle sicher, dass Du den Code im richtigen Modul eingefügt hast und dass das Modul korrekt benannt ist.
-
Fehler: Umlaute werden nicht erkannt
Überprüfe die Select Case-Anweisungen in Deinem VBA-Code. Achte darauf, dass die Umlaute korrekt behandelt werden.
Alternative Methoden
Falls Du keine VBA-Funktionen nutzen möchtest, kannst Du die Buchstabensumme auch manuell ermitteln, indem Du eine Tabelle mit den Buchstaben und ihren entsprechenden Werten erstellst und SVERWEIS verwendest, um die Zahlen zu ermitteln.
- Erstelle eine Tabelle mit Buchstaben und deren Werten.
- Nutze
=SVERWEIS(A1;Tabelle!$A$1:$B$30;2;FALSCH) um die Werte in Deiner Haupttabelle abzurufen.
Praktische Beispiele
Beispiel zur Berechnung der Buchstabensumme für das Wort "abcü123":
| A |
B |
| abcü123 |
=Buchstabensumme(A1) |
|
=Buchstabenprodukt(A1) |
Die Ergebnisse wären:
- Buchstabensumme: 41
- Buchstabenprodukt: 1044
Tipps für Profis
- Modularität: Halte Deine Funktionen modular, damit Du sie einfach anpassen kannst.
- Fehlerbehandlung: Füge Fehlerbehandlungsroutinen in Deinen VBA-Code ein, um unerwartete Eingaben zu verarbeiten.
- Dokumentation: Dokumentiere Deinen Code gut, um die Nutzung der Funktionen zu erleichtern.
FAQ: Häufige Fragen
1. Wie kann ich die Buchstabensumme für mehrere Wörter gleichzeitig ermitteln?
Du kannst eine Schleife in VBA verwenden, um durch jede Zeile zu iterieren und die Ergebnisse in einer neuen Spalte abzuspeichern.
2. Welche Excel-Version benötige ich für die Nutzung von VBA?
VBA ist in den meisten modernen Excel-Versionen enthalten, einschließlich Excel 2010, 2013, 2016, 2019 und Microsoft 365. Stelle sicher, dass die Entwicklertools aktiviert sind.