Aktuell kann es Probleme bei der Anmeldung mit dem Chrome oder Edge Browser geben. Ihr müsstet in die Einstellungen des Browsers gehen und Cache, Cookies und sofern vorhanden, gespeicherte Passwörter vom CEF löschen oder alternativ auf einen anderen Browser ausweichen. Ursache sind vermutlich kürzliche Browserupdates. x

Mustersuche nach Textteil und deren Zuordnung
#1
Hallo zusammen

folgendes Problem:
In Spalte O sind teilweise Monate innerhalb eines Textes enthalten (bpsw.: "Fracht aus 09/21", "Eingangsfracht Juli 2021", etc.)

In einer weiteren Spalte (anderer Tab, Spalte A) sind alle möglichen Arten der Aufzählung der Monate (bspw.: 09/21, Juli, etc). In der Spalte daneben (Spalte B) steht die Zuordnung (bpsw.: 09/21 --> September, Juli --> Juli, etc.).

Ich würde gerne eine Formel gestalten, die den Textteil in der Spalte O sucht (bspw.: 09/21), diesen im anderen Tab in Spalte A sucht und die Zuordnung aus Spalte B ausgibt.

Ich hatte es mit Index Vergleich Vergleich probiert mit einer Mustersuche, dies funktioniert jedoch nicht:

=(Index(AndererTabA:B;Vergleich("*" & O1 & "*";AndererTabA;0);2))

Vielen Dank!


Angehängte Dateien
.xlsx   version forum.xlsx (Größe: 13,58 KB / Downloads: 9)
Antworten Top
#2
Hi

in B2 und nach unten Kopieren.
=VERWEIS(2;1/ISTZAHL(SUCHEN(Hilfstab!$A$2:$A$154;A2));Hilfstab!$B$2:$B$154)

100% kannst du aber nicht erwarten. Wenn der Text z.B. das Wort "Augenbraun" enthält ist dort auch Aug drin.

Gruß Elex
Antworten Top
#3
Hallo Dennis,

hier eine Variante mit einer UDF(Userdefinierte Funktion per VBA):

Code:
Function F_FindeDatum(Quelltext As String) As String
  Dim i As Long
  Dim varQ As Variant, varT As Variant
  Static varL As Variant, varZ As Variant
  If Not IsArray(varL) Then
    varL = Worksheets("Hilfstab").Range("A2:A154").Value
  End If
  If Not IsArray(varZ) Then
    varZ = Worksheets("Hilfstab").Range("B2:B154").Value
  End If
  varQ = Split(Trim(Quelltext))
  For i = Application.Max(0, UBound(varQ) - 1) To UBound(varQ)
    varT = Application.Match(varQ(i), varL, 0)
    If IsNumeric(varT) Then
      F_FindeDatum = varZ(varT, 1)
      Exit For
    End If
  Next i
End Function

Gruß Uwe


Angehängte Dateien
.xlsm   version forum.xlsm (Größe: 22,27 KB / Downloads: 2)
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • excelhilfe
Antworten Top
#4
Hallo, 19 

eine weitere Variante: 21
[attachment=40165]
[-] Folgende(r) 1 Nutzer sagt Danke an Gast für diesen Beitrag:
  • excelhilfe
Antworten Top
#5
Super, vielen Dank! Problem ist gelöst :)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste