Betrag zweier Zellen vergleichen
21.02.2014 09:16:52
Stefan
ich würde gerne Zelleninhalte von 2 Arbeitsblättern (wks1,wks2) vergleichen und falls eine Übereinstimmung vorhanden ist, Werte aus wks1 die 2 Spalten daneben stehen, in wks2 kopieren (in Abhängigkeit von den verglichenen Werten).
Problem habe ich gerade damit, dass die Werte in wks2 negiert sind. Habe versucht mit dem Betrag zu arbeiten, aber irgendwie läuft es nicht...
So sieht es momentan aus:
Sub Datenabgleichen()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim Zeile1 As Long, Zeile2 As Long
Dim bIdentisch As Boolean, sWert_E As String
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
With wks1
For Zeile1 = 2 To .Cells(.Rows.Count, 5).End(xlUp).Row 'Spalte E
sWert_E = LCase(wks1.Cells(Zeile1, 5).Value)
With wks2
For Zeile2 = 2 To .Cells(.Rows.Count, 3).End(xlUp).Row 'Spalte C
bIdentisch = False
If LCase(Left(.Cells(Zeile2, 1).Abs(Value), 6)) = Left(sWert_E, 6) Then
bIdentisch = True
End If
If bIdentisch = True Then
'Werte aus Tabelle 1 nach Tabelle 2 kopieren
.Cells(Zeile1, 7).Select
Selection.Copy
wks2.Select
Range("G2").Select
ActiveSheet.Paste
End If
Next
End With
Next
End With
End Sub
Viele Grüße,
Stefan