Activate
13.12.2003 14:47:21
Rainer
wer kann mir einen Tipp geben, in dieser Suchen /
Weitersuchen-Routine bei einem Treffer den
Datensatz so zu aktivieren, dass ich ihn geändert zurückschreiben kann. Die Suche wird in der Userform mit dem CommandButton3 angestoßen. Bei jedem Treffer hält das Script an und liest mir die Daten ordentlich in die Maske. Nur - der Datensatz (Zeile) wird nicht aktiviert!!!
Was fehlt nur????? Kann mir einer auf die Sprünge helfen????????
Die Variablen habe ich ins Modul gesetzt!
'Modul
Option Explicit
Public grng As Range
Public gfirstRng As Range
Gruß Rainer
Hier das Listing
Private Sub CommandButton3_Click()
If grng Is Nothing Then
Set grng = ActiveSheet.Columns("A").Find( _
What:=TextBox1.Value, _
LookIn:=xlFormulas, LookAt:=xlPart)
If Not grng Is Nothing Then
Set gfirstRng = grng
Else
MsgBox "Das Objekt : " & _
TextBox1.Value & " konnte nicht gefunden werden!"
Exit Sub
End If
End If
With grng
TextBox1.Value = .Value
TextBox2.Value = .Offset(0, 1).Value
TextBox10.Value = .Offset(0, 2).Value
TextBox4.Value = .Offset(0, 3).Value
CheckBox1.Value = .Offset(0, 4).Value
TextBox5.Value = .Offset(0, 5).Value
TextBox11.Value = .Offset(0, 6).Value
TextBox12.Value = .Offset(0, 7).Value
TextBox3.Value = .Offset(0, 8).Value
TextBox9.Value = .Offset(0, 9).Value
TextBox8.Value = .Offset(0, 10).Value
ComboBox8.Value = .Offset(0, 11).Value
ComboBox6.Value = .Offset(0, 12).Value
ComboBox7.Value = .Offset(0, 13).Value
ComboBox4.Value = .Offset(0, 14).Value
TextBox6.Value = .Offset(0, 15).Value
ComboBox5.Value = .Offset(0, 16).Value
TextBox7.Value = .Offset(0, 17).Value
End With
Set grng = ActiveSheet.Columns("A").FindNext(grng)
If grng.Address = gfirstRng.Address Then
MsgBox "Das ist die letzte Fundstelle."
Set grng = Nothing
End If
End Sub
Anzeige