Inputbox Makro
meixner
Ich gebe im Datenblatt 1 in der Inputbox den Namen einer Aktie ein. Es soll durgesucht werden, ob diese Aktie sich auf dem Datenblatt 2 (Spalte A) befindet. Wenn ja, dann soll der Name dieser Aktie in Datenblatt 3 (Spalte A3) eingetragen werden. Kann er diese Aktie nicht finden, dann soll diese Fehlermeldung erscheinen "Aktie nicht vorhanden".
Kann mir jmd. einen Tip geben?
Sub Austausch()
Dim Aktie As Variant
1:
Aktie = InputBox("Bitte Name Aktie eingeben:", "Dateneingabe:")
If Aktie = Workbooks("Bestand").Worksheets(2).Range("A:A") Then Worksheets(3).Range("A3").Value
End If
Else
MsgBox "Die Aktie nicht vorhanden bzw. die Eingabe wurde abgebrochen !", vbCritical, "Nur _
Zahlen eingeben !"
GoTo 1
End If
End Sub
Vielen Dank
Dani
Anzeige