s- & wverweis mit verschiedenen Werten bzw. Schreibweisen

[MaxKa]

Guten Morgen zusammen,
 
folgende Problematik: Ich habe 2 Tabellenblätter, eine eindeutige Seriennummer, aber evtl. mehrere Benutzer auf einer Seriennummer mit verschiedener Formatierung pro Tabellenblatt.
(erste Schreibweise: „Servername/MustermannM“,
zweite Schreibweise auf dem anderem Blatt „Mustermann, Max“)
 
Gibt es hier eine Möglichkeit zu sagen, dass ich mir bei der ersten Schreibweise „Servername/MustermannM“ den Text nach dem Schrägstrich als Suchkriterium nehmen will und diesen Text bei der zweiten Schreibweise „Mustermann, Max“ bis zum Komma absuchen möchte. Die Kür wäre dann, dass mir Excel die Zeilen in einer Abfrage ausspuckt, bei denen die Seriennummer übereinstimmt, aber eben die Namen nicht. :16:

Vielen lieben Dank schon mal voraus! :18:

LG Max

[WillWissen]

Hallo Max,

stell uns doch bitte eine auf wenige relevante Datensätze abgespeckte Beispieltabelle zur Verfügung. Sensible Daten bitte anonymisieren; der Aufbau der Tabelle muss aber deinem Original gleichen. so geht's:  http://www.clever-excel-forum.de/thread-326.html

[Fennek]

Hallo,

wenn es eine eindeutige Serien-Nr. gibt, kann z.B. =aggregat() alle Nutzername auflisten.

Um Suchen zu können, müssen nach der Anonymisierung gleiche String gleich bleiben. Da hilft dieser Code:

Code:

Sub F_en()
 
  Dim By() As Byte

  With CreateObject("scripting.dictionary")
     For Each it In Sheets(1).UsedRange.Offset(1).SpecialCells(2, 2)
        By = it.Value
        Tx = ""
        For b = 0 To UBound(By) - 1 Step 2

           If (By(b) > 64 And By(b) < 91) Or (By(b) > 96 And By(b) < 123) Then _
               By(b) = (65 + Int(26 * Rnd)) Or (By(b) And 32)
           Tx = Tx & Chr(By(b))
        Next b
        .Item(it) = Tx
     Next
     
     For Each it In .keys
         Sheets(1).UsedRange.Offset(1).Replace it, .Item(it), 1
     Next
   End With
End Sub

mfg

[Dieter63]

Hallo ,

könnte was für den  Spezialfilter sein

Unter Daten -->  Filtern -->  erweitert