msgBox!
06.03.2009 14:38:15
lisa
Ich habe mir ein Macro gebaut, mit dem ich mir Daten aus dem Blatt Datenabank ins Blatt Dateneingabe mittels Sverweis hole.
Der Sverweis liegt auf dem Feld c1 in der Tabelle Dateneingabe und dem Index Datenbank!A:CA!
Klappt wunderbar.
Nun würde ich gern eine msgbox dazwischen haben wollen die, wenn das Suchkreterium nicht gefunden wird besagt nicht gefunden und den Macro abbricht!
Das ist mein Code dazu.
Private Sub CommandButton1_Click()
Range("B4").FormulaR1C1 = _
"=IF(VLOOKUP(R[-3]C[1],Datenbank!C[-1]:C[51],4,FALSE)="""","""",VLOOKUP(R[-3]C[1], _
Datenbank!C[-1]:C[51],4,FALSE))"
End Sub
Gibt es eine Möglichkeit das mit einzustellen?
Kann mir bitte jemand helfen?
Gruß Lisa