makro funzt nicht
23.01.2004 02:07:39
Lin
kleines Problem: Ich habe folgendes Makro hier gefunden und nach meinen bezugszellen umgebaut aber es funkt nicht, liegt es daran das mein Tabellenblatt einene anderen Namen hat (Berechnung)wäre toll wenn einer eine Idee hätte.
Sub sverweis()
Dim C As Range, rngVlookUp As Range
For Each C In Range("E4:E369")
If WorksheetFunction.CountIf(Range("DN3:DN176"), C) > 0 Then
C.Offset(0, 1) = WorksheetFunction.VLookup(C, Range("DN3:DO176"), 2, 0)
End If
Next C
End Sub
Danke und Gruss Lin