TextBox in UserForm befüllen

Guten Morgen zusammen,
gerade aus dem Urlaub zurück und schon die erste Frage ;-)
Manchmal ist es gut, am Ferienort kein Internet zu haben.
Zwar hatte ich Laptop etc. dabei und bin auch ein Stück
weitergekommen. Nur bei folgendem "Problemchen" habe ich
mich dann doch lieber in die Sonne gelegt :
In Datei A habe ich ein Auto_open, welches mir zunächst eine
UserForm mit einer TextBox, an der sich der Nutzer anmelden
soll. Kann ich diese TextBox auch per Makro aus einer anderen
Datei befüllen und dann auch per Makro den OK Button dieser
UserForm anklicken ?
Eine zweite vieleicht lächerliche Frage lautet :
Kann ich den Button rechts oben in einer UserForm oder MsgBox
deaktivieren, sodaß der Nutzer nur den OK Button anklicken
kann und die UserForm oder MsgBox nicht einfach wegklicken
kann ?
Irgendwo in meiner Literatur hatte ich das schonmal gelesen,
konnt die betreffende Stelle aber in der herrschenden Urlaubs-
stimmung nicht mehr finden.
Viele Grüße und danke für die Hilfe
R.Schmitt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo R.,
Wenn der OK-Knopf simuliert werden soll, einfach die entsprechende Prozedur aufrufen, z.B. CommandButton1_Click.
Mein Beispiel:
Wenn das Userform geöffnet wird, sucht es die Datei "logdata.txt" im Verzeichnis, in dem die Mappe steht.
Wenn gefunden, übergibt es die erste Zeile der Textdatei an die Textbox1 (Benutzer) und die zweite Zeile (wenn vorhanden) in Textbox2 (Kennwort).
Konnte das Kennwort auch gesetzt werden, wird per Makro der OK-Button "geklickt".
Hier der Code:

Option Explicit
Private Sub CommandButton1_Click()
MsgBox "Benutzer: " & TextBox1 & vbLf & "Kennwort: " & TextBox2
Unload Me
End Sub
Private Sub CommandButton2_Click()
MsgBox "Abbruch"
Unload Me
End Sub
Private Sub UserForm_Activate()
If TextBox2 <> "" Then
CommandButton1_Click
Exit Sub
End If
If TextBox1 <> "" Then TextBox2.SetFocus
End Sub
Private Sub UserForm_Initialize()
Dim fn As String, t1, t2
fn = ThisWorkbook.Path & "\logdata.txt"
If Dir(fn) <> "" Then
On Error Resume Next
Open fn For Input As #1
If Err.Number > 0 Then Exit Sub
Line Input #1, t1
Line Input #1, t2
On Error GoTo 0
Close #1
TextBox1 = t1
TextBox2 = t2
End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

Unten siehst du den Code, wie das Schließen des UF mittels Schließkreuz verhindert wird.
Grüße,
Matthias

Private Sub UserForm_Initialize() Dim dummy On Error Resume Next dummy = Workbooks("Mappe1.xls").Name If Err.Number > 0 Then Exit Sub 'Fehler wenn Datei nicht geöffnet On Error Goto 0 With Workbooks("Mappe1.xls").Sheets("Tabelle1") TextBox1 = .Range("A1") TextBox2 = .Range("A2") End With End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

TextBox in UserForm befüllen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread