Excel - 500 Beiträge pro Seite

[KKTC]

Hallo liebe Exceljaner!

Ich schraube seit ein paar Tagen an folgendem Problem und bin auch nicht wirklich weiter gekommen:

Aufgabenstellung
ich habe eine Excel Datein/2 Tabellen
Die Datei beinhaltet folgende informationen
Vor Nachname und Tel NR.
Ich will ein Datenabgleich zwischen Tabelle 1 und Tabelle 2 machen
Suchkrieterien Tel. Nr und Nachname

Wenn in der Tabelle 1 und Tabelle 2 die Suchkrieterien übereinstimmen sollten die dann farblich hinterlegt werden.

Ist so was mit Excel möglich ??


kktc

[Erhan@Erhan]

Antwort auf Beitrag Nr.: 29.037.645 von KKTC am 27.04.07 23:47:11

Hi, ja es ist möglich

Abgleiche aber prinzipiell mit Access oder einer anderen DB durchführen....ist wesentlich einfacher.

Gruß
Erhan

[Salem88]

Antwort auf Beitrag Nr.: 29.037.645 von KKTC am 27.04.07 23:47:11

Sowas hatte ich in meiner Prüfung. Hab ich übersprungen die Aufgabe. Trotzdem bestanden.

Drum mein Tipp: Überspringe die Aufgabe.

Ich hoffe Dir weiter geholfen zu haben.

[Erhan@Erhan]

mit bedingter Formatierung sollte es klappen...


Gruß
Erhan

[ro77]

ja du musst eine wenn-dann formel schreiben, ich weis aber nichtmehr wie die einfärbung formatiert und definiert wird.
da hilft google aber weiter
da hat erhan recht mit bedingter formatierung

[KKTC]

?????????????

hat auch einer die formeln zu hand

[KKTC]

Sub Vergleich()
Dim BooDrin As Boolean
Dim lngLastRow1 As Long, lngLastRow2 As Long, lngCounter As Long
Dim rngFind As Range
Dim varFirstAddress As Variant


lngLastRow1 = Worksheets("Tabelle1").Cells(Rows.Count, 6).End(xlUp).Row
lngLastRow2 = Worksheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row

Application.ScreenUpdating = False
For lngCounter = 1 To lngLastRow1
BooDrin = False
With Worksheets("Tabelle2").Range("B1:B" & lngLastRow2)
Set rngFind = .Find(Worksheets("Tabelle1").Cells(lngCounter, 6), LookIn:=xlValues)
If Not rngFind Is Nothing Then
varFirstAddress = rngFind.Address
Do
Worksheets("Tabelle1").Cells(lngCounter, 7) = "Wahr"
BooDrin = True
Exit Do
Loop While Not rngFind Is Nothing And rngFind.Address <> varFirstAddress
End If
If BooDrin = False Then Worksheets("Tabelle1").Cells(lngCounter, 7) = "Falsch"
End With
Next lngCounter
Application.ScreenUpdating = True
End Sub

würde es damit funktionieren ????

[KKTC]

oder so

Option Explicit
Sub vergleich()
Dim w1x
Dim w2x
Dim w3x
Dim zaehler1 As Integer
Dim w1y
Dim w2y
Dim w3y
Dim zaehler0 As Long
Dim suche1 As Range
Dim suche2 As Range
w1x = Workbooks(1).Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
w1y = Workbooks(1).Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
w2x = Workbooks(2).Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
w2y = Workbooks(2).Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
If w1x > w2x Then
w3x = w1x
Else
w3x = w2x
End If
If w1y > w2y Then
w3y = w1y
Else
w3y = w2y
End If
ReDim excel1(w3y, w3x) As Variant
ReDim excel2(w3y, w3x) As Variant
Workbooks(2).Activate
Sheets(1).Select
excel2() = Range(Cells(1, 1), Cells(w3y, w3x))
Workbooks(1).Activate
Sheets(1).Select
excel1() = Range(Cells(1, 1), Cells(w3y, w3x))
For zaehler0 = 2 To w3y
Set suche1 = Workbooks(2).Sheets(1).Range("A1:A" & w3y).Find(excel1(zaehler0, 1), Lookat:=xlWhole)
Set suche2 = Workbooks(1).Sheets(1).Range("A1:A" & w3y).Find(excel2(zaehler0, 1), Lookat:=xlWhole)
If Not suche1 Is Nothing Then
For zaehler1 = 2 To w3x
If excel1(zaehler0, zaehler1) <> "" And excel1(zaehler0, zaehler1) <> excel2(suche1.Row, zaehler1) Then
Workbooks(1).Sheets(1).Cells(zaehler0, zaehler1).Interior.ColorIndex = 6
End If
Next zaehler1
Else
Workbooks(1).Sheets(1).Range(Workbooks(1).Sheets(1).Cells(zaehler0, 1), Workbooks(1).Sheets(1).Cells(zaehler0, w3x)).Interior.ColorIndex = 3
End If
If Not suche2 Is Nothing Then
For zaehler1 = 2 To w3x
If excel2(zaehler0, zaehler1) <> "" And excel2(zaehler0, zaehler1) <> excel1(suche2.Row, zaehler1) Then
Workbooks(2).Sheets(1).Cells(zaehler0, zaehler1).Interior.ColorIndex = 6
End If
Next zaehler1
Else
Workbooks(2).Sheets(1).Range(Workbooks(2).Sheets(1).Cells(zaehler0, 1), Workbooks(2).Sheets(1).Cells(zaehler0, w3x)).Interior.ColorIndex = 3
End If
Next zaehler0
End Sub

[scharfkantig]

Antwort auf Beitrag Nr.: 29.037.645 von KKTC am 27.04.07 23:47:11

warum immer gleich coden, muss doch nicht sein.

Nimm Tabelle 1 her, mach eine neue Spalte auf.
und dann fragst du für jeden Eintrag einfach ab.

ganz einfach ist z.B.
=ZÄHLENWENN(BereichTabelle2;Aktueller Suchwert)

Dann kriegst du eine tolle Zahl als Ergebnis!
und zwar wenn Suchwert in Tab2 vorkommt sogar
die Häufigkeit dazu...

Gruss