Suchfunktion Fehler
29.12.2016 22:10:53
Christian
dankbar. Ich habe arbeite seit kurzen mit VBA Formeln und
habe versucht mit exel vba mir eine automatische Berechnung für
die Mindesthaltbarkeit meiner Lebensmittel zu bauen.
Das soll so Funktionieren dass wenn ich Tabelle 1 in der Spalte Artikelnummer
die jeweilige Artikelnummer eingebe Excel in die in Tabelle 2 hinterlegte Produktliste geht.
- Die Artikelnummer sucht
- die benachbarte Zelle MHD und Artikelbezeichnung kopiert
- und in Tabelle ein 1 die entsprechenden Zellen automatisch ausfüllt
Für den Fall dass jemand eine Artikelnummer eingibt welche es nicht gibt, soll die Suchfunktion unterbrochen werden und eine Meldung mit Msg.Box kommen.
Da ist auch mein Problem, die Formel funktioniert so lang die Artikelnummern
korrekt sind. Aber krieg es nicht hin das bei Eingabe einer falschen Artikelnummer
die Suchfunktion unterbrochen wird und eine Meldung kommt.
Es erschein immer die Fehlermeldung "Laufzeitfehler 91", wo ist mein Fehler
ich bin ratlos?
Tabelle1: (in Excel)
Produktionstag: Artikelnummer Artikelbezeichnung: MHD berechnet: MHD Aufdruck:
01.02.2017 1 Apfel 30 03.03.2017
Tabelle2: (in Excel)
Artikelnummer: Artikelbezeichnung: MHD Tage:
1 Apfel 30
2 Birne 160
3 Schnapps 120
4 Bier 100
5 Wein 80
6 Cola 60
Sub artikelnummer()
'Nach Artikelnummer suchen
Dim finden As Range
Set finden = Worksheets("Tabelle2").Range("B3:B9").Find
(what:=Worksheets("Tabelle1").Range("D3"))
Worksheets("Tabelle2").Cells(finden.Row, finden.Column + 1).Copy Destination:=Worksheets(" _
Tabelle1").Range("E3")
Worksheets("Tabelle2").Cells(finden.Row, finden.Column + 2).Copy Destination:=Worksheets(" _
Tabelle1").Range("F3")
If finden Is Nothing Then
MsgBox "Fehler"
Exit Sub
End If
End Sub