|
Liebe VBA Gemeinschaft,
wir versuchen gerade ein Makro aufzubauen.
Leider ist es nicht ganz so leicht wie gedacht und bleiben immer hängen.
In unserer relativ großen Exeltabelle mit mehren Arbeitsblättern möchten wir gern das Makro im aktiven Arbeitsblatt in spalte b nach aktuellen tagesdatum sucht und dann in spalte c nach einer bestimmten Artikelnummer sucht.
Wenn beides gefunden hätten wir gern eine Messagebox die text ausgibt.
Es geht meist bis wir auf aktuellen Datum suchen lassen.
Die Artikelnummer ist je Arbeitsblatt eine andere.
Vielen Dank im voraus und viele Grüße
unser Sub bisher:
Sub test2()
Dim rngArea As Range
Dim rngZelle As Range
Dim strSuchwort As String
strSuchwort = "259"
Set rngArea = Worksheets("flüssige Säuren").Range("A2:A20").Find(What:=Date, LookIn:=xlValues)
If Not rngArea Is today Then
Else
'Set rngZelle = Worksheets("flüssige Säuren").Range("C:C")
' If rngZelle = strSuchwort Then
MsgBox "Versand für externe Analysen laut LC, Dinesh fragen!"
' Exit Sub
End If
End Sub
|