Hary und Born haben mir vorhin bei meinem Problem geholfen, das läuft soweit.
Nur wenn ich nun per Userform die Werte anzeigen lassen will zickt es.
Fehlermeldung ist "Objektvariable oder With-Blockvariable nicht festgelegt".
Hab schon alles mir Mögliche ausprobiert...
Die Userform wird zwar nach der Fehlermeldung angezeigt, aber im Textfeld wird kein Wert angezeigt.
Es soll der Wert (Zellinhalt) 17 Stellen neben der aktiven Zelle angezeigt werden.
Es klappt weder mit
ActiveSheet.Range(Target.Row, Target.Column + 17).Value
noch mit
Target.Offset(0, 17).Value
Sub Bearbeiteranzeigen()
Dim Target As Range
ActiveSheet.Unprotect
UserForm1.Show
UserForm1.TextBox1.Text = ActiveSheet.Range(Target.Row, Target.Column + 17).Value 'Target.Offset(0, 17)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect
If UserForm1.Visible = True Then UserForm1.TextBox1.Text = ActiveSheet.Range(Target.Row, Target. _
Column + 17).Value 'Target.Offset(0, 17).Value
End Sub
Danke und Gruß
Alex