Das wäre mein bisheriger Versuch...Leider funktioniert der Code gar nicht :( Hilfe !
Sub Namensvergleich()
Dim Namenkorr As Integer
Dim Namenfal As Integer
Dim Abgleich As Integer
Dim gefunden As Boolean
Application.ScreenUpdating = False 'stoppt ZwischenBerechnung'
Namenkorr = Worksheets("Übersicht").Activate
Range("G6", Range("AK6")).End
Namefal = Worksheets("Tabelle1").Activate
Range("P7", Range("P150")).End
Abgleich = Worksheets("Tabelle1").Activate
Range("Q7", Range("Q150")).End
'BERECHNUNG'
For i = 1 To Namenkorr
gefunden = False
For j = 1 To Namefal
If Worksheets("Übersicht").Cells(6, i).Value = Worksheets("Tabelle1").Cells(j, 16) Then
gefunden = True
Exit For
End If
Next j
If Not gefunden Then
'MsgBox(Keine Übereinstimmung)
End If
Next i
Application.ScreenUpdating = True
End Sub
|