Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
264to268
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen vergleichen

Tabellen vergleichen
03.06.2003 12:52:23
andre
Hallo, kann mir jemand weiterhelfen!
Ich habe zwei Tabellenblätter mit gleicher Struktur Tabelle1 und Tabelle2.Nun möchte ich die Zeilen der Tabellen vergleichen aber nur bei einer Abweichung in Spalte E.
Tabelle1 Spalte B ist 0815 Spalte E ist c
Tabelle2 Spalte B ist 0815 Spalte E ist a.
bei einer änderung möchte ich den Wert c aus Tabelle 1 in dei gleiche Zeile Tabelle2 Spalte H eintragen.

vielen Dank
Andre

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Tabellen vergleichen
03.06.2003 12:59:45
xxx

Hallo,

=wenn(E1<>Tabelle1!E1;Tabelle1!E1;"")

Re: Tabellen vergleichen
03.06.2003 13:09:51
Andre

Danke für die schnelle Antwort,
Das Problem ist aber das die Artikelnummern in SpalteB nicht in beiden Tabellen in der gleichen Zeile stehen

Re: Tabellen vergleichen
03.06.2003 22:42:37
Regina

Hallo Andre,
probiers mal hiermit:

Sub Tab1MitTab2Vergleichen()
Dim i As Long
Dim c As Long
Dim TB1 As Worksheet
Dim TB2 As Worksheet
Dim ende
Set TB1 = Worksheets("Tabelle1")
Set TB2 = Worksheets("Tabelle2")
ende = Cells(65536, 2).End(xlUp).Row 'von letzter Zeile aufwärts

For i = 2 To ende
For c = 2 To ende

If TB1.Cells(i, 2) = TB2.Cells(c, 2) Then

If TB1.Cells(i, 5) <> TB2.Cells(c, 5) Then

TB2.Cells(i, 8) = TB1.Cells(c, 5)
End If

End If
Next
Next
MsgBox "Fertig"
End Sub

Gruß REgina

Anzeige
Re: Tabellen vergleichen
04.06.2003 07:42:36
andre

vielen Dank, funktioniert soweit jetzt habe ich aber festgestellt das nicht nur Spalte B übereinstimmen muß sondern auch noch D was müßte ich in dem Code ändern!

Danke Andre

Re: Tabellen vergleichen
04.06.2003 21:56:15
Regina

Hallo Andre,
versuchs mal so:

Sub Tab1MitTab2Vergleichen()
Dim i As Long
Dim c As Long
Dim TB1 As Worksheet
Dim TB2 As Worksheet
Dim ende
Set TB1 = Worksheets("Tabelle1")
Set TB2 = Worksheets("Tabelle2")
ende = Cells(65536, 2).End(xlUp).Row 'von letzter Zeile aufwärts

For i = 2 To ende
For c = 2 To ende

If TB1.Cells(i, 2) = TB2.Cells(c, 2) and
TB1.cells(i,4)= TB2.cells(c,4) Then

If TB1.Cells(i, 5) <> TB2.Cells(c, 5) Then

TB2.Cells(i, 8) = TB1.Cells(c, 5)
End If

End If
Next
Next
MsgBox "Fertig"
End Sub

Gruß Regina


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige