Suchen in Spalte

Das Problem ist das die aktuelle Zelle nicht in A:A ist.

(Der Sinn von ActiveCell ist nur der das ein "Weitersuchen" möglich wird, daher könnte ActiveCell auch entfallen, weil Du keine doppelten Einträge hast.)

Kann man aber trotzdem haben, braucht man ja nur auf Spalte A umzulegen.

BTW, wenn der Commandbutton Default ist, dann braucht man nur ENTER drücken um die Suche auszulösen.

Andreas.

Option Explicit

Private Sub CommandButton1_Click()

Dim R As Range

Set R = Range("A:A").Find(Me.TextBox1, Range("A" & ActiveCell.Row), xlValues, xlWhole)

If R Is Nothing Then

MsgBox "Nicht gefunden"

Else

R.Select

Me.TextBox1 = ""

End If

Me.TextBox1.SetFocus

End Sub

Private Sub UserForm_Initialize()

Me.CommandButton1.Default = True

End Sub

hallo Andreas.

ich habe die datei noch einmal neu abgespeichert. neu geöffnet und dann das makro laufen lassen.

wieder laufzeitfehler 13.

nachdem ich dann die gesamte spalte a:a als "standard" formatiert habe, klappt es nun auch mit dem makro.

ich hatte wohl unterschiedliche Formate (nicht Standard) in der spalte, die den laufzeitfehler verursachten.

vielen dank für die schnelle hilfe.

Berthold

laufzeitfehler 13. typen unverträglich.
das liegt sicherlich daran, dass in spalte a:a die eingaben folgender massen erfolgen.

Nö, probier es in einer neuen Datei, das geht, hab ich ja vorher probiert. .-)

Wenn Du weitere Hilfe benötigst, dann lade die Datei (möglicherweise mit anonymen Daten) auf einen Online-Datei-Hoster wie www.dropbox.com hoch und veröffentliche den Download-Link hier.

Ein Makro zur Anonymisierung von Daten in ausgewählten Zellen kann hier heruntergeladen werden:

https://www.dropbox.com/s/rkfxuh85j5wyj9y/modAnonymize.bas?dl=1

Andreas.

Private Sub CommandButton1_Click()

Dim R As Range

Set R = Range("A:A").Find(Me.TextBox1, ActiveCell, xlValues, xlWhole)

If R Is Nothing Then

MsgBox "Nicht gefunden"

Else

R.Select

Me.TextBox1 = ""

End If

Me.TextBox1.SetFocus

End Sub

hallo Andreas.

ich habe dich zu früh gelobt.

bitte schaue dir die datei doch bitte einmal an.

https://1drv.ms/x/s!AgLGu6V75CDTgt8GfSnWuRTd1UwHdg

danke dir.

Berthold