Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
516to520
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
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Vergleich

Vergleich
12.11.2004 09:38:17
Eleni
Hi Forum,
Habe 2 Tabellen, die ich zuerst in der Spalte A, dann B und dann C miteinander vergleichen will. Steht in diesen 3 Zellen dasselbe, soll nix geschehen. Steht aber in Tab.1 etwas, was nicht in Tab. 2 steht, so soll diese Zeile aus Tab.1 in Tab.2 kopiert werden, und zwar in die erste unbeschriftete Zeile. Die Zeile besitzt Einträge in den Spalte A - Q. Danach sollen alle Zeilen der Tab.2 aufsteigend sortiert werden, zuerst nach Spalte A, dann B und dann C. Wie kriege ich eine Abfrage nach 3 verschiedenen Spalten unter einem Hut?
Danke, Eleni

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vergleich
u_
Hallo,
soviel zum Vergleich:

Sub Vergleichen()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim iRows1 As Long, iRows2 As Long, iCounter1 As Long, iCounter2 As Long, iEinf As Integer
Dim strTab1 As String, strTab2 As String
Dim bolFound As Boolean
bolFound = False
iEinf = 1
Set wks1 = Sheets("Tabelle1")
Set wks2 = Sheets("Tabelle2")
iRows1 = wks1.Cells(Rows.Count, 1).End(xlUp).Row
iRows2 = wks2.Cells(Rows.Count, 1).End(xlUp).Row
For iCounter1 = 1 To iRows1
With wks1.Rows(iCounter1)
strTab1 = .Cells(1) & .Cells(2) & .Cells(3)
End With
For iCounter2 = 1 To iRows2
With wks2.Rows(iCounter2)
strTab2 = .Cells(1) & .Cells(2) & .Cells(3)
End With
If strTab1 = strTab2 Then
bolFound = True
Exit For
End If
Next iCounter2
If bolFound = False Then
wks1.Rows(iCounter1).Copy wks2.Cells(iRows2 + iEinf, 1)
iEinf = iEinf + 1
End If
Next iCounter1
End Sub

Anzeige
AW: Vergleich
12.11.2004 11:17:51
Eleni
Hi u_,
Danke für den Code, klappt leider nicht. Tipp?
Ciao, Eleni
AW: Vergleich
Uduuh
da gibts einen Fehler in der Logik.
Ergänze wie folgt:
For iCounter1 = 1 To iRows1
bolFound = False
Gruß aus'm Pott
Udo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige