Wenn Dann Funktion - bei eindeutiger Zeichenlänge

Moderator: ModerationP

Wenn Dann Funktion - bei eindeutiger Zeichenlänge

Beitragvon Vadamo » 17. Jan 2018, 13:14

Hallo miteinander,
ich möchte gerne innerhalb einer Abfrage erreichen, dass Access bei bestimmten Zeichenfolgen Stellen abschneidet. Und zwar soll jeweils die Ziffer von den Buchstaben getrennt werden. (Falls dies überhaupt funktioniert)
Der Spalteninhalt ist als Text formatiert

Bsp: Bei GH5 (in der Spalte Verteilung) soll nur die 5 wieder gegeben werden; bei G10 soll eine 10 wieder gegeben werden. In der Spalte Verteilung sind zwischen 2 und 4 Zeichen enthalten. Jeweils eine Kombination aus Buchstabe und Zahl.

Meine Formel sieht bisher so aus:

GV-Zahl: Links([Verteilung];1)

Hat hier jemand einen Rat?

viele Grüße vadamo
Vadamo
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 55
Registriert: 08. Aug 2016, 08:01


Re: Wenn Dann Funktion - bei eindeutiger Zeichenlänge

Beitragvon Vadamo » 17. Jan 2018, 13:29

Oh super - das klingt gut. Ich kann es leider erst morgen wieder ausprobieren. Werde es testen!

vielen Dank für den Link!

viele Grüße, vadamo
Vadamo
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 55
Registriert: 08. Aug 2016, 08:01

Re: Wenn Dann Funktion - bei eindeutiger Zeichenlänge

Beitragvon Vadamo » 17. Jan 2018, 13:37

Leider hat es doch nicht geklappt. es kam eine Fehlermeldung, obwohl ich genau dies hier eingegeben habe: muss ich bei (Eingabe) etwas bestimmtes eingeben?


Function LeseZahl(Eingabe)

02.
Dim L As String, Zahl As String, Zeichen As String, i As Integer
03.
L = Len(Eingabe)
04.
Zahl = ""
05.
For i = 1 To L
06.
Zeichen = Mid(Eingabe, i, 1)
07.
If Zeichen >= "0" And Zeichen <= "9" Then Zahl = Zahl & Zeichen
08.
Next
09.
LeseZahl = Zahl
10.
End Function
Vadamo
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 55
Registriert: 08. Aug 2016, 08:01

Re: Wenn Dann Funktion - bei eindeutiger Zeichenlänge

Beitragvon Joss » 17. Jan 2018, 13:38

Im DBWiki findest du auch eine benutzerdefinierte Funktion.
http://dbwiki.net/wiki/VBA_Tipp:_Ziffern_aus_Zeichenfolge_extrahieren

Gruß
Josef
Meine Suchmaschine: www.fireball.de | Access-Wiki: www.dbwiki.de
Joss
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 157
Registriert: 20. Okt 2012, 11:38

Re: Wenn Dann Funktion - bei eindeutiger Zeichenlänge

Beitragvon Vadamo » 17. Jan 2018, 14:31

Auch Dir vielen Dank für Deinen Link. Ich kenne mich leider mit VBA nicht so aus. An einigen Stellen der Funktion wird (Text) geschrieben. Muss ich an den Stellen etwas bestimmtes eingeben, Spaltennamen oder so oder dir Formel nur unverändert übernehmen?

Viele Grüße vadamo
Vadamo
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 55
Registriert: 08. Aug 2016, 08:01

Re: Wenn Dann Funktion - bei eindeutiger Zeichenlänge

Beitragvon Joss » 17. Jan 2018, 14:43

Hallo vadamo,

Deine Variante:
GV-Zahl: Links([Verteilung];1)

Variante mit benutzerdefinierter Funktion:
GV-Zahl: ZiffernAusString([Verteilung])

Die Funktion muss in einem globalen Modul gespeichert werden.
Du brauchst daran nichts ändern.

Gruß
Josef
Meine Suchmaschine: www.fireball.de | Access-Wiki: www.dbwiki.de
Joss
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 157
Registriert: 20. Okt 2012, 11:38

Re: Wenn Dann Funktion - bei eindeutiger Zeichenlänge

Beitragvon Vadamo » 18. Jan 2018, 09:26

Hallo Josef, das hat ganz hervorragend geklappt. Lieben Dank für die Hilfe!!!

viele Grüße, vadamo
Vadamo
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 55
Registriert: 08. Aug 2016, 08:01

Re: Wenn Dann Funktion - bei eindeutiger Zeichenlänge

Beitragvon Nouba » 18. Jan 2018, 11:30

... und meide Sonderzeichen in Objektnamen, wie in GV minus Zahl. Besser ist GV_Zahl. In Tabelle oder gespeicherter Abfrage kannst Du jedoch zusätzlich die Eigenschaft Beschriftung des Felds mit GV-Zahl ausfüllen, was bei der Anzeige der Daten dann auch verwendet wird.
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
Nouba
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 16508
Registriert: 13. Mär 2006, 12:55
Wohnort: Berlin


Zurück zu Access Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 10 Gäste