Bestandteil meines Namens ist nicht zulässig

Hat sich erledigt.

Jetzt konnte ich nachträglich meinen Nachnamen auch in den Richtigen ändern.

Ich verstehe es nicht.

Hab die Screenshots von meiner Tochter gesehen und gespeichert.

Irgendwie komm ich mir wie im Traum vor.

Sorry

Diese Lösung funktioniert nur auf Basis der Unterstriche und es ist egal was ansonsten in dem Text drin ist.





Andreas.

Function TelefonAK(ByVal Text As String) As String

  Dim i As Long, Temp

  'Suche nach 2 Unterstrichen

  i = InStr(Text, "__")  'Gefunden?    If i = 0 Then Exit Function  'Suche weiter wenn danach ein weiterer kommt

  Do While Mid(Text, i + 2, 1) = "_"

    i = InStr(i + 2, Text, "__")    'Gefunden?

    If i = 0 Then Exit Function  Loop

  'Ab hier alles bei einem Unterstrich aufteilen

  Temp = Split(Mid(Text, i + 2), "_")

  'Sind min. 2 Teile da?

  If UBound(Temp) < 1 Then Exit Function

  'Das ist der Bereich

  TelefonAK = Temp(1)

End Function

Hallo Philipp,

probiere es mit einer UDF.

Füge folgenden Code in ein Standard-Modul ein und rufe die Funktion im Blatt mit z.B. =Telefon(A1) auf.

Function Telefon(Bereich As Range) As String

Dim re, matches

Dim myStr As StringmyStr = Bereich

Set re = CreateObject("vbscript.regexp")

re.Pattern = "[0-9]{3,}"

re.IgnoreCase = False

re.Global = True

Set matches = re.Execute(myStr)

Telefon = CStr(matches(0).Value)

End Function
Falls in deinen Texten auch Zahlen enthalten sein können, poste mal ein aussagekräftiges Beispiel. Fängt die Telefonnummer immer mit einer 0 an? Ist also immer die Vorwahl enthalten?

Claus

Danke an Claus und Andreas für die schnellen Antworten!

Prinzipiell funktionieren beide Vorschläge. Der von Claus extrahiert den ersten Block von links, der aus Zahlen besteht. Da es davon mehrere gibt, bevorzuge ich die Funktion von Andreas, die genau den gewünschten Bereich rauszieht. Super gemacht!

Viele Grüße an euch,

Philipp

Hallo Access Profis,

folgendes: Ich habe eine Tabelle und daraus ein Formular gestaltet. Das Formular enthält ein Feld mit Nummern (mehrere Eingaben möglich), die wiederum auf eine andere Tabelle (oder einen Bericht) hinweisen, den ich dann mit einem Klick gleich sehen möchte.
Wie stelle ich das an? Wie muss ich die Spalte in der Tabelle oder das Feld im Formular definieren?



als Beispiel:

Tabelle A beinhaltet Kräuter mit Spalten "Kraut Name", "Kraut Nummer", "Name latein", "Name deutsch" und "Bestandteil von..."

Die Spalte "Bestandteil von..." ist eine Beziehung zu einer Tabelle B in der die Spalten "Tee Nr.", "Wirkung" und "weitere Kräuter des Tees" beinhaltet sind.

Für die Tabelle A habe ich ein Formular erstellt, das mir für ein Kraut nun im Feld "Bestandteile von" die "Tee Nr." ausspuckt (Mehrfacheingaben). Ich möchte nun aber möglichst in diesem Formular eine der ausgespuckten "Tee Nr." anklicken können um gleich
zu sehen, welche weiteren Kräuter ("weitere Kräuter des Tees") ich erhalte.

Irgendwie drehe ich mich im Kreis (bin auch kein Accessprofi) und komme nicht weiter. Auch mit der Funktion "Unterformular" verdreht es mir irgendwie die Datensätze... Kann mir jemand helfen?



Besten Dank an Alle

Gruß

Anders gefragt: Wie kann ich eine Abfrage innerhalb eines Formulares platzieren, das zB auf eine andere Tabelle oder ein anderes Formular/Bericht verweist? Für die Abfrage bräuchte ich ein Auswahlfeld nach dem ich suchen kann (Bsp. nach "Tee Nr." suchen)
und mir dann die weiteren Kräuterinkredenzien dieser Tee Nr. ausgibt (in einem Bericht, oder einem Unterformular). Schön wäre halt, wenn ich das Ergebnis der Suche auch im Formular A sehen könnte, ohne dass sich ein neues Fenster auftut



Danke