Aus Wort oder Zeichenfolge Zahl generieren

Forumthread: Aus Wort oder Zeichenfolge Zahl generieren

17.11.2013 18:12:34

Matze

Hallo Zusammen,
ich bekomme irgendwie keinen richtigen Ansatz wie ich das umsetzen kann,
wäre für Tipps u. Lösungen dankbar.
hier mal ein Link, gibt man dort ein Wort ein, wird daraus eine Zahlenkombination
als Summe oder Summenprodukt oder...
http://www.oliver-rahe.de/geocaching/checker.htm
Einzelnes auslesen eines Buchstaben ist mir bekannt, aber ich muss leider auch Umlaute ä,ö,ü mit einbauen.
Ein Makro ist bestimmt Sinnvoller wie auf einer Tabelle das Wort zu splitten, alle Werte(Buchstaben) einzeln auslesen um daraus zB eine Summe zu bilden.
Ich bin gespannt auf Eure Tipps,...
Gruß Matze

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Aus Wort oder Zeichenfolge Zahl generieren

17.11.2013 18:15:49

ransi

Hallo Matze
Das ist nicht schwer, aber wie stellst du dir das vor ?
ä=?
ö=?
ü=?
ransi

AW: Aus Wort oder Zeichenfolge Zahl generieren

17.11.2013 19:07:05

Matze

Hallo ransi,
puh seit ihr fix hier, war nur kurz Abendessen.
Mit =WAHL(CODE(KLEIN(AF2))-96;1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26)
ermittel ich bei einem Buchstaben, aber genau da fehlt mir ä,ö,ü
Ich müsste mir einen Bereich anlegen Wo die Buchstaben mit den entsprechenden Zahlen gelistet sind
dann bekommt ä=27, ö=28 , ü=29 falls nötig noch ß=30 das wiederum mit Sverweis auslesen.
Bin gerade dabei dies mit einer Tabelle zu lösen, ich hätte aber gerne eine Code.
Eingabe des Namens in B2
https://www.herber.de/bbs/user/88129.xlsx
dankend Matze

AW: Aus Wort oder Zeichenfolge Zahl generieren

17.11.2013 19:40:54

ransi

Hallo Matze
Teste mal:
Tabelle1

	A	B
1	abcü123
2	Buchstabensumme:	41
3	Buchstabenprodukt:	1044
4	Anzahl Zeichen:	7
5

Formeln der Tabelle

Zelle	Formel
B2	=Buchstabensumme(A1)
B3	=buchstabenprodukt(A1)
B4	=Anzahl_Zeichen(A1)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Das ist der Code:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function Buchstabensumme(strText As String) As Long
Dim L As Long
Dim tmp
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
        Case 1 To 9
            Buchstabensumme = Buchstabensumme + tmp
    End Select
Next
End Function

Public Function Buchstabenprodukt(strText As String) As Long
Dim L As Long
Dim tmp
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
        Case 1 To 9
            If Buchstabenprodukt = 0 Then Buchstabenprodukt = 1
            Buchstabenprodukt = Buchstabenprodukt * tmp
    End Select
Next
End Function

Public Function Anzahl_Zeichen(strText As String) As Long
Dim L As Long
Dim tmp
For L = 1 To Len(strText)
    tmp = Mid(strText, L, 1)
    Select Case tmp
        Case "a" To "z", 0 To 9, "ä", "ö", "ü"
            Anzahl_Zeichen = Anzahl_Zeichen + 1
    End Select
Next
End Function

ransi

AW: Aus Wort oder Zeichenfolge Zahl generieren

17.11.2013 20:34:12

Matze

Hallo ransi,
besser spät als nie: D A N K E !!!
Genau das was ich gesucht habe
MATZE

Infobox / Tutorial

Zahlen aus Zeichenfolgen generieren in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Aus Wort oder Zeichenfolge Zahl generieren

Forumthread: Aus Wort oder Zeichenfolge Zahl generieren

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zahlen aus Zeichenfolgen generieren in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Aus Wort oder Zeichenfolge Zahl generieren

Forumthread: Aus Wort oder Zeichenfolge Zahl generieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zahlen aus Zeichenfolgen generieren in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread