Wert aus Spalte per textbox suchen

Sigrid · 2023-01-17T18:57:48+01:00

Guten Abend, ich möchte gern in einer Spalte (D) eine Zahl bzw. Wert per Textbox suchen und dann sollte die Zelle aktiviert bzw. sichtbar sein. Würde mich um Unterstützung freuen, mfg sigrid

Hallo
Sorry, es ist der Thread von Karin, normalerweise gehe ich da nicht rein!
Mich intressiert aber rein technisch ob man die Bildschrimmitte so hinbekommt?
Die genaue Einstellung muss die Fragerin mit +/- und einer Zahl selbst herausfinden!
mfg Piet

Sub Suchen()
    Dim rngSuche As Range, rw As Long, sp As Integer
    With Worksheets("Lager_Liste")
        If .TextBox2 > "" Then
            If IsNumeric(.TextBox2) Then
                Set rngSuche = .Columns(4).Find(CDbl(.TextBox2), lookat:=xlWhole)
            Else
                Set rngSuche = .Columns(4).Find(.TextBox2, lookat:=xlWhole)
            End If
            If Not rngSuche Is Nothing Then
                rw = rngSuche.Row     'aktive Zeile
                sp = rngSuche.Column  'aktive Saplte
                Application.Goto reference:=rngSuche, Scroll:=True
                .Range(.Cells(rngSuche.Row, 1), .Cells(rngSuche.Row, 12)).Select
                'Bildschirm über ScrollRow + ScrollColumn einstellen
                ActiveWindow.ScrollRow = rw - 10
                ActiveWindow.ScrollColumn = sp - 1
            End If
        End If
    End With
End Sub

Hi
das Problem ist, dass du die Zellen selektierst und damit aus der Textbox rausspringst.
Da du das im Change-Event und damit bei jeder Eingabe eines Zeichens sofort machst, wird dann das zweite Zeichen nicht mehr in die Textbox geschrieben, sondern in die aktive Zelle!
im ersten Schritt kannst du länger Texte eingeben, indem du sie erst in eine Zelle tippst und dann per Copy-Paste in die Textbox einfügst
prinzipiell ich würde das ganze hier so lösen:
1. lösche im Code die Zeilen mit Application.Goto und .Select, führe nur die beiden Zeilen mit ScrollRow und ggf ScrollColumn aus
2. um die Zeile optisch zu markieren, benutzt du die Bedingte Formatierung. Trage hierzu in das Eigenschaftsfeld LinkedCell der Textbox die Adresse einer freien Zelle ein, bspw A1.
richte dann für die Spalten, die markiert werden sollen, eine Bedingte Formatierung ein mit der Regel: =$B1=$A$1 (wobei $A$1 die Zelle ist, mit der die Textbox verknüpft ist)
wenn du beim Selektieren bleiben willst (z.B. weil du die Zellen sofort bearbeiten oder kopieren willst), solltest du einen zusätzlichen Button einfügen und dann den Code beim Click auf den Button ausführen und nicht im Change-Event der Textbox. Dann kannst du so viele Zeichen einfügen wie benötigt.
Gruß Daniel

Wert aus Spalte per textbox suchen

Forumthread: Wert aus Spalte per textbox suchen

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Wert aus Spalte per textbox suchen

Forumthread: Wert aus Spalte per textbox suchen

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread