Zelle ausgeben, wenn wert gefunden wurde
30.09.2003 12:48:33
Alex
Mit Hilfe von Werner uund seinem Makro konnte ich jetzt rausfinden, ob ein Wert in der Spalte vorkommt oder nicht. Wie muesste ich nun dieses makro veraendern, dass in der Zelle rechts neben dem Suchbegriff angegeben wird, in welcher Zelle der suchende Begriff gefunden wurde, falls er vorhanden ist. Hier ist das Makro, welches mir Werner freundlicherweise gemacht hat. Danke nochmals Werner :)
Option Explicit
Sub Alex()
Dim c As Range
Dim s As String
Dim laRC As Long, laRD As Long, i As Long
Dim Erg As Byte
Application.ScreenUpdating = False
laRC = Cells(Rows.Count, 3).End(xlUp).Row
laRD = Cells(Rows.Count, 4).End(xlUp).Row
For i = 1 To laRD
s = Cells(i, 4).Value
Erg = 0
For Each c In Range("C1:C" & laRC)
If c.Value = s Then
Erg = 1
Exit For
End If
Next c
Cells(i, 5).Value = Erg
Next i
Application.ScreenUpdating = True
End Sub
Viele Gruesse und danke fuer die Hilfe im Vorraus,
Alex