Office: Excel Suchfunktion?

christian30031982 · 20. November 2014

Guten Tag,

ich würde gerne das Thema nochmal aufgreifen.
Mit gefällt der o.g. Code:

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = Worksheets("Arabella")
letztezeile = ws.Cells(Rows.Count, 1).End(xlUp).Row
With ws.Range("A5:W600" & letztezeile)
Set C = .Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
C.EntireRow.Select
Else: MsgBox "Konnte den Eintrag nicht finden"
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ganz gut.

Ich möchte aber nicht nur in Tabelle1 suchen sondern auch in Tabelle2, Tabelle3 usw.

Kann mir jm den Code anpassen.

Danke

christian30031982 · 21. November 2014

Hallo,

ich verwende diesen Code:

[/Private Sub CommandButton2_Click()
Dim ws As Worksheet
Dim Wort As String
Dim Treffer As Long

Set ws = Worksheets("Tabelle1")
letztezeile = ws.Cells(Rows.Count, 1).End(xlUp).Row
With ws.Range("A1:A" & letztezeile)
Set c = .Find(TextBox1.Text, LookIn:=xlValues, After:=ActiveCell, LookAt:=xlWhole)
If Not c Is Nothing Then
c.EntireRow.Select
Else: MsgBox "Konnte den Eintrag nicht finden"
End If
End With
TextBox1.SetFocus
End SubQUOTE]

Ich würde jetzt gerne Tabelle2, Tabelle2 usw. beim suchen mit hinzunehmen.

Geht das?

Danke
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lars3006 · 21. Januar 2015

Hallo ich hab ein änliches Problem
Ich würde gern ein Programm schreiben, in dem ich in der einen Zelle Ein Text eingebe und das Program soll mir in der daneben liegende Zelle ausgeben in welcher Tabelle sich der Text findet

kann mir jmd da weiterhelfen?

Office: Excel Suchfunktion?

Excel Suchfunktion?

Excel Suchfunktion?

Excel Suchfunktion? - Similar Threads - Excel Suchfunktion

Find,Suchfunktion funktioniert nicht bei Excel 2016

Bestandsliste mit Suchfunktion

Suchfunktion in Listbox

Suchfunktion mittels VBA in Excel programmieren

excel via Suchfunktion ok und abbrechen belegen

Artikel bestellen mit Suchfunktion

Suchfunktion in Excel einfügen