Bedingte Formatierung mit VBA

[Egon12]

Hallo,
 
das sollst du ja auch nicht.
Es ist nur ein Hinweis meinerseits, wie man die Termine ins Kommentarfeld der Zelle bekommt.
Das Userform, dass da ständig auftaucht würde mich auch stören.
 
Gruß Uwe

[Andyle]

So, habe es jetzt über VBA Datenüberprüfung Eingabemeldung gelöst. ist besser.

Nur die feiertage werden im UserForm angezeigt.

Nochmals danke an alle für Eure Hilfe

[Andyle]

Wie kann ich folgende Daten auslesen?

Ferienliste:
von          bis
2.2.25      8.2.25  Sommerferien
6.6.25      2.7.25  Winterferien
usw

Ich prüfe, ob die aktive Zelle ein Ferientag ist. (Hilfstabelle) Wenn ja, dann eine 1 sonst 0
=ZÄHLENWENNS(Ferien_von;"<="&A1;Ferien_bis;">="&A1)

Jetzt möchte ich von bis auslesen sowie was es für Ferien sind.

Geht dass überhaupt?

Danke

[Andyle]

Gibt es eine Möglichkein in einen gesamten Bereich die Eingabemeldungen zu löschen?

Danke

[schauan]

Hallöchen,

z.B. so:

	A	B	C	D	E	F
1	von	bis	was		datum	04.02.2025
2	02.02.2025	08.02.2025	sommer		was	sommer
3	06.06.2025	02.07.2025	winter

Zelle	Formel
F2	=WENN(SUMMENPRODUKT((F1>=(A2:A3))*(F1<=(B2:B3)));SVERWEIS(F1;A2:C3;3;WAHR);"")

[Andyle]

Danke

Hatte sich erledigt. war mit Sverweis nicht zu lösen, da ja die Ferienart eine bzw. 2 Zeilen höher steht.

Nur suche ich noch einen Code, der alle Eingabeaufforderungen (Gültigkeit) in einem Bereich löscht.

[PIVPQ]

Hallo

Ohne das ich jetzt deine Datei angeschaut habe, könnte man eventuell ohne VBA arbeiten und PQ nutzen.

[schauan]

Hallöchen,

wenn Du den Makrorekorder anwirfst, kommt was in der Art dabei raus:

Code:

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("A1:A5").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Auf das notwendige gekürzt geht das so

Code:

Sub Makro2()
    Range("A1:A5").Validation.Delete
End Sub

[Andyle]

Perfekt!

Vielen Dank.

So, jetzt reicht das gebastle.

[Andyle]

Mal ne Frage:

Ich markiere ja die Urlaubstage rot.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Wenn ich jetzt das jahr im Kalender ändere bleiben ja die roten Urlaubstage erhalten, es sei denn ich lösche sie.

Kann man für das Jahr jeweils die urlaubstage irgendwie speichern.

2024 Urlaubstage
2025 urlaubstage
2026 keine urlaubstage

wenn ich das jahr ändere sollten aus dem Jahr auch wieder die Urlaubstage angezeigt werden, wenn welche vorhanden.

Geht sowas?

Danke