ich versuche gerade Werte aus einer TextBox Userform in eine Zelle zu schreiben .Ich habe 5 textboxen auf der User Form und in einer steht nur ein text dieser soll dann in die Zelle geschrieben werden. Mein Code dazu sieht so aus.
Private Sub Daten_übernehmen_Click()
Dim Bereich As Range
Dim Zelle As Range
Dim wksData As Worksheet
'Verweis auf Worksheet mit Daten setzen
Set wksData = ThisWorkbook.Worksheets("Leistung")
Set Bereich = wksData.Range("D5")
For Each Zelle In Bereich
If Me.TextBox2 "" Then wks.Cells("D5").Value = CDbl(.TextBox2.Value)
End If
If Me.TextBox3 "" Then wks.Cells("D5").Value = CDbl(.TextBox3.Value)
End If
If Me.TextBox4 "" Then wks.Cells("D5").Value = CDbl(.TextBox4.Value)
End If
If Me.TextBox5 "" Then wks.Cells("D5").Value = CDbl(.TextBox5.Value)
End If
If Me.TextBox6 "" Then wks.Cells("D5").Value = CDbl(.TextBox6.Value)
End If
Unload UserFormEingabe_Fr
End Sub
Doch leider meckert der Debugger dauernd rumm. Was ist falsch daran?
Grüße Fred