Referenzieren statt Selektiren, nächste Zeile ansp
19.01.2007 18:56:38
Malcolm_p
mit folgendem Sub schreibe ich den Wert aus einer Textbox3 (in UF) in eine Tabelle. Danch soll ein zweiter Wert aus der gleichen Textbox darunter in diese Tabelle geschieben werden (in dem Fall also auf "A2", dann ein 3. Wert aus ebenfalls aus Textbox3 in "A3" etc.).
Private Sub CommandButton1_Click()
With Workbooks(ABHWBName).Worksheets("Tabelle1").Range("A1")
.Value = TextBox3.Value
End With
End Sub
Wie kann ich dies realisieren ohne beispielsweise eine derartige Select-Funktion, wie die Folgende, nutzen zu müssen?
Dim frm As UserForm
Set frm1 = UserForm10
Sheets("Erfassung").Activate
Range("A65536").End(xlUp).Offset(0, 0).Select
With frm1
ActiveCell.Value = UserForm10.TextBox1.Value
...
End Sub
Herzlichen Dank für die Unterstützung.
Gruß Malcolm