Hilfe bei Find-Funktion VBA
16.05.2013 22:34:18
b3000
leider komme mit meiner Find Funktion nicht weiter.
Ich habe eine kleine "Erfassung" zusammengebaut, in der ich eine Tabelle mit dem Lagerbestand habe. Diesen Bestand kann ich über eine Userform Ein bzw. Ausbuchen.
Jetzt möchte ich das ganze aber so erweitern, das direkt in der Eingabemaske, wo die Artikelanzahl eingetippt wird, der Lagerbestand automatisch in der Tabelle BestandBuchen geändert wird.
Dazu habe ich folgene Funktion versucht anzupassen, aber scheitert leider daran, das ich nicht _
weiß wie ich weiter mache, wenn der gesuchte Wert gefunden wurde:
Sub Lageraktualisierung()
Application.ScreenUpdating = False
Dim SuBe As Long
Dim c As Range
SuBe = Range("Menge1")
Artikelliste.Activate
With Sheets("BesandBuchen").Range("E5:E" & Cells(Rows.Count, 1).End(xlUp).Row)
Set c = .Find(SuBe, LookIn:=xlValues)
End With
End Sub
Wie sage ich jetzt, dass in Tabelle "BestandBuchen" der Bestand in Spalte F um den Wert Menge1 aus Tabelle1 reduziert wird?
Und wo Kopiere ich den Code ein?Modul oder Tabellenblatt?