makro daten suchen
27.07.2008 21:55:00
rolf
wie kann dieses such makro verändert werden,so das bei doppelten namen immer die nächste möglichkeit angezeigt wird.
Private Sub TextBox68_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim c As Object
If KeyCode = 13 Then
' MsgBox "Eingabe " & TextBox68.Value & " in Tabelle suchen !"
LZ = Worksheets("Abstammungen").Range("F65536").End(xlUp).Row
With Worksheets("Abstammungen").Range("F2:F" & LZ)
Set c = .Find(TextBox68.Value, LookIn:=xlValues)
If Not c Is Nothing Then
SuchZeile = c.Row
' MsgBox "Der Name " & TextBox68.Value & " wurde gefunden in Zeile " & c.Row
Abstammungen.TextBox63 = Worksheets("Abstammungen").Range("G" & c.Row)
Abstammungen.TextBox65 = Worksheets("Abstammungen").Range("V" & c.Row)
Abstammungen.TextBox57 = Worksheets("Abstammungen").Range("H" & c.Row)
Abstammungen.TextBox59 = Worksheets("Abstammungen").Range("I" & c.Row)
Abstammungen.TextBox61 = Worksheets("Abstammungen").Range("W" & c.Row)
Abstammungen.TextBox62 = Worksheets("Abstammungen").Range("X" & c.Row)
Abstammungen.Show
End If
End With
'TextBox68.SetFocus
End If
End Sub
mfg rolf