Thema Datum  Von Nutzer Rating
Antwort
27.11.2019 13:39:28 Guest
NotSolved
27.11.2019 13:47:04 Gast73222
NotSolved
28.11.2019 13:46:11 Gast89703
NotSolved
28.11.2019 15:16:25 Gast74323
NotSolved
29.11.2019 11:19:54 Gast62085
NotSolved
29.11.2019 12:05:53 Gast57851
NotSolved
27.11.2019 13:56:24 Torsten
NotSolved
27.11.2019 15:01:44 Gast13979
NotSolved
27.11.2019 16:52:27 Gast5594
NotSolved
27.11.2019 16:52:47 Gast
NotSolved
27.11.2019 17:13:44 Gast9495
NotSolved
27.11.2019 20:34:41 Guest1
NotSolved
27.11.2019 20:25:19 xlKing
NotSolved
28.11.2019 13:47:28 Gast30819
NotSolved
29.11.2019 20:12:54 xlKing
NotSolved
Blau Nachschlagen mit UND Verknüpfung
 29.11.2019 12:48:15 tscharl
NotSolved
29.11.2019 12:48:16 tscharl
NotSolved

Ansicht des Beitrags:
Von:
tscharl		 Datum:
29.11.2019 12:48:15		 Views:
893		 Rating:
     
Antwort:
  Ja
Thema:
Nachschlagen mit UND Verknüpfung

Ganz anderer Ansatz als Workaround:

Die beiden Tabellen erhalten eine Hilfsspalte G , in der mit folgender Formel die jeweilige Zeile zusammengefasst wird:

Für Zeile 2: =B2&"#"&C2&"#"&D2&"#"&E2                    etc. auf beiden Blättern

Diese Zellen werden nun mit folgendem Code in einem Modul verglichen:

Sub FindeGleiches()
    Dim wks1 As Worksheet
    Dim wks2 As Worksheet
    Dim suchRange As Range
    Dim suchKritRange As Range
    Dim varZelleKrit As Variant
    Dim varZelleSuch As Variant
    
    Set wks1 = Worksheets("Tabelle1")
    Set wks2 = Worksheets("Tabelle2")    
    '
    'Hilfssspalte in Tabelle 2
    Set suchKritRange = wks2.Range("F2:F5")
    '
    'Hilfssspalte in Tabelle 1
    Set suchRange = wks1.Range("F2:F5")

    For Each varZelleKrit In suchKritRange
        For Each varZelleSuch In suchRange
            If varZelleKrit.Value = varZelleSuch.Value Then
                MsgBox "Übereinstiimmung gefunden" & vbNewLine & _
                    "auf dem Blatt 1 in Zeile " & varZelleKrit.Row & vbNewLine & _
                    "und auf dem Blatt 2 in Zeile " & varZelleSuch.Row
            End If
        Next varZelleSuch
    Next varZelleKrit
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.11.2019 13:39:28 Guest
NotSolved
27.11.2019 13:47:04 Gast73222
NotSolved
28.11.2019 13:46:11 Gast89703
NotSolved
28.11.2019 15:16:25 Gast74323
NotSolved
29.11.2019 11:19:54 Gast62085
NotSolved
29.11.2019 12:05:53 Gast57851
NotSolved
27.11.2019 13:56:24 Torsten
NotSolved
27.11.2019 15:01:44 Gast13979
NotSolved
27.11.2019 16:52:27 Gast5594
NotSolved
27.11.2019 16:52:47 Gast
NotSolved
27.11.2019 17:13:44 Gast9495
NotSolved
27.11.2019 20:34:41 Guest1
NotSolved
27.11.2019 20:25:19 xlKing
NotSolved
28.11.2019 13:47:28 Gast30819
NotSolved
29.11.2019 20:12:54 xlKing
NotSolved
Blau Nachschlagen mit UND Verknüpfung
 29.11.2019 12:48:15 tscharl
NotSolved
29.11.2019 12:48:16 tscharl
NotSolved