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)
steve1da hat eigentlich recht. Wenn du VBA nutzen möchtest/darfst/kannst/willst/musst dann nachfolgend eine Beispieldatei. Ist aber kaum getestet.
[attachment=48598]
Folgende(r) 1 Nutzer sagt Danke an Gast für diesen Beitrag:1 Nutzer sagt Danke an Gast für diesen Beitrag 28 • Egon12
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
29.06.2023, 16:41 (Dieser Beitrag wurde zuletzt bearbeitet: 29.06.2023, 16:44 von Fränky.)
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