UserForm braucht 2 Klick's
11.10.2004 20:07:14
Thomas
Nachfolgenden Code habe ich in einer UserForm. Dieser soll Werte aus der Excel-Tabelle nehmen und in die TextBox einfüllen. Das erste Mal wird jedoch nur ein Wert geändert. Meist die TextBox1. Beim zweiten Klick werden dann alle Werte richtig verändert. Weiss jemand, woran das liegen kann??
Private Sub cmdDefaultLaden_Click()
Dim NdhSth As Integer, NdhIH As Integer, NdhEH As Integer
Dim LbhSth As Integer, LbhIH As Integer, LbhEH As Integer
Dim NdhA As Integer, NdhB As Integer, NdhC As Integer, NdhD As Integer
Dim LbhA As Integer, LbhB As Integer, LbhC As Integer, LbhD As Integer
Dim frm As UserForm
With Worksheets("Eingabe")
NdhSth = Range("M70").Value
NdhIH = Range("M71").Value
NdhEH = Range("M72").Value
NdhA = Range("M73").Value
NdhB = Range("M74").Value
NdhC = Range("M75").Value
NdhD = Range("M76").Value
LbhSth = Range("N70").Value
LbhIH = Range("N71").Value
LbhEH = Range("N72").Value
LbhA = Range("N73").Value
LbhB = Range("N74").Value
LbhC = Range("N75").Value
LbhD = Range("N76").Value
End With
Set frm = frmGüte
With frm
.TextBox1.Value = NdhSth
.TextBox2.Value = NdhIH
.TextBox3.Value = NdhEH
.TextBox5.Value = LbhSth
.TextBox6.Value = LbhIH
.TextBox7.Value = LbhEH
.ComboBox1.Value = NdhA
.ComboBox3.Value = NdhB
.ComboBox5.Value = NdhC
.ComboBox7.Value = NdhD
.ComboBox9.Value = LbhA
.ComboBox11.Value = LbhB
.ComboBox13.Value = LbhC
.ComboBox15.Value = LbhD
End With
End Sub
Vielen Dank
Gruss Thomas