AW: bitteschön owT
06.10.2020 17:09:50
Ingo
Hallo und danke für Eure Hilfe.
Sorry, aber ich blicke durch dieses Forum nicht durch.
Diese Forensoftware ist so ungewöhnlich und so anders, als alle anderen, die ich bisher kannte. Ich bin Mitglied in zahlreichen Foren.
Ich habe jetzt die Datei 140692.xlsm erneut runtergeladen und dann auch den neuen Code dort eingetragen.
Sub Schaltfläche1_Klicken()
Dim suche As Variant, x As Range
For Each x In Range("C3:C4")
If IsDate(x.Value) And x.Value "" Then
Set suche = Range("C7:C16").Find(what:=x.Value, LookIn:=xlValues, Lookat:=xlWhole)
If suche Is Nothing Then
If DateDiff("d", x, x.Offset(, 1)) > 0 Then
Range("C" & Range("C7").End(xlDown).Row + 1).Resize(, 3).Value = Range(x, x. _
Offset(, 2)).Value
End If
Else
MsgBox "Datum: " & x & " schon vorhanden"
Set suche = Nothing
End If
End If
Next
Set x = Nothing: Set suche = Nothing
End Sub
Aber auch dann funktioniert es nicht.
Ich sehe aber im VBA-Bereich auch 2 x Makros. Irgendwas habe ich da wohl falsch gemacht, denn ich hatte zunächst schon mal ein Makro "Urlaub" mit einem anderen Code ausprobiert. Dieses Makro steht jedoch im Bereich "Standard / Module1" (siehe Screenshot).
Hier der Screenshot:
https://www.herber.de/bbs/user/140703.jpg
Sorry wegen dem Aufwand ;-)
Gruß,
Ingo