Vergleich von unterschiedlich aufgebauten Zellen

Hallo zusammen,
ich bastel seit einiger Zeit an einem Makro und bin dafür, dass ich ein absoluter Anfänger bin auch schon recht weit. Jetzt komme ich aber nicht weiter und brauche eure Hilfe. Folgendes Problem:
In Tabelle 1 habe ich in Spalte 4 Zeichenketten bestehend aus 1-6 3er Gruppen, z.B.
Zelle(1,4) xxx,yyy
Zelle(2,4) zzz,abc,fgh,zyx,xxx, yyy
Je Zeile kann jede 3er Gruppe nur 1x vorkommen.
In Tabelle 2 sind in Spalte 17 ähnliche Zeichenketten die jedoch anders aufgebaut sind:
Zelle (5,17) +xxx+yyy
Hinzu kommt, dass die Zeichenketten in Tabelle 2 durch und (+) oder oder( / ) verknüpft sein können:
Zelle(20,17) +zzz/zzy/zyy+abc+fgh+zyx+xxx+yyy
Ich möchte jetzt in Tabelle 2 die Zellen finden die mit der Kombination aus Tabelle 1 beschrieben werden und den dazugehörigen Wert aus der gleichen Zeile, Spalte 1 in eine 3. Tabelle eintragen, das heißt für Tabelle 1, Zelle(1,4) würde Zelle(5,17) ein Treffer sein, Zelle (20,17) aber nicht weil dafür noch mehr Kombinationen nötig sind. Zelle(2,4) hätte einen Treffer bei Zelle(20,17) weil zzy und zyy nur optional sind. Zelle (5,17) wäre kein Treffer weil in (2,4) mehr Kombinationen enthalten sind.
Bisher habe ich die 3er Kombinationen in Tabelle 1 auf einzelne Zellen (Spalten 7-12) aufgesplittet. Bei dem Vergleich dieser einzelnen Zellen mit Tabelle 2 hänge ich jetzt fest.
Ich hoffe ich habe mich halbwegs verständlich ausgedrückt und bin für jeden Tip dankbar!
VG
Micha

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hey Ransi und auch alle anderen,
hattest du schon Zeit dir die Beispieldatei anzuschauen?
Ich habe mittlerweile auch selber ein bisschen rumprobiert und mir Sachen zusammengesucht. Ich weiß allerdings nicht, ob da das gewünschte Ergebnis rauskommt und kann es nicht überprüfen, weil ich einen Fehler bekomme (Objektvariable oder With-Blockvariable nicht festgelegt). Wo liegt mein Fehler?
Option Explicit

Private Sub CommandButton1_Click()
Dim EingabeWS As Worksheet, StammWS As Worksheet, AusgabeWS As Worksheet
Dim LastRowStamm As Long, LastRowEingabe As Long
Dim PR As Integer, kombi As Integer, ResultCount As Integer, k As Integer
Dim SuchKombi As Range
Dim ErsteAdresse As String
EingabeWS = Sheets("Tabelle1")
StammWS = Sheets("Tabelle2")
AusgabeWS = Sheets("Tabelle3")
PR = 2
With StammWS
LastRowStamm = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
With EingabeWS
LastRowEingabe = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
For PR = 2 To LastRowEingabe
With StammWS.Range(Cells(2, 17), Cells(LastRowStamm, 17))
kombi = 5
Set SuchKombi = .Find(EingabeWS.Cells(PR, kombi), LookIn:=xlValue, LookAt:=xlPart)
ErsteAdresse = SuchKombi.Address
k = SuchKombi.Row
If Not SuchKombi Is Nothing Then
Do While EingabeWS.Cells(PR, kombi)  ""
Set SuchKombi = .Find(EingabeWS.Cells(PR, kombi), LookIn:=xlValue, LookAt:= _
xlPart)
If SuchKombi.adress = ErsteAdresse Then
SuchKombi.adress.Replace what:="+*" & [EingabeWS.cells(PR,kombi)], With:="", _
LookAt:=xlPart
EingabeWS.Cells(PR, kombi).Value = ""
kombi = kombi + 1
Else: Exit Do
End If
Loop
If SuchKombi.Value  "*+*" And IsEmpty(Range(EingabeWS.Cells(PR, 5), EingabeWS. _
Cells(PR, 16))) Then
AusgabeWS.Cells(ResultCount, 1).Value = EingabeWS.Cells(PR, 4)
AusgabeWS.Cells(ResultCount, 2).Value = StammWS.Cells(k, 1)
ResultCount = ResultCount + 1
End If
Set SuchKombi = .FindNext(ErsteAdresse)
End If
End With
Next PR
End Sub

Ich bin für jede Hilfe dankbar!
Viele Grüße
Micha

Beliebteste Forumthreads (12 Monate)

Vergleich von unterschiedlich aufgebauten Zellen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vergleich von unterschiedlich aufgebauten Zellen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread