Das Archiv des Excel-Forums

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

Excel-Beispiele zum Thema " Tabellen vergleichen / Nachtrag (@Hajo)"

Suche über mehrere Tabellen download Benennen von Tabellenblättern mit Monatsnamen download
Druckseitenlinien im Tabellenblatt download Tabellenblattnamen in ein Listenfeld einlesen download
Suchbegriff über mehrere Tabellenblätter suchen. download Tabellenblätter benennen download
Tabellenblatt auswählen download Zustand von Tabellenblatt-Checkboxes ermitteln download
Tabellenblattnamen der VBE-Projekte ändern download Tabellenblattnamen nach Datum download
Gefilterte Daten in neues Tabellenblatt übertragen download Mehrmals vorkommende Werte in neues Tabellenblatt download
Kommentare in geschützte Tabellen einfügen download Tabellen vergleichen download
Grafiken im Tabellenblatt ordnen download Einzelnes Tabellenblatt speichern download
Tabellenblattnamen in eine ListBox einlesen download Tabellenblätter in umgekehrter Reihenfolge drucken download
Anwendername in Tabellenblatt eintragen download Druck aus mehreren Tabellenblättern auf eine Druckseite download
Zwei Tabellen wechselseitig ändern download Tabellen hinzufügen und sortieren download
Tabellenvergleich und Übernahme der Doppel download Tabellencode nach Kopieren des Blattes löschen download
Tabellenblatt in UserForm download Nach Eingabe Werte aus Tabellen Übernehmen download
Letztes Speicherdatum in die Fußzeile aller Tabellenblätter download Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern download
Den selben Bereichsnamen in mehreren Tabellenblättern download Textdatei in Tabellenblatt importieren download
Tabellen hinzufügen und mit Namen aus einer Liste belegen download Einzelnes Tabellenblatt unter Tagesdatum speichern download
Tabellen für die Werktage eines Monats erstellen download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Tabellenblattbereich als Email versenden download Daten in jeweils einer Spalte zweier Tabellen vergleichen download
Elemente in Tabellenblatt Pac-Man-artig steuern download Einen vorgegebenen Tabellenblattbereich in neue Arbeitsmappe download
Schaltfläche in einem Tabellenblatt ein- und ausblenden download Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download
Letzte Verknüpfung in einem Tabellenblatt löschen download Tabellenblattbereich sortiert als Zellkontextmenü download
Ausgeblendetes Tabellenblatt bei Paßworteingabe anzeigen download Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle download
Bei Tabellenaktivierung im Extras-Menü eigenen Menüpunkt anzeigen download Tabellenblattinhalt unter Weglassung einer Spalte als Textdatei download
ComboBoxes per VBA-Code in Tabellenblatt erzeugen download In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften download
Diagramm exportieren und in Tabellenblatt importieren download Arbeitsmappen- und Tabellenblattnamen auslesen download
Zellen vergleichen und markieren download Spalten A und B vergleichen und Doppel in C listen download
Werte vergleichen download Bereiche auf Übereinstimmung vergleichen download
Werte vergleichen und Ergebnis in Tabelle eintragen download Tabellen vergleichen und Zeilen ersetzen download
Tabellen vergleichen und bei Nichtübereinstimmung markieren download Textdateien vergleichen und Unterschiede dokumentieren download
Spalte A mit B vergleichen und Doppel in C eintragen download Telefonnumern mit Liste vergleichen und durch Namen ersetzen download
Werte vergleichen und übertragen download Teilstrings vergleichen und markieren download
Textmuster vergleichen download