Sub t()
Dim WS1 As Worksheet: Set WS1 = Worksheets("Tabelle2")
Dim WS2 As Worksheet: Set WS2 = Worksheets("Tabelle3")
Dim lngZeile1 As Long, lngZeile2 As Long
Dim lngWertHeim As Long, lngWertAusw As Long
Application.ScreenUpdating = False
For lngZeile2 = 4 To WS2.Cells(Rows.Count, 4).End(xlUp).Row
For lngZeile1 = 4 To WS1.Cells(Rows.Count, 1).End(xlUp).Row
If WS1.Cells(lngZeile1, 1) = WS2.Cells(lngZeile2, 1) And _
WS1.Cells(lngZeile1, 2) = WS2.Cells(lngZeile2, 2) Then
If WS1.Cells(lngZeile1, 4) = "Heim" Then
If lngWertHeim If lngWertHeim > 0 Then WS2.Cells(lngZeile2, 19) = lngWertHeim
If lngWertAusw > 0 Then WS2.Cells(lngZeile2, 27) = lngWertAusw
If WorksheetFunction.Max(lngWertHeim, lngWertAusw) > 0 Then _
WS2.Cells(lngZeile2, 11) = WorksheetFunction.Max(lngWertHeim, lngWertAusw)
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen