Daten in Userform übernehmen
06.01.2009 14:31:00
Lutz
ich habe Werte in einer Zelle die vom Format so aussehen.
Fehler: VTR2_VDN-Funktion Eingabe ONT CHR(13) Fehler: VTR2_Eigentum Eingabe VNB CHR(13) usw.
Dies lese ich beim Aufruf in meine Userform ein.
'Auswahlfenster mit Doppelklick auf bestimmte Zellen aktivieren
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancle As Boolean)
If Not Application.Intersect(Target, Range("Inkonsistenzen")) _
Is Nothing Then
With Fehleranzeige
.ReadAttributes
.Show
End With
End If
End Sub
'vor Anzeige Attribute in CheckBox einlesen
Sub ReadAttributes()
Application.ActiveWindow.ActiveCell.Offset(0, -1).Select
merker1 = Application.ActiveWindow.ActiveCell.Address
TextBox1.ControlSource = merker1
Application.ActiveWindow.ActiveCell.Offset(0, 6).Select
merker1 = Application.ActiveWindow.ActiveCell.Address
TextBox2.ControlSource = merker1
Application.ActiveWindow.ActiveCell.Offset(0, -5).Select
End Sub
Das Problem dabei ist, dass der Zeilenumbruch in der TextBox1 nicht erkannt wird.
Oder ist die Programmierung nicht OK?
Danke für die Hilfe.
Lutz