SpaltenEintrag in gefundener Zeile ändern
20.07.2005 17:19:54
Lorenz
Folgendes (mein)Problem: mit untenstehenden Code wird eine Datenzeile nach Sortierung in den jeweiligen Textboxen ausgegeben. Wie ist es möglich, in nur einer, und zwar in der Spalte "Z" eine Änderung zu tätigen. (d. h. Spalte 26 in der gewählten Zeile = Textbox26.Value).
Wie muss (soll) der Code aussehen um dies zu schaffen.
Sub AuslesenSortierenZeileauswählen()
Dim iCounter As Integer, Test As Integer
Dim LoLetzte As Long
Dim Found As Range
LoLetzte = IIf(IsEmpty(Range("AL65536")), Range("AL65536").End(xlUp).Row, 65536)
Set Found = Range("AL20:AL" & LoLetzte).Find(ComboBox5.Value, Range("AL" & LoLetzte), , xlPart, , xlNext)
For iCounter = 1 To 60
Controls("TextBox" & iCounter).Text = _
Worksheets("Daten").Cells(Found.Row, iCounter).Text
Next iCounter
End Sub
Danke im Voraus für die Mühe(n)
Grüße Lorenz