Thema Datum  Von Nutzer Rating
Antwort
20.09.2011 12:00:28 Sebastian Brück
NotSolved
Blau Neuen Datensatz hervorheben
 20.09.2011 12:36:21 Dekor
NotSolved
20.09.2011 13:15:24 Sebastian Brück
NotSolved
20.09.2011 13:57:16 Holger
NotSolved
20.09.2011 14:00:14 Sebastian Brück
NotSolved
20.09.2011 14:03:34 Holger
NotSolved
20.09.2011 14:20:16 Sebastian Brück
NotSolved
20.09.2011 14:20:20 Sebastian Brück
NotSolved
21.09.2011 00:49:34 Till
*****
Solved
21.09.2011 09:42:08 Sebastian Brück
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
20.09.2011 12:36:21		 Views:
1037		 Rating:
     
Antwort:
  Ja
Thema:
Neuen Datensatz hervorheben

Hallo Sebastian,

Sub Daten_vergleichen()
    Dim Suchname As String
    Dim Fundname As Range
    Dim letzte_Zeile_Tab1 As Long
    Dim letzte_Zeile_Tab2 As Long
    Dim Wiederholungen As Long
    Dim Addresse As String
    Dim gefundene_Zeile As Long
    Dim Wiederholungen1 As Long
    Dim i As Long
    
    Application.ScreenUpdating = False
    letzte_Zeile_Tab1 = Sheets("Namensliste 1").Range("B65536").End(xlUp).Row
    letzte_Zeile_Tab2 = Sheets("Namensliste 2").Range("B65536").End(xlUp).Row
    i = 2
    
    For Wiederholungen = 2 To letzte_Zeile_Tab1
       For Wiederholungen1 = 2 To letzte_Zeile_Tab2
          If Sheets("Namensliste 1").Cells(Wiederholungen, 2) = Sheets("Namensliste 2").Cells(Wiederholungen1, 2) Then
             Sheets("Namensliste 1").Cells(Wiederholungen, 2).Interior.ColorIndex = 4
             Sheets("Namensliste 2").Cells(Wiederholungen1, 2).Interior.ColorIndex = 4
             Sheets("Auswertung").Cells(i, 2).Value = Sheets("Namensliste 2").Cells(Wiederholungen1, 2).Value
             i = i + 1
          End If
       Next
    Next
End Sub

Gruß Detlev

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
20.09.2011 12:00:28 Sebastian Brück
NotSolved
Blau Neuen Datensatz hervorheben
 20.09.2011 12:36:21 Dekor
NotSolved
20.09.2011 13:15:24 Sebastian Brück
NotSolved
20.09.2011 13:57:16 Holger
NotSolved
20.09.2011 14:00:14 Sebastian Brück
NotSolved
20.09.2011 14:03:34 Holger
NotSolved
20.09.2011 14:20:16 Sebastian Brück
NotSolved
20.09.2011 14:20:20 Sebastian Brück
NotSolved
21.09.2011 00:49:34 Till
*****
Solved
21.09.2011 09:42:08 Sebastian Brück
NotSolved