Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zwischen zwei TextBoxen unterscheiden

Zwischen zwei TextBoxen unterscheiden
21.12.2014 18:12:53
Robert
Hallo Zusammen,
ich komme grad nicht weiter. Ich habe zwei TextBoxen, durch klick in eine TextBox Öffne ich eine zweite UserForm, in der ein Kalender ist. Durch klick in den Kalender, schreibe ich dann das Datum in die TextBox. Siehe Code:
Private Sub TextBox9_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As  _
Single, ByVal Y As Single)
Frm_Kalender.Show
End Sub
Private Sub Label_Click()
UserForm1.TextBox9.Value = CInt(Label.Tag)
Unload Frm_Kalender
End Sub
So weit so gut.
Jetzt habe ich aber zwei TextBoxen (Datum von bis) Wenn ich jetzt den Kalender aus der zweiten TextBox (TextBox11) starte, möchte ich auch das ausgewählte Datum in TextBox11 schreiben.
Jemand ne Idee? :)
Danke & Gruß
Robbsen

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwischen zwei TextBoxen unterscheiden
21.12.2014 18:33:32
Gerd
Hallo Robert,
schreibe die Namen in eine globale Variable. Heißt dein Label wirklich nur "Label"?
Option Explicit
Public TBName As String
Private Sub TextBox9_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
Frm_Kalender.Show
TBName = "TextBox9"
End Sub
Private Sub TextBox11_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
Frm_Kalender.Show
TBName = "TextBox11"
End Sub
Private Sub Label_Click()
UserForm1.Controls(TBName).Value = CInt(Label.Tag)
Unload Frm_Kalender
End Sub
Gruß Gerd

Anzeige
AW: Zwischen zwei TextBoxen unterscheiden
21.12.2014 18:38:24
Daniel
Hi
eine mögliche Variante wäre, dass du die Textbox in eine Projektweit gültige Variable ablegst und dann in der Kalenderuserform diese Variable verwendest:
a) in einem allgemeinen Modul oberhalb der Makros:
dim TBfürDatum as Object
b) im Makro der textbox (muss für jede weitere Textbox entsprechend angepasst werden):
Private Sub TextBox9_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As  _
Single, ByVal Y As Single)
Set TBfürDatum = TextBox9
Frm_Kalender.Show
End Sub
c) im Makro der Kalenderuserform:
Private Sub Label_Click()
TBfürDatum.Value = CInt(Label.Tag)
Unload Frm_Kalender
End Sub
Gruß Daniel

Anzeige
AW: Zwischen zwei TextBoxen unterscheiden
21.12.2014 19:32:46
Robert
Hallo Zusammen,
Hajo - ich benutze übrigens deinen Code für den Kalender. Also habe ich die UserForm "frm_Kalender", das Modul und die zwei Klassenmodule.
Die Tips von Gerd und Daniel haben jetzt nicht funktioniert. Ich weiß auch nicht genau wo ich die Eintragungen machen soll..
Ich poste euch noch mal, was ich in welchem Modul stehen hab:
In UserForm1:
Private Sub TextBox9_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As  _
Single, ByVal Y As Single)
Frm_Kalender.Show
End Sub

Private Sub TextBox11_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As  _
Single, ByVal Y As Single)
Frm_Kalender.Show
End Sub
Im Klassenmodul cls_Kalenderwoche:
Option Explicit
Public WithEvents Label As MSForms.Label
Private Sub Label_Click()
UserForm1.TextBox9.Value = CInt(Label.Tag)
Unload Frm_Kalender
End Sub
Im Klassenmodul cls_Tag:
Option Explicit
Public WithEvents Label As MSForms.Label
Private Sub Label_Click()
If Month(Label.Tag) = Month(DaDatumKa) Then
UserForm1.TextBox9.Value = DateValue(Label.Tag)
Unload Frm_Kalender
Else
Erstellen Label.Tag
End If
End Sub

Anzeige
AW: Zwischen zwei TextBoxen unterscheiden
21.12.2014 19:50:01
Robert
Jo. Vielen Dank.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige