Gruppe
DatumZeit
Problem
Wie kann ich in Spalte 1 von Tabelle2 ein Datum finden, das in Zelle A1 von Tabelle1 hinterlegt ist? In die Zelle rechts neben dem gefundenen Datum soll ein Wert eingetragen werden. Ist die Zelle jedoch nicht leer, soll eine Sicherheitsabfrage erfolgen.
StandardModule: basMain
Sub DatumSuchen()
Dim var As Variant
With Worksheets("Tabelle2")
var = Application.Match(CDbl(Range("A1").Value), .Columns(1), 0)
If Not IsError(var) Then
If Not IsEmpty(.Cells(var, 2)) Then
If MsgBox("Nicht leer, trotzdem eintragen?", _
vbCritical + vbYesNo) = vbNo Then Exit Sub
End If
End If
.Cells(var, 2).Value = "Hallo!"
Application.Goto .Cells(var, 1), True
End With
End Sub