Also leider funktioniert das nicht wenn ich das eingebe.
Kannst du mir auch nen kompletten Code schreiben
Hallo,
ich habe hier mal nach ein paar Code-Schnipsel:
Sub vergleich()
Dim rng1 As Range
Dim lngID1 As Long
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set rng1 = Cells(Rows.Count, 1).End(xlUp)
Set wks1 = Worksheets(„Tabelle1“)
Set wks2 = Worksheets(„Tabelle2“)
I = 1
J = 1
Do Until wks1.Range(„A“ & I).Value = „“
Do Until wks2.Range(„A“ & J).Value = „“
If wks1.Range(„A“ & I).Value wks2.Range(„A“ & J).Value Then
'lngID1 = rng1
wks2.Range(„A“ & J).Interior.ColorIndex = 19
Exit Do
End If
J = J + 1
Loop
I = I + 1
J = 1
Loop
End Sub
Sub Tabellen_Vergleichen()
’ 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
Sub Tabellen_Vergleichen2()
’ 2 Tabellen vergleichen und in Tabelle2 kennzeichnen
’ Tabelle1 Original, Tabelle 2 Kopie
’ es wird Zelle A1 mit A1 verglichen usw.
Dim I As Integer
Dim J As Integer
’ Tabelle2 benutzten Bereich Rot markieren
Worksheets(„Tabelle2“).UsedRange.Interior.ColorIndex = 3
’ vergleich
For I = 2 To Worksheets(„Tabelle1“).Cells.SpecialCells(xlLastCell).Row
For J = 1 To Cells(I, Columns.Count).End(xlToLeft).Column
If Worksheets(„Tabelle1“).Cells(I, J) = Worksheets(„Tabelle2“).Cells(I, J) Then
Worksheets(„Tabelle2“).Cells(I, J).Interior.ColorIndex = xlNone
End If
Next J
Next I
End Sub
Kann man bestimmt verwenden. Nur anstatt die Zellen farblich zu markieren, muß die ID höher gesetzt werden. Das gleiche für den zweiten Button, nur dann in Bezug auf Tabelle1.
Gruß Jürgen
