VBA
15.03.2020 19:03:36
Werner
Leider funktioniert bei mir der Upload nicht daher kann ich die Beispieldatei nicht schicken.
Ich habe folgendes Problem.
Für Userform 1
Option Explicit
Private Sub CommandButton1_Click()
UserForm2.Show vbModal
Worksheets("Tabelle1").Select
UserForm2.TextBox1 = CommandButton1.Caption
End Sub
Für Userform2
Private Sub CommandButton1_Click()
Dim Zelle As Range
Set Zelle = Columns(1).Find(what:=TextBox1.Text, lookat:=xlWhole)
If Not Zelle Is Nothing Then
TextBox2.Text = Zelle.Offset(0, 1).Text
TextBox3.Text = Zelle.Offset(0, 2).Text
TextBox4.Text = Zelle.Offset(0, 3).Text
TextBox5.Text = Zelle.Offset(0, 4).Text
TextBox6.Text = Zelle.Offset(0, 5).Text
Else
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End If
End Sub
Private Sub TextBox1_Change()
TextBox = CommandButton1.Caption
Worksheets("Tabelle1").Select
End Sub
Ich frage mich warum mir der Wert des cmb "Raum1" in TextBox1 erst angezeigt wird wenn ich die UF2 einmal schliesse und dann wieder öffne.
Wäre schön wenn ich dafür eine Erklärung bekomme.
Schon mal DANKE