Hallo,
...freut mich, wenn's klappt, war die Zeit nicht ganz verschwendet...
Die Msgbox ist easy, einfach die Prozedur prcResetDate in Tabelle1 durch die neue ersetzen:
Private Sub prcResetDate(ByRef probjTarget As Range)
Dim objCell As Range
Set objCell = Tabelle2.Columns(2).Find(What:=probjTarget.Value, _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not objCell Is Nothing Then
With objCell
Call .Parent.Activate
Call .Select
Select Case fncMsgBoxCustom("Der Wert '" & .Value & "' wurde gefunden," & _
" möchten Sie das Datum in Spalte D ersetzen?", _
vbExclamation + vbYesNoCancel, "Wert gefunden!")
Case Is = vbYes
.Offset(0, 2).Value = Date
Call prcActivateSheet(prwksSheet:=Me)
Case Is = vbNo
Call prcActivateSheet(prwksSheet:=Me)
End Select
End With
Set objCell = Nothing
Else
Call MsgBox("Der Wert '" & probjTarget.Value & "' wurde nicht gefunden!", _
vbExclamation, "Keine Übereinstimmung")
End If
End Sub
Gruß,
|