Hallo Leute, ich hab hier ein kleines Problem...Kann mir hier einer erklären welche Funktionen dieser Code mit sich bringt?
Sub Worksheet_Selectionchange(ByVal Target As Range) 'Mit jedem Zellwert wird der Code ausgeführt
LetzteZeile = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row 'Bestimmt letze befüllte Zeile von Spalte D im der Kontaktliste
If Not Intersect(Target, Range("D7:K" & LetzteZeile)) Is Nothing Then 'Hervorhebung der aktiven Zeile
If Target.CountLarge > 1 Then GoTo Mehrfachwahl
Range("B4") = Target.Row
Range("B5") = Cells(Target.Row, 4).Value
Range("B6").FormulaLocal = "=WENNFEHLER(VERGLEICH(B$5;INDIREKT(""'""&$B3&""'!$B$1:$B$999999"");0);0)"
Else:
Range("B4") = 0
Range("B5") = 0
Mehrfachwahl:
Range("B4") = 0
End If
End Sub
|