Thema Datum  Von Nutzer Rating
Antwort
26.05.2020 08:55:36 tb18
Solved
Blau Zelleninhalte in anderer Tabele suchen
 26.05.2020 14:19:44 Gast462
NotSolved

Ansicht des Beitrags:
Von:
Gast462		 Datum:
26.05.2020 14:19:44		 Views:
560		 Rating:
     
Antwort:
  Ja
Thema:
Zelleninhalte in anderer Tabele suchen

Habs hinbekommen...

Sub Vergleich()

Dim Zelle As Range
Dim Suche As Variant
Dim Treffer As Variant
        
'Äußere Schleife
ActiveWorkbook.Sheets("Tab2").Select

For a = 1 To Cells(Rows.Count, 1).End(xlUp).Row
     Suche = Cells(a, 1).Value
     Treffer = 0
    
        'Innere Schleife
            ActiveWorkbook.Sheets("Tab1").Select
            For i = 8 To Cells(Rows.Count, 2).End(xlUp).Row
                Set Zelle = Range("A" & i)
                If Zelle.Value = Suche Then
                    Cells.Range("A" & i & ":" & "DR" & i).Interior.Color = 5296274
                    Cells(i, "DR").Value = "X"
                    Treffer = Treffer + 1
                End If
            Next i
        
        ActiveWorkbook.Sheets("Tab2").Select
        If Treffer = 0 Then Cells.Range("A" & a).Interior.Color = 7434751
Next a
 
ActiveWorkbook.Sheets("Tab1").Select
Cells(1, 1).Select
a = 0
i = 0
Suche = ""
Treffer = ""
MsgBox "Fertig!"
 
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
26.05.2020 08:55:36 tb18
Solved
Blau Zelleninhalte in anderer Tabele suchen
 26.05.2020 14:19:44 Gast462
NotSolved