AW: Textbox Zelleninhalt zuweisen
christian
Hallo Joel,
das hab ich auch schon versucht, klappt aber nicht! Ich habe noch mehr Textboxen in meiner Userform, da funktioniert es einwandfrei, nur bei dieser einen nicht! Hab auch schon versucht den Zelleninhalt in nen String zu wandeln, hilft alles nix...
'****************************************************************************************
Private Sub Protokoll_lesen()
'Prozedur liest bereits eingegebene Versuchsdaten zu Korrekturzwecken in die Eingabemaske _
ein
Dim Arbeitsblatt_zurück As Integer
Dim Molmasse, maxKonz, Präinkubation, Inkubation As String
Arbeitsblatt_zurück = Arbeitsblatt + 1
Molmasse = Worksheets(Arbeitsblatt_zurück).Range("C10")
maxKonz = Worksheets(Arbeitsblatt_zurück).Range("C11")
Präinkubation = Worksheets(Arbeitsblatt_zurück).Range("I11")
Inkubation = Worksheets(Arbeitsblatt_zurück).Range("I12")
If Worksheets(Arbeitsblatt_zurück).Range("A1") = "MutaGen-Test" Then
MutaGen_Option.Value = True
Else
Ames_Option.Value = True
End If
TextBox_Datum.Text = CStr(Worksheets(Arbeitsblatt_zurück).Range("I3"))
TextBox_Bearbeiter = Worksheets(Arbeitsblatt_zurück).Range("C3")
TextBox_Datum = Worksheets(Arbeitsblatt_zurück).Range("I2")
TextBox_Substanz = Worksheets(Arbeitsblatt_zurück).Range("C9")
TextBox_Molmasse = Left(Molmasse, Len(Molmasse) - 6)
TextBox_maxKonz = Left(maxKonz, Len(maxKonz) - 6)
TextBox_Lösungsmittel = Worksheets(Arbeitsblatt_zurück).Range("C12")
ComboBox_Teststämme = Worksheets(Arbeitsblatt_zurück).Range("I9")
TextBox_OD = Worksheets(Arbeitsblatt_zurück).Range("I10")
TextBox_Präinkubation = Left(Präinkubation, Len(Präinkubation) - 2)
TextBox_Inkubation = Left(Inkubation, Len(Inkubation) - 2)
If Worksheets(Arbeitsblatt_zurück).Range("G13") = "(+S9)" Then
CheckBox_s9.Value = True
Else
CheckBox_s9.Value = False
End If
TextBox_Bemerkung = Worksheets(Arbeitsblatt_zurück).Range("A19")
End Sub