Office: Wert in TextBox in einer Tabelle suchen

Helfe beim Thema Wert in TextBox in einer Tabelle suchen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Vielen Dank! Das ist genau das, was ich gesucht habe! Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von e9janna, 13. Januar 2009.

Seite 2 von 3

DSESTERHENN

DSesterhenn

Wert in TextBox in einer Tabelle suchen

Vielen Dank!

Das ist genau das, was ich gesucht habe!

DSesterhenn, 22. November 2013

#16
HALLO11

hallo11

Guten Morgen
Die "Suchfunktion Excel.xlsm" von hary vom 22.11.2013 ist genau das was ich suchte. Vielen Dank.
Was muss ich tun, dass in 2 Spalten (bei mir J) gesucht wird?
Der Grund: Eine Vereinsmitgliederliste die pro Haushalt nur eine Mitgliedsnummer (=ID) enthält, aber die beiden Menschen nicht gleich heissen, da sie nicht verheiratet sind.
Danke im Voraus
Hallo11

hallo11, 19. März 2016

#17
HARY

hary

Moin Hallo11
Beschreib nach was du suchen(ID oder Name) moechtest. ID oder Namen?
In welcher Spalte steht was?
SpalteJ = ID
Spalte?? = Name oder Vor und Nachname oder Nachname.
gruss hary
Edit:
Suche nach ID(in SpalteJ)
Ausgabe aus SpalteK
Code:

Private Sub CommandButton1_Click()
Dim c As Object
Dim i As Long
Dim wks As Worksheet
Dim firstAddress As String
If TextBox1.Value "" Then
i = 2
Set wks = Sheets("Tabelle1")
With ListBox1
Set c = wks.Columns(10).Find("*" & TextBox1 & "*", LookAt:=xlWhole, LookIn:=xlValues)
.ColumnWidths = "1cm;2cm"
.Clear
.AddItem wks.Cells(1, 10)
.List(ListBox1.ListIndex + 1, 1) = wks.Cells(1, 11)
If Not c Is Nothing Then
firstAddress = c.Address
Do
.AddItem wks.Cells(c.Row, 10)
.List(ListBox1.ListIndex + i, 1) = wks.Cells(c.Row, 11)
i = i + 1
Set c = wks.Columns(10).FindNext(c)
Loop While c.Address firstAddress
Else
MsgBox "Der gesuchte Begriff """ & TextBox1 & """ wurde nicht gefunden!", 48, " Hinweis für " & Application.UserName
TextBox1.SetFocus
End If
End With
Set wks = Nothing
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hary, 20. März 2016

#18
HALLO11

hallo11

Wert in TextBox in einer Tabelle suchen

Halo Hary
Danke für die Antwort.*Smilie
Gerne präzisiere ich meine Frage:

Natürlich ist die ID auf Spalte A.
Hier die ersten Spalten, die Reihenfolge von B an ist geändert:

A.......B..........C.............D..........E......F..............G............. .H...
ID Anrede Namen1 Vornamen1 & Namen2 Vornamen2 Strasse...

Da die Leute nicht immer wissen, ob sie Haupt- oder 2.Mitglied sind möchte ich in der Userform gleichzeitig in Spalte C + F suchen können.
Bis jetzt gehts nur in C.
Scheinbar gibt es ja für die Userform keinen Befehl, der der Standard-Suche in Excel (alle suchen) entspricht.
Als Ergebnis ist die Ausgabe der Zeilennummern i.O.

Danke im Voraus für die Antwort.
Gruss
hallo11

hallo11, 21. März 2016

#19
HARY

hary

Moin
Teste mal den Anhang.
gruss hary

hary, 21. März 2016

#20
HALLO11

hallo11

Hallo Hary
Viel Dank für Deine Lösung.
Das funktioniert wie "bestellt" : *cool.gif* *cool.gif* *cool.gif*

Obwohl ich an Deinem Vorschlag - ausser den blattspezifischen Angaben - nichts geändert habe, ist die Ausgabe anders als Deine. (siehe Beilage)
So wie es jetzt bei mir ist, ist es aber mehr als perfekt.
Und die Unterschiede finde ich auch noch heraus.

Danke &
Gruss
hallo11

hallo11, 22. März 2016

#21
HARY

hary

Moin
Kann es sein das du in der Eigenschaft der Listbox:
Die ColumnCount Eigenschaft auf 1 stehen hast?
Setze diese auf 3
oder gleich im Code unter With ListBox1
Code:

With ListBox1
.ColumnCount = 3
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 22. März 2016

#22
BUBA

buba

Wert in TextBox in einer Tabelle suchen

Hallo Leute ,
das Forum ist Klasse.Hab mir hier die Datei geladen und auf meine Bedürfnisse angepasst. Hab aber noch Fragen dazu. Ich möchte bei "Ergebnisse" immer die komplette Zeile A aus "übersicht MCC" in Zeile A als überschrift stehen haben und ab Zeile 2 die Suchergebnisse. Wnn ich nicht das komplette Blatt "übersicht MCC" durchsuchen möchte sondern nur Spalte E wie müsste der Code angepasst werden? Wenn ich auf den Button "zurück zur Übersicht klicke wechselt Excel wie gewollt in Arbeitsblatt "übersicht MCC" in Zelle A1.Wenn ich aber den Tabellenreiter anklicke wechselt er in Spalte C .Wie kann man das ändern.Wäre nett wenn mir geholfen wird.
Vielen Dank buba

buba, 26. Januar 2019

#23
BUBA

buba

Hallo Leute,
hat keiner eine Idee ?
Gruß buba

buba, 29. Januar 2019

#24
HARY

hary

Moin buba
Warum hast du eine Schleife fuer mehrere Blaetter drin? Hast doch nur 2.
Du kannst dass auch ganz einfach mit Filter, ohne VBA, machen.
Die Suche in Part ist richtig?
Code:

Sub Störgrund()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String
Dim sFind As Variant
Set wks = Worksheets("Übersicht MCC")
With Sheets("Ergebnisse")
.Range("A2:H" & .Cells(Rows.Count, 1).End(xlUp).Row).Clear
.Range("A1:E1").Value = wks.Range("A1:E1").Value
sFind = InputBox("WAS SUCHST DU:")
If sFind = "" Then Exit Sub
Set rng = wks.Columns(5).Find(What:=sFind, LookAt:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
wks.Cells(rng.Row, 1).Resize(1, 5).Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Set rng = wks.Cells.FindNext(rng)
If rng.Address = sAddress Then Exit Do
Loop
End If
End With
Set wks = Nothing
Set rng = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

edit: Auf die Schnelle. Hier mit Filter
Code:

Sub MitFilter()
Dim wksZ As Worksheet
Dim sFind As String
sFind = InputBox("WAS SUCHST DU:")
If sFind = "" Then Exit Sub
Set wksZ = Worksheets("Ergebnisse")
wksZ.Cells.Clear
With Worksheets("Übersicht MCC").Cells(1, 1).CurrentRegion
.AutoFilter Field:=5, Criteria1:="*" & sFind & "*", Operator:=xlAnd
.SpecialCells(xlVisible).Copy wksZ.Cells(1, 1)
.AutoFilter
End With
Set wksZ = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 29. Januar 2019

#25
BUBA

buba

Hallo Harry,
vielen Dank beide Codes funktionieren wie gewollt.
Gruß buba

buba, 30. Januar 2019

#26
BUBA

buba

Hi,
im ersten Code kopiert das Makro nur die Spalten A+B in das Arbeitsblatt Ergebnisse möchte das aber bis H haben.
Kannst du nochmal schauen?
Gruss buba

buba, 30. Januar 2019

#27
HARY

hary

Wert in TextBox in einer Tabelle suchen

Moin

im ersten Code kopiert das Makro nur die Spalten A+B in das Arbeitsblatt Ergebnisse ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kann ich nicht nachvollziehen. Sieht deine Originalmappe genau so aus wie die Bsp.-Mappe? Verbundene Zellen vorhanden?
Versuch es mal so.
Code:

Sub Störgrund()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String
Dim sFind As Variant
Set wks = Worksheets("Übersicht MCC")
With Sheets("Ergebnisse")
.Range("A2:H" & .Cells(Rows.Count, 1).End(xlUp).Row).Clear
.Range("A1:H1").Value = wks.Range("A1:H1").Value
sFind = InputBox("WAS SUCHST DU:")
If sFind = "" Then Exit Sub
Set rng = wks.Columns(5).Find(What:=sFind, LookAt:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
'--kopiert A:H
wks.Cells(rng.Row, 1).Resize(1, 8).Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Set rng = wks.Cells.FindNext(rng)
If rng.Address = sAddress Then Exit Do
Loop
End If
End With
Set wks = Nothing
Set rng = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 30. Januar 2019

#28
BUBA

buba

Hallo Harry,
danke für deine Mühen.Die Originalmappe ist nicht wie die Beispielmappe.Es gibt keine verbundenen Zellen.Dein letzter Code findet leider nichts.Möchte die Originalmappe nicht ins Netz stellen.Wäre dies per PN möglich?
Gruss buba

buba, 31. Januar 2019

#29
HARY

hary

Moin buba

Die Originalmappe ist nicht wie die Beispielmappe
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aha!!
Eine Bsp.-Mappe sollte schon so gefuellt sein wie das Original. Nur halt mit Dummydaten.
Es liegt wahrscheinlich am Syntax: LookAt:=xlPart, LookIn:=xlFormulas
oder auch nicht. *schulterzuck* ;-))
Hast PN
gruss hary

hary, 31. Januar 2019

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 3

Thema:

Wert in TextBox in einer Tabelle suchen

Die Seite wird geladen...

Wert in TextBox in einer Tabelle suchen - Similar Threads - Wert TextBox Tabelle
Wert aus 2 TextBoxen suchen
in Microsoft Excel Hilfe
Wert aus 2 TextBoxen suchen: Hallo zusammen, ich habe eine UserForm mit der ich gerne zwei Werte in der Tabelle suchen möchte. TextBox1 = Datum (soll in Spalte B Tabelle "Veranstaltung" gesucht werden) TextBox2 = Text (soll...
Wert aus Inputbox in Textbox übernehmen ohne Inhalt zu löschen
in Microsoft Excel Hilfe
Wert aus Inputbox in Textbox übernehmen ohne Inhalt zu löschen: Hallo zusammen, ich habe mir ein Code mit hilfe KI gebastelt und komme nicht weiter. Wenn ich über die Inputbox eine Text eingebe, soll er den bestehenden Textinhalt nicht leeren sondern die...
Userform Textfeld füllen abhängig von Wert aus Combobox
in Microsoft Excel Hilfe
Userform Textfeld füllen abhängig von Wert aus Combobox: Hallo zusammen, weiter geht es mit Problemen. Ich Filter die Daten für die Combobox mit diesem Code Private Sub UserForm_Initialize() Dim tbl As ListObject Dim rng As Range Dim cell As Range Dim...
Wert von Textbox mit Wert von Combofeld multiplizieren
in Microsoft Excel Hilfe
Wert von Textbox mit Wert von Combofeld multiplizieren: Hallo zusammen, ich habe eine Userform erstellt und mehrere Textboxen und eine Combobox erstellt. In einer der Textboxen soll ein Nettopreis eingegeben werden, in der Combobox ein MwSt-Satz...
Werte aus TextBox in erster freier Zelle einer andere Tabelle schreiben
in Microsoft Excel Hilfe
Werte aus TextBox in erster freier Zelle einer andere Tabelle schreiben: Hallo zusammen, ich versuche mich gerade an VBA. Über Tabellenblatt "Eingabe" wird eine Userform geöffnet. Dort trage ich in die TextBox6 etwas ein und möchte über den CommandButton4 das...
Werte in TextBoxen aufgrund von Änderungen in einem UF wieder in Tabelle speichern
in Microsoft Excel Hilfe
Werte in TextBoxen aufgrund von Änderungen in einem UF wieder in Tabelle speichern: Hallo Miteinander, da ich noch ein VBA Neuling bin, mich das aber wahnsinnig interessiert, will ich mir so viel wie möglich selber beibringen, aber in gewissen Situationen bringt es einfach nichts...
automatisches Anpassen der Textbox Datum, wenn sich Werte in Comboboxen ändern
in Microsoft Excel Hilfe
automatisches Anpassen der Textbox Datum, wenn sich Werte in Comboboxen ändern: Hallo, ich habe eine Frage und ein kleines Problem und ich vielleicht ist es auch nur eine Kleinigkeit. Bin noch nicht so gut in Umgang mit VbA. Ich habe mir eine Userform gebaut, wo ich mir...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden