Wiedermal hoffe ich auf Euere Hilfe...
Folgender Code-Teil ergibt die Fehlermeldung "ungültiger Bezeichner". (txtbx)
txtbx soll der Name einer TextBox werden, deren Inhalt anschließend in
einen Kommentar eingefügt werden soll.
Der Name dieser TextBox soll zusammengesetzt werden aus "txtKms" und dem
Caption-Text des zugehörigen OptionButtons.
Deklariert hab ich txtbx und txtbx1 als String.
If TypeName(ObCb) = "OptionButton" Then
If ObCb.GroupName = "KMS1" Then
If ObCb.Value = True Then
txtbx = "txtKms" & ObCb.Caption
txtbx1 = txtbx.Value
.Cells(LoLetzte, ObCb.Tag) = "X"
.Cells(LoLetzte, ObCb.Tag).AddComment
.Cells(LoLetzte, ObCb.Tag).Comment.Text Text:=(txtbx1)
End If
End If
End If
Könnt ihr mir bitte verraten wie das richtig heißen muß?
Verregnete Grüße
ChrisBee