Hilfe zu Excel-Formeln bzw. VBA-Code

Hallo,
ich bin seit heute neu hier und habe eine Frage zu einem Excel-Formular. Es ist ein Urlaubsantrag.
Es gibt 2 Zeilen, wo neue Urlaube eingetragen werden können:
Zeile 3 in Zellen C3 + D3
Zeile 4 in Zellen C4 + D4
Ich habe dabei das Problem, dass die neuen Einträge von Urlaub (z.B. 12.10.20 - 16.10.20) nach dem Eintrag in die beiden Zellen C3 und D3 in eine Aufzählung aller Urlaube als jeweils letzter Eintrag übernommen werden müssen (siehe Beispieldatei). Das Gleiche dann auch mit den beiden Zellen darunter (C4 + D4).
Vielleicht läßt sich das über eine Formel lösen, aber ggf. auch über einen VBA-Code.
Falls VBA-Code, sollte dieser entweder
a) automatisch nach unten übernommen werden, nachdem man z.B. nach der Eingabe ENTER drückt
b) über einen Button "Urlaube übernehmen" nach unten eingefügt werden.
Und wenn z.B. in den Zellen C4 + D4 nichts eingetragen wurde, sollen die entsprechenden Felder im unteren Teil leer bleiben - also dass dort nicht eine Fehlermeldung auftaucht oder sonst etwas.
Hier habe ich meine Beispieldatei hochgeladen:
https://www.herber.de/bbs/user/140690.xlsx
Freue mich auf Eure Tipps.
Gruß,
Ingo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Beliebteste Forumthreads (12 Monate)

Hilfe zu Excel-Formeln bzw. VBA-Code

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread