an J. Ehrensberger Textbox.Text in Tabelle(Zelle)
12.02.2006 13:19:38
Josef
Du hast mir heute in der Nacht sehr mit dem nachstehenden Makro geholfen.
Ich hätte dazu noch bitte eine Frage:
Wie würde bitte der Code aussehen, wenn ich den umgekehrten Weg nehmen möchte?
Also Den Text in den Textboxen ändern und das Tabellenblatt eintragen lassen.an den gleichen Stellen, wo auch die einleseung in die Textboxen erfolgt.
Danke
Josef
Dim rngFind As Range
Dim intCount As Integer
If Not IsDate(TextBox1) Then Exit Sub
With Sheets("Tabelle1")
'Set rngFind = .Range("B:B").Find(what:=CDbl(TextBox1), LookAt:=xlWhole, LookIn:=xlValues)
'Set rngFind = .Range("B:B").Find(what:=CDate(TextBox1), LookAt:=xlWhole, LookIn:=xlValues)
Set rngFind = .Range("B:B").Find(what:=CDate(TextBox1), LookAt:=xlWhole, LookIn:=xlFormulas)
If Not rngFind Is Nothing Then
For intCount = 2 To 6
Controls("TextBox" & intCount) = .Cells(rngFind.Row, intCount + 1)
Next
End If
Set rngFind = Nothing
End With