Tabellen vergleichen / Nachtrag (@Hajo)

Bild

Betrifft: Tabellen vergleichen / Nachtrag (@Hajo)
von: Erich M.
Geschrieben am: 24.09.2003 10:34:21

Hallo zusammen,

aus dem Thread:
https://www.herber.de/forum/archiv/312to316/t313701.htm
habe ich bereits eine Lösung:


Sub Tabellen_Vergleichen()
'   erstellt von Hajo.Ziplies@web.de 23.09.03
' http://home.media-n.de/ziplies/
'   2 Tabellen vergleichen und in Tabelle2 kennzeichnen
'   Tabelle1 Original Spalte A,  Tabelle 2 Kopie Spalte B
'   alle die von Tabelle1 in Tabelle2 vorhanden sin sollen gekennzeichnet werden
    Dim LoI As Long
    Dim LoJ As Long
    Dim LoLetzte1 As Long
    Dim LoLetzte2 As Long
    LoLetzte1 = 65536
    With Worksheets("Tabelle1")
        If .Range("A65536") = "" Then LoLetzte1 = .Range("A65536").End(xlUp).Row
    End With
    LoLetzte2 = 65536
    With Worksheets("Tabelle2")
        If .Range("B65536") = "" Then LoLetzte2 = .Range("B65536").End(xlUp).Row
    End With
    For LoI = 1 To LoLetzte1
        For LoJ = 1 To LoLetzte2
            If Worksheets("Tabelle1").Cells(LoI, 1) = Worksheets("Tabelle2").Cells(LoJ, 2) Then
                Worksheets("Tabelle2").Cells(LoJ, 2).Interior.ColorIndex = 19
            End If
        Next LoJ
    Next LoI
End Sub


Meine Versuche, wie folgt zu ergänzen, sind aber gescheitert:
1. Es soll die komplette Zeile der Tabelle2 farblich markiert werden (derzeit
nur die zelle).
2. Es sollen nur die Zellen (Zeilen) markiert werden, die einen Inhalt haben
(derzeit werden leere Zellen mitmarkiert, wenn in beiden Spalten leere Zellen
bestehen, die zwischen beschrifteten Zellen liegen).

Besten Dank für eine Hilfe!

mfg
Erich
Bild


Betrifft: nicht Hajo, aber....
von: K.Rola
Geschrieben am: 24.09.2003 10:47:12

Hallo,
Option Explicit

Sub mark()
Dim LoI As Long
Dim LoJ As Long
Dim LoLetzte1 As Long
Dim LoLetzte2 As Long
LoLetzte1 = 65536
With Worksheets("Tabelle1")
  If .Range("A65536") = "" Then LoLetzte1 = .Range("A65536").End(xlUp).Row
End With
LoLetzte2 = 65536
With Worksheets("Tabelle2")
  If .Range("B65536") = "" Then LoLetzte2 = .Range("B65536").End(xlUp).Row
End With
For LoI = 1 To LoLetzte1
  For LoJ = 1 To LoLetzte2
      If Worksheets("Tabelle1").Cells(LoI, 1) = Worksheets("Tabelle2").Cells(LoJ, 2) And _
         Worksheets("Tabelle1").Cells(LoI, 1) <> "" And _
         Worksheets("Tabelle2").Cells(LoJ, 2) <> "" Then
         Worksheets("Tabelle2").Rows(LoJ).Interior.ColorIndex = 19
      End If
  Next LoJ
Next LoI
End Sub


Gruß K.Rola


Bild


Betrifft: DANKE - K.Rola: funktioniert perfekt!! o.T.
von: Erich M.
Geschrieben am: 24.09.2003 11:13:56

.


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Tabellen vergleichen / Nachtrag (@Hajo)"