03.04.2020, 20:35
Hallo liebes Forum
habe ein Problem.
In einer Excel Tabelle habe ich mir eine UserForm Programmiert welche Werte in z.B. Zelle C1 schreibt. Das klappt soweit auch perfekt.
In Zelle D1 ist jetzt eine Formel hinterlegt welche Bezug auf die Zelle C1 hat. Solange in C1 kein Wert drin steht bringt die Formel #NV. Dies ist ja auch normal und kein Problem. Gebe ich jetzt den Wert in C1 manuell ein dann wird die Formel sofort berechnet und spuckt das Ergebnis aus.
Wenn ich den Wert mittels UserForm eingebe dann taucht der Wert in C1 auf aber in der Formel in D1 bleibt #NV. Erst wenn ich in Zelle C1 klicke und dann enter drücke wird das Ergebnis berechnet.
Hab schon probiert im Blatt neu berechnen zu drücken. Das hilft aber nichts
Der Code für die User Form ist :
Hat jemand eine Idee wie man da Abhilfe schaffen kann ?
Danke sehr
Edit: habe raus gefunden das es daran liegt das die Zahlen als Text eingefügt werden. Wie kann ich die als Zahl einfügen ?
habe ein Problem.
In einer Excel Tabelle habe ich mir eine UserForm Programmiert welche Werte in z.B. Zelle C1 schreibt. Das klappt soweit auch perfekt.
In Zelle D1 ist jetzt eine Formel hinterlegt welche Bezug auf die Zelle C1 hat. Solange in C1 kein Wert drin steht bringt die Formel #NV. Dies ist ja auch normal und kein Problem. Gebe ich jetzt den Wert in C1 manuell ein dann wird die Formel sofort berechnet und spuckt das Ergebnis aus.
Wenn ich den Wert mittels UserForm eingebe dann taucht der Wert in C1 auf aber in der Formel in D1 bleibt #NV. Erst wenn ich in Zelle C1 klicke und dann enter drücke wird das Ergebnis berechnet.
Hab schon probiert im Blatt neu berechnen zu drücken. Das hilft aber nichts
Der Code für die User Form ist :
Code:
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "Titration!A3:A42"
End Sub
Private Sub CommandButton1_Click()
Range("Titration!A3:A42").Offset(1, 0)(ComboBox1.ListIndex).Offset(, 2) = TextBox1
Range("Titration!A3:A42").Offset(1, 0)(ComboBox1.ListIndex).Offset(, 4) = TextBox2
Range("Titration!A3:A42").Offset(1, 0)(ComboBox1.ListIndex).Offset(, 10) = TextBox3
Range("Titration!A3:A42").Offset(1, 0)(ComboBox1.ListIndex).Offset(, 21) = TextBox4
Range("Titration!A3:A42").Offset(1, 0)(ComboBox1.ListIndex).Offset(, 22) = TextBox5
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
End Sub
Hat jemand eine Idee wie man da Abhilfe schaffen kann ?
Danke sehr
Edit: habe raus gefunden das es daran liegt das die Zahlen als Text eingefügt werden. Wie kann ich die als Zahl einfügen ?