Clever-Excel-Forum

Hallo,
habe viel gesucht und teilweise auch gefunden aber es klappt vorne und hinten nicht mit VBA, deshalb muss ich euch um Hilfe bitten.
Habe ein Kalendermonat auf dem 1. Tabellenblatt. Im zweiten Blatt stehen Daten die ich gerne in den Kalender eintragen möchte.
Eingetragen soll die ganze Datumsspalte bis zur angegebenen Zeile, die man im 2. Tabellenblatt einstellen kann.
Die Zellen sollen gelb gefärbt und mit den Buchstaben FU eingetragen werden.
Nach Eingabe des Datums soll direkt (ohne Button) in den Kalender eingetragen werden.
Nach löschen eines Datums soll dieses auch direkt wieder ausgetragen werden. (evtl. mit Hilfsspalte)

Grüße
Fränky

Hola,
und VBA brauchst du hier weil?
Das geht doch ganz normal mit Formeln und der bedingten Formatierung.

Zitat:habe viel gesucht und teilweise auch gefunden

und was genau?
Gruß,
steve1da

Moin Fränky,

steve1da hat eigentlich recht. Wenn du VBA nutzen möchtest/darfst/kannst/willst/musst dann nachfolgend eine Beispieldatei. Ist aber kaum getestet.

[attachment=48598]

Hallo Fränky,

ich gebe mal meinen Dreier dazu.
ins Modul des Tabellenblattes "Daten":

Code:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim i&, j&, k&

    If Not Intersect(Target, Columns(3)) Is Nothing Then

        With Tabelle1

            .Range("C6:AG27").ClearContents

            For i = 7 To 20

                For j = 3 To 33

                    If IsDate(Cells(i, 3)) Then

                        If CDate(.Cells(5, j)) = CDate(Cells(i, 3)) Then

                            For k = 1 To 22

                                If k <= Cells(4, 3) Then .Cells(k + 5, j) = "FU"

                            Next k

                        End If

                    End If

                Next j

            Next i

        End With

    End If

End Sub

[attachment=48605]

Gruß Uwe

Hallo,
Danke Case, genau das ist was ich wollte. Mega, die ganzen Infos in deinem Code, da kann man als Anfänger wirklich etwas lernen. Ihr habt natürlich recht, mit bedingter Formatierung geht das einfärben viel einfacher aber der Text 'FU' in den Zellen erreiche ich doch nur mit Formeln in den Zellen. Es sollen aber noch andere Einträge in den Kalender eingetragen werden.

Gruß Fränky

Hi Uwe
deinen Eintrag gerade erst gesehen. Funktioniert auch tadellos. Vielen Dank

Gruß Fränky

Fränky

steve1da

Case

Egon12

Fränky