Wenn Wert in A1 vorkommt, dann in Zelle C7
05.11.2012 19:13:48
Wolfgang
mein nachfolgender Versuch, eine Zellabfrage vorzunehmen, scheitert kläglich. Ich würde gerne abfragen, ob eines der genannten Wörter in Zelle A1 vorkommt, wenn ja, soll der Wert (es kommt jeweils immer nur eines dieser Wörter vor) in Zelle C7 Tabelle Quelle übernommen werden. Danke schon jetzt für die Rückmeldung.
Gruß - Wolfgang
Sub Test()
If Worksheets("Quelle").Range("A1").Value Like "*bezahlt*" Or "*gestundet*" Or "*nicht bekannt*" _
_
Then
Range("C7").Value = Range("A1").Value Like "*bezahlt*" Or "*gestundet*" Or "*nicht bekannt*"
Else
MsgBox "Nicht vorhanden", vbExclamation
End If
End Sub