Suchen in Spalte

erfkaemper · 3. Januar 2018

hallo ng gemeinde.

ich stehe gerade auf dem schlauch.

eigentlich wollte ich nur eine userform erstellen, die ein textfeld enthält. der text (zahl) im textfeld sollte dann den gleichen text (wert) in spalte a suchen und zur entsprechenden zeile springen.

um das ganze zu vereinfachen, dachte ich mir, ich nutze die suchfunktion von excel (strg+f). doch musste ich feststellen, dass hier gleich der dialog suchen und ersetzen aufgerufen wird. welcher für meine zwecke viel zu überladen ist.

gibt es denn keine "einfache" methode wie ich das nun realisieren kann. meine spalte a besitzt ca. 650 zeilen und die userform sollte immer im vordergrund gehalten werden, so dass nach eingabe des textes (zahl) und drücken der taste "suchen" entsprechende zeile angesprungen wird und das textfeld in der userform sich leert. damit man einen neuen text für die nächste suche eingeben kann.

wer kann sachdienliche hinweise geben. oder hat schon einmal ähnliches realisiert.

danke euch.

Berthold

Andreas Killer

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

erfkaemper

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

Andreas Killer

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.

Andreas Killer

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

erfkaemper

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

Hi,

willkommen im Windows Forum!

Suchen in Spalte - Similar Threads - Spalte	Forum	Datum
Excel - Werte aus Spalte bei erfüllter Bedingung untereinander kopieren Excel - Werte aus Spalte bei erfüllter Bedingung untereinander kopieren: Hey,ich hoffe ihr könnt mir da helfen. Ich habe ein Tabellenblatt mit Werten unterschiedlicher Länge, die untereinander in derselben Spalte stehen.In einem anderen Tabellenblatt sollen daraus nur...	Microsoft Office	3. Dezember 2024
Spalte in intelligenter Tabelle verschieben Spalte in intelligenter Tabelle verschieben: Hallo zusammen,wenn ich in einer intelligenten Tabelle eine ganze Spalte ausschneiden STRG + C und an einer anderen Stelle mit STRG + V wieder einfügen will, erhalte ich folgende Fehlermeldung:Der...	Microsoft Office	29. November 2024
Beim erweitern einer Tabelle in bestimmten Spalten den Werte aus der Zelle darüber übernehmen Beim erweitern einer Tabelle in bestimmten Spalten den Werte aus der Zelle darüber übernehmen: Ich habe eine als Tabelle formatierten Datensatz. Beim erweitern der Tabelle sollen in verschiedenen Spalten die jeweiligen Werte aus der Zeile darüber übernommen werden sprich wenn ich die...	Microsoft Office	23. November 2024
MS Planner - Spalte in "Meine Aufgaben" ergänzen MS Planner - Spalte in "Meine Aufgaben" ergänzen: Hallo,in der Ansicht "Meine Aufgaben" fehlt mir die Spalte Bezeichnung / Label und Bucket.Nur so lässt sich über mehrere Pläne und zugeordnete Aufgaben einen guten Überblick behalten.Wie kann ich...	Microsoft Office	19. November 2024
Excel Power Query: Maximum aus Spalte und einem festen Wert Excel Power Query: Maximum aus Spalte und einem festen Wert: Hallo!Irgendwie kapiere ich die Funktion Max in PQ nicht. Ich habe eine Spalte mit einem Ablaufdatum. Wenn das Jahr des Ablaufdatums < 2025 ist soll 2025 zurückgegeben werden, ansonsten das Jahr...	Microsoft Office	11. November 2024
hi, wie kann ich in einer abfrage den Schnittpunkt von einer Zeile und einer spalte... hi, wie kann ich in einer abfrage den Schnittpunkt von einer Zeile und einer spalte...: hi, wie kann ich in einer abfrage den Schnittpunkt von einer Zeile und einer spalte organisieren? Die Tabelle ist nur ein Beispiel. Für eine Antwort währe ich sehr Dankbar. Gruß Werner	Microsoft Office	1. November 2024
Formel per VBA nach IF-Abfrage in ganze Spalte schreiben Formel per VBA nach IF-Abfrage in ganze Spalte schreiben: Hallo zusammen,die Frage sollte nicht so kompliziert sein, ich kriege es aber nicht ganz hin.Per VBA soll in alle Zellen von Spalte F eine Formel geschrieben werden, die sich auf die Spalten B, D...	Microsoft Office	30. Oktober 2024

Suchen in Spalte

Suchen in Spalte

Suchen in Spalte

Suchen in Spalte

Suchen in Spalte

Suchen in Spalte

Suchen in Spalte

User Advert

Suchen in Spalte - Microsoft Office

Suchen in Spalte - Similar Threads - Spalte

Excel - Werte aus Spalte bei erfüllter Bedingung untereinander kopieren

Spalte in intelligenter Tabelle verschieben

Beim erweitern einer Tabelle in bestimmten Spalten den Werte aus der Zelle darüber übernehmen

MS Planner - Spalte in "Meine Aufgaben" ergänzen

Excel Power Query: Maximum aus Spalte und einem festen Wert

hi, wie kann ich in einer abfrage den Schnittpunkt von einer Zeile und einer spalte...

Formel per VBA nach IF-Abfrage in ganze Spalte schreiben

Suchen in Spalte solved