Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1676to1680
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1676to1680
1676to1680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform bei Doppelklick auf Datum

Userform bei Doppelklick auf Datum
06.03.2019 19:21:24
Tom
Hallo Forum,
ich habe in Excel einen dynamischen Kalender erstellt, welcher mir bestimmte Ereignisse durch bedingte Formatierung farbig darstellt.
Siehe: www.herber.de/bbs/user/128152.xlsx
Nun möchte ich durch Doppelklick auf ein Datum im Tabellenblatt Kalender eine Userform öffnen, welche mir die jeweiligen Ereignisse in einem oder mehreren Textfeldern anzeigt.
Beispiel 01.05.19 = Textfeld1: Geburtstag Frank, Textfeld2: Tag der Arbeit usw.
Die jeweiliegn Ereignisse sind ebenfalls im Tabellenblatt Kalender ab Spalte BW ff. zu finden.
Ich kann diese über die "normalen" Excel Funktionen auch einwandfrei filtern/durchsuchen nur in eine Userform mit VBA bekomme ich sie nicht.
Würde dies über die IF und Vlookup Funktionen funktionieren?
Und wenn ja, wie?
Bin für jede Hilfe dankbar.
Grüße
Tom

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform bei Doppelklick auf Datum
06.03.2019 19:57:47
Hajo_Zi
Hallo Tom,
das geht nicht, da eine XLSX Datei kein Makro enthalten kann.
Ich sehe keinen Grund eine Datei 2x zu speichern. Ich führe keine Liste unter welchem Dateinamen ich die Datei gespeichert habe.
Die UseForm hast Du also noch nicht erstellt.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: Userform bei Doppelklick auf Datum
06.03.2019 20:08:51
Tom
Hallo Hajo,
Danke für Deine prompte Rückmeldung.
Die .xlsx als .xlsm Datei zu speichern ist nicht das Problem.
Habe jetzt bewusst die "Ursprungsdatei" hochgeladen, um an das Problem noch einmal völlig unbelastet heranzugehen.
Auch die entsprechende Userform zu erstellen und bei Doppelklick zu öffnen bekomme ich hin ...
Mein Problem ist, wenn ich nach einem bestimmten Wert suche, hier ActiveCell.Value mit anschließendem SVERWEIS bzw. Vlookup oder VERGLEICH/INDEX bekomme ich die Suchergebnisse nicht in der Userform bzw. im entsprechenden Textfeld dargestellt.
Weißt Du Rat?
Gruß
Tom
Anzeige
AW: Userform bei Doppelklick auf Datum
06.03.2019 20:12:56
Hajo_Zi
benutze Find. 
Option Explicit
' Formel und Inhalt
Sub find()
Dim Rafound As Range
Set Rafound = Columns(1).find(14, Range("A" & Rows.Count), , _
xlWhole, , xlNext)
If Not Rafound Is Nothing Then
MsgBox Rafound.Row
End If
End Sub
Gruß Hajo
AW: Userform bei Doppelklick auf Datum
06.03.2019 20:25:53
Tom
Nochmals Danke für die schnelle Rückmeldung.
Ich entschuldige mich schon mal im Voraus aber ich stehe gerade völlig auf dem Schlauch.
Wie und wo kopiere bzw. schreibe ich die Formel rein?
In ein Modul? In die Userform? in das Textfeld? in das Arbeitsblatt?
Ich sehe gerade gar nichts mehr ...
Wärst Du so nett und zeigst mir das an einem Beispiel?
Danke und Gruß
Tom
Anzeige
AW: Userform bei Doppelklick auf Datum
06.03.2019 21:14:32
Tom
Hey Nepumuk,
Geil!
Vielen Dank und Grüße
Tom
AW: Userform bei Doppelklick auf Datum
09.03.2019 17:35:33
Tom
Hallo Forum,
dank Nepumuks Hilfe funktioniert das öffnen der Userform bei Doppelklick fantastisch.
Jetzt möchte ich einen weiteren Schritt machen.
Es soll sich automatisch eine Userform/ein PopUp (frmTermin) öffnen, je näher ein Termin rückt.
Habe hierzu folgende Funktion in "Diese Arbeitsmappe" geschrieben:
Private Sub Workbook_Open()
Dim i As Integer
For i = 4 To 4
If Cells(4, 76).Value
Die Userform öffnet sich auch, sobald eine der obigen Bedingungen erfüllt wird.
Mein wunsch ist jetzt, eine ListBox sukzessive mit den entsprechenden Terminen beim Öffnen der Arbeitsmappe anzuzeigen, sofern Termine anstehen.
Beispiel:
Termin in 3 Tagen = Termin "xyz"
Geburtstag in 15 tagen = Es soll kein Einrtag in der ListBox erscheinen.
Jahrestag in 1 Tag = Jahrestag "abc"
usw.
Hat jemand eine Idee, wie ich dies umsetzen kann?
Danke im Voraus und Grüße
Tom
Anzeige

Links zu Excel-Dialogen

ListBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige