Text aus Text Box in Spalte Finden

Sub CommandButton1_Klicken() With Worksheets("Option") Columns("G:G").Select Selection.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub CommandButton1_Klicken() With Worksheets("Option") .Columns("G").Select Selection.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate End With End Sub

Hi
du solltst auch den Fall abfangen, dass der gesuchte Wert nicht vorhanden ist. In diesem Fall möchtest du ja wahrscheinlich keinen Fehlerabbruch, sondern keine Aktion oder eine Hinweismeldung:

Sub CommandButton1_Click()
im Zelle as range
Set Zelle =  Worksheets("Option").Columns("G:G").Find( _
What:=TextBox1.Text, After:=ActiveCell, _
LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:= False, SearchFormat:=False)
If Zelle is Nothing then
Msgbox "kein Treffer"
else
Application.Goto Zelle
end if
End Sub

btw bei diesen Eventmakros, dh bei Makros bei bei Mausklick oder ähnlichem ausgeführt werden sollen, musst du die vorgegebene Schreibweise des Makronamens exakt einhalten, sonst kann VBA dieses Makro der entsprechenden Aktion nicht zuordnen und ausführen. Eigene Markonamen darfst du dir hier nicht ausdenken.
Gruß Daniel

Hi
der Fehler kommt bei mir nur dann, wenn ich keine Textbox1 habe.
wie du deine TextBox benannt hast, musst du selber wissen, da kann ich nur das übernehmen, was du mir zeigst.
Ich gehe halt immer davon aus, dass du den Code auch tatsächlich in einer Exceldatei hast und einfach nur per Copy-Paste übertragen musst (würde ich schon aus Faulheit so machen).
was ich noch vergessen habe: lösche den Parameter: After:=ActiveCell
den brauchst du hier nicht und er könnte zu Fehlern führen, weil so wie ich das programmiert habe, der zu durchsuchende Bereich nicht Selektiert wird und damit dann u.U. die aktive Zelle nicht Bestandteil des des durchsuchten Bereichs ist und deswegen nicht bei After verwendent werden darf.
Gruß Daniel

Sub CommandButton1_Click() Dim Zelle As Range Set Zelle = Worksheets("Option").Columns("G:G").Find(What:="TextBox1.Text", _ LookIn:=xlValues, LookAt:=xlPart, _ SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Zelle Is Nothing Then MsgBox "kein Treffer" Else Application.Goto Zelle End If End Sub

Beliebteste Forumthreads (12 Monate)

Text aus Text Box in Spalte Finden

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text aus Text Box in Spalte Finden

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread