Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellen vergleichen

Tabellen vergleichen
28.12.2004 09:43:56
Suti
Hallo zusammen,
Bin am verzweifeln, ich hoffe Ihr könnt mir helfen!
Im beiliegenden Excel sind zwei Tabellen vorhanden. Ich möcht nun von der Tabelle "Server1" die Zeilen mit der Tabelle "Service (on)" vergleichen und mir in der Tabelle "Server1" anzeigen lassen wenn eine Zeile Identisch vorhanden ist.
Zum Beispiel gibt es die Zeile (bestehenden aus zwei Spalten) "Browser Computer Browser" in beiden Tabellen, darum soll es in "Server1" irgendwie Angezeigt werden, dass die Zeile in "Service (on)" vorkommt, z.B. Zeile einfärben o.ä..
Hat jemand eine Idee wie das zu Lösen ist? Wäre für Eure Hilfe dankbar!
Gruss
Joachim

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nachtrag: Link zum Excel
HerbertH
probier das:


Option Explicit
Public Sub vergleich()
Dim sh As Worksheet, sh1 As Worksheet
Dim lastR%, lastR1%, i%, z%
Set sh = Sheets("Service (on)")
Set sh1 = Sheets("Server1")
lastR = sh.Cells(Rows.Count, 1).End(xlUp).Row
lastR1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To lastR
   For z = 2 To lastR1
     If sh.Cells(i, 1) = sh1.Cells(z, 1) Then
        sh1.Cells(z, 1).Interior.ColorIndex = 3
      End If
    Next
  Next
End Sub

     gruß Herbert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige