Zelle / Datensatz aktivieren
12.12.2003 23:50:38
Rainer Fabian
wer kann mir einen Tipp geben, in dieser Suchen /
Weitersuchen-Routine bei einem Treffer den
Datensatz zu aktivieren. Ich steuer die Suche über die
Userform mit dem CommandButton3 an. Wenn ein Treffer
vorhanden ist, soll der Datensatz aktiviert werden, damit
ich in denselben geänderte Inhalte zurückschreiben kann.
Das Problem ist, ich kriege die Trefferzelle in Column A
nicht aktiviert, wenn die Suche erfolgreich war. Wer hat
eine Idee????????
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
.