Gruppe
DatumZeit
Bereich
Datum
Thema
Datum suchen und Wert eintragen
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.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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