AW: Welche formel für Übertrag?
Beni
Hallo Lorenz,
ich hoffe dass ich Dich richtig verstanden habe.
Dieses Makro durchläuft alle drei Tabellen und überträgt die Werte, die zusätzlich in einer der zwei anderen Tabellen vorhanden sind.
Gruss Beni
Sub Suchen_und_eintragen()
Dim a, b, i, j, r, s, t As Integer
Dim Wert As Variant
Dim c As Range
For t = 1 To 3
For a = 30 To 111
Wert = Sheets(t).Cells(a, 1).Value
j = 0
For s = 1 To 3
Set c = Sheets(s).Cells.Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing And t <> s Then j = j + 1
Next s
r = Sheets("Tabelle10").Cells(65536, 1).End(xlUp).Row + 1
Set w = Sheets("Tabelle10").Columns(1).Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If w Is Nothing And j > 0 Then Sheets("Tabelle10").Cells(r, 1) = Wert
Next a
For b = 145 To 160
Wert = Sheets(t).Cells(b, 1).Value
j = 0
For s = 1 To 3
Set c = Sheets(s).Cells.Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing And t <> s Then j = j + 1
Next s
r = Sheets("Tabelle10").Cells(65536, 1).End(xlUp).Row + 1
Set w = Sheets("Tabelle10").Columns(1).Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If w Is Nothing And j > 0 Then Sheets("Tabelle10").Cells(r, 1) = Wert
Next b
Next t
End Sub