Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1108to1112
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
1108to1112
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kalender in Userform

Kalender in Userform
Stefanglander
Hallo Excelgemeinde,
ich arbeite mal wieder mit dem Kalendermodul von Hajo.
Dazu habe ich nun folgende Frage:
Ich habe die Userform1 die beim öffnen der Datei aufgerufen wird.
In der Userform habe ich eine Checkbox1. Wir diese angeklickt öffnet sich das Kalendermodul von Hajo.
Nun möchte ich das das Datum nicht wie vorgesehen in die aktive Zelle geschrieben wird, sondern in die Textbox1.
Soweit habe ich den Code, wie muss ich ihn verfolständigen ?
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
FRM_Kalender.Show
End If
End Sub
Lieben Gruß
Stefan

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
so, kann man nur Raten ...
11.10.2009 19:06:58
Matthias
Hallo
Zitat:
ich arbeite mal wieder mit dem Kalendermodul von Hajo.
Entweder Du wartest auf Hajo, oder Du lieferst mehr Infos.
Es hat ja nicht jeder Hajos Kalender.
Zitat:
In der Userform habe ich eine Checkbox1. Wir diese angeklickt öffnet sich das Kalendermodul von Hajo.
Nun möchte ich das das Datum nicht wie vorgesehen in die aktive Zelle geschrieben wird, sondern in die Textbox1.
Naja da fehlt sicher noch der Code aus dem Kalendersteuerelement
Es sieht hier ja niemand das Userform und auch nicht den bisherigen Code.
Durch welches Event soll das Beschreiben der Textbox ausgelöst werden, sicher durch Click in einen Kalender auf ein Datum, oder?
In welche Textbox soll geschrieben werden, Textbox im UserForm oder Textbox in einer Tabelle ?
Also ohne mehr Input, sicher nur ein Raten.
Lad am Besten ein Beispiel hoch.
evtl so:
Userbild
Anzeige
AW: so, kann man nur Raten ...
11.10.2009 19:30:43
Stefanglander
Hallo Mathias,
ich habe die Mappe mal hochgeladen.
Mein Problem steht genau beschrieben in der UF1
Lieben Gruß
Stefan
https://www.herber.de/bbs/user/65030.xls
AW: so, kann man nur Raten ...
11.10.2009 19:49:48
Matthias
Hallo
Textbox1 ist doch aber der Empfänger!
Wieso soll dort das Datum rein?
Oder meinst Du Textbox4 in Page2 ?
Private Sub KAL_Kalender_Click()
UserForm1.TextBox4 = KAL_Kalender.Value      ' ausgewähltes Datum eintragen
Unload Me                           ' Userform schließen
End Sub
Gruß Matthias
Anzeige
Du hast Recht...
11.10.2009 19:58:16
Stefanglander
Hallo Matthias,
klar meinte ich Textbox4, leider ein Flüchtigkeitsfehler von mir.
Habe es eben in meine UF eingebaut, klappt genauso wie ich es wollte, nur weiß ich nicht wie ich die Textbox5 und Checkbox2 hinbekommen soll.
Ich muss sicher den Cod eim Kalendermodul ergänzen, habe aber keinen Schimmer wie.
Gruß
Stefan
ich würde Optionbutton nehmen ...
11.10.2009 20:12:11
Matthias
Hallo
Textbox5 müsstest Du noch erstellen, die habe ich nicht gefunden

Option Explicit 
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox2.Value = False
FRM_Kalender.Show
End If
End Sub


Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
CheckBox1.Value = False
FRM_Kalender.Show
End If
End Sub


Private Sub KAL_Kalender_Click()
If UserForm1.CheckBox1.Value = True And UserForm1.CheckBox2.Value = False Then UserForm1. _
TextBox4 = KAL_Kalender.Value  ' ausgewähltes Datum eintragen
If UserForm1.CheckBox2.Value = True And UserForm1.CheckBox1.Value = False Then UserForm1. _
TextBox5 = KAL_Kalender.Value  ' ausgewähltes Datum eintragen
Unload Me                           ' Userform schließen
End Sub
Gruß Matthias
Anzeige
:-)
11.10.2009 20:27:40
Stefanglander
Freude Freude,
danke Matthias, das funktioniert wunderbar.
Aus reinem Interesse eine weitere Frage zu diesme Thema.
Hätte ich nun noch eine Checkbox3 und die Textbox6 wie müßte ich den Code erweitern?
Wenn es nicht geht , nicht schlimm, möchte es nur einfach wissen.
Gruß
Stefan
na so geht das ...
11.10.2009 20:40:10
Matthias
Hallo
Ich habe das jetzt mal mit Optionbutton realisiert, das läßt sich so leichter händeln.
Private Sub OptionButton1_Click()
FRM_Kalender.Show
End Sub


Private Sub OptionButton2_Click()
FRM_Kalender.Show
End Sub


Private Sub OptionButton3_Click()
FRM_Kalender.Show
End Sub


Private Sub KAL_Kalender_Click()
If UserForm1.OptionButton1.Value = True Then UserForm1.TextBox4 = KAL_Kalender.Value
If UserForm1.OptionButton2.Value = True Then UserForm1.TextBox5 = KAL_Kalender.Value
If UserForm1.OptionButton3.Value = True Then UserForm1.TextBox6 = KAL_Kalender.Value
Unload Me
End Sub
Userbild
Gruß Matthias
Anzeige
Noch einen Weg gelernt...
11.10.2009 21:07:40
Stefanglander
vielen Dank Matthias.
Nun werde ich für heute Feierabend machen.
Wünsche Dir eine ruhige Woche.
Verbundenen Dank
Stefan

302 Forumthreads zu ähnlichen Themen

Kalender in Zelle
Yannick

Hallo zusammen !
Ich habe folgende Frage : ich möchte gerne eine komplette Spalte so formatieren, dass in jeder Zelle kein Wert händisch eingetragen werden kann, sondern nur über einen button o.ä. ein kleiner Kalender aufpoppt in dem ich ein frei gewähltes datum anklicken kann welches dann...
06.11.2008 10:00:26
Thread-ID: 1022172
8 Beiträge
Anzeige
Kalenderblatt in Userform
Jochen

Hallo EXEL Experten!
Habe mir in einer Userform einen Kalender gebastelt,
Es handelt sich um Textboxen,die ich verwendet habe.
Daten Auslesen klapp auch ,nur wie lautet der Code,der auch die Bedingte Formatierung der Ausgelesenen Zelle mit in die Textbox übernimmt.
Schriftfarbe...
23.05.2009 17:15:33
Thread-ID: 1076875
13 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Unter letzte Zelle Inhalt einfügen
Karsten

Hallo,
Ich möchte mittels Makrobefehl unter der letzten Zelle mit Inhalt in Spalte A, D, G, J und M 00:00:00 eintragen lassen. Allerdings nur bis Reihe 10.
Besten Dank für eure Hilfe.
Gruß
Karsten
11.09.2009 09:41:21
Thread-ID: 1101913
8 Beiträge
Bilder automatisch einfügen in Zelle
SimonB

Hallo zusammen,
ich habe ein Problem in Excel, welches ich auch durch diverse VBA-Makros aus dem Netz nicht lösen kann:
Ich möchte in der Spalte A eines Tabellenblattes über ein Makro ein JPG einfügen lassen, welches durch eine immer 6-stellige Artikelnummer in der Spalte H des selben B...
30.09.2009 12:57:23
Thread-ID: 1106400
8 Beiträge
Formel in Zelle einfügen
Alexander

Hallo zusammen,
Sub test() Dim str As String str = "=WENN(Daten!$F$1='Tabelle1'!" & Cells(11, 5).Address & ";JAHR('Tabelle1'!" & Cells(18, 4) _ .Address & ")" End Sub wie kann ich die Formel in der Varialben str in eine Zelle einfügen? Oder kann ich die Formel auch direkt o...
13.10.2009 09:45:55
Thread-ID: 1109248
6 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
12
2
4
3
11
7
7
5
4
8
7
1
21
4
1
4
1
5
4
3
2
5
6