Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen in mehreren Spalten

Forumthread: Suchen in mehreren Spalten

Suchen in mehreren Spalten
26.03.2021 13:17:44
oraculix
Hallo
Ich Habe ein gut funktionierendes Makro, das aber leider nur in Spalte A sucht.
Frage: Was muss ich ändern damit in Spalte A:B:H gesucht wird und die Spalten A:B:H auch in der Listbox angezeigt werden?
https://www.herber.de/bbs/user/145143.xlsm
Vielen Dank

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen in mehreren Spalten-war doch da..
26.03.2021 13:50:04
oraculix
Danke für die rasche Antwort das habe ich alles schon 100 mal versucht was du mir gesendet hast es funktioniert nicht.

AW: Suchen in mehreren Spalten-war doch da..
26.03.2021 14:04:54
Yal
Hallo Oraculix,
ich vertehe nicht ganz: was soll in deinem Formular funktionieren, was noch nicht funktioniert?
(Es gibt ein Eingabe-Feld ohne Name. Macht die Erklärung nicht einfacher)
VG
Yal

Anzeige
AW: Suchen in mehreren Spalten-war doch da..
26.03.2021 14:21:12
oraculix
Vielen Dank das du dich meiner Frage aninmmst.
Ich suche nach einem Film in der Textbox zb. Rocky es gibt aber Filme die die mit dem Originaltitel anders heißen als in Deutsch.
zb. C'era una volta il West auf Deutsch Spiel mir das Lied vom Tod.
1 Was nicht funktioniert ist es wird nur nach Originaltitel gesucht und diese stehen in Spalte A wenn ich jetzt nach Spiel mir das Lied vom Tod
suche findet er es nicht weil die Deutschen Titel in Spalte B stehen.
2 Das mit den Spalten in der Listbox bekomme ich auch nicht hin es soll nur Spalte A b H drinnen stehen.
Hoffe du kannst mir helfen.

Anzeige
AW: Suchen in mehreren Spalten-war doch da..
26.03.2021 16:00:15
Yal
Hallo Oraculix,
Du brauchst ja eine Extra-Portion Zaubertrank.
Das ist das gesamte Coding für dein Userform. Mehr nicht.
Private Sub UserForm_Initialize()
'Listbox Treffer Spalten einstellen
With Me.Lst_Treffer
.ColumnCount = 4
.ColumnWidths = "5cm;6,cm;2cm;7"
.ColumnHeads = False
.RowSource = ""
End With
Lst_Treffer_befüllen
End Sub
Private Sub Txt_Eingabe_Change()
Lst_Treffer_befüllen Txt_Eingabe.Text
End Sub
Private Sub Lst_Treffer_befüllen(Optional ByVal Ftext As String = "")
'Befüllung der LST_Treffer Listbox
Dim i As Long
Dim W As Worksheet
Do While Me.Lst_Treffer.ListCount > 0
Me.Lst_Treffer.RemoveItem 0
Loop
Set W = Worksheets("FilmDB")
For i = 2 To W.Range("A99999").End(xlUp).Row
If Ftext = "" Or InStr(1, W.Cells(i, 1) & W.Cells(i, 2) & W.Cells(i, 8), Ftext,  _
vbTextCompare) Then
With Me.Lst_Treffer
.AddItem CStr(W.Cells(i, 1))
.List(.ListCount - 1, 1) = CStr(W.Cells(i, 2))
.List(.ListCount - 1, 2) = CStr(W.Cells(i, 8))
End With
End If
Next
End Sub
VG
Yal

Anzeige
AW: Suchen in mehreren Spalten-war doch da..
26.03.2021 16:19:34
oraculix
Wauw jetzt geht alles du bist ein Genie vielen vielen vielen Dank
Du weist genau was ein Anfänger braucht.

Vielen Dank für die Rückmeldung.
26.03.2021 16:46:29
Yal
... ich verzichte tatsächlich auf meiner üblichen Anrede "Gen." ;-)
Schönes Wochenende
Yal

AW: Suchen in mehreren Spalten
30.03.2021 13:09:36
Micha
Ich wollte mich auch einmal bei Yal bedanken. Meine Frage ist schon geschlossen.
Es ging um Application.FileDialog(msoFileDialogSave) - AW: Erratum (Ende Februar 2021).
Es gab noch ein Problem mit dem Sonderzeichen im Dateinamen.
  • 
Private Function BlattName_korrigieren(ByVal BlattName) As String
'Auslesen des Tabellenblattnames, prüfen auf Sonderzeichen und Übernahme als Variable  _  _
BlattNameZeichen
Dim BlattNameZeichen As String
Dim i As Integer
Const Sonderzeichen As String = " -.,_:;#+ß'*?=)(/&%$§!~\}][{"
'BlattName = ActiveSheet.Name
'Schleife, die Sonder-Zeichen entfernt
For i = 1 To Len(Sonderzeichen)
BlattNameZeichen = Replace(BlattName, Mid(Sonderzeichen, i, 1), "-")
Next 'i
BlattName_korrigieren = BlattNameZeichen
End Function

    • So klappt es jetzt bei mir.
    Großes Dankeschön an Yal und an alle, die hier im Forum aktiv sind und es pflegen und anderen Nutzern helfen.
    Grüße Micha
    Anzeige

    Forumthreads zu verwandten Themen

    Anzahl unterschiedl. Werte in Spalte zählen
    Jakob

    Hallo,
    ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
    Meine Problem:
    Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
    14.08.2008 18:16:11
    Thread-ID: 1001934
    2 Beiträge
    Zeilen einfärben abhängig von Zellwerten
    Zellwerten

    Hi Leute
    Da ich nicht weiß, wie ich nach meinem Problem suchen kann, beschreibe ich es einfach mal kurz. Vielleicht kann mir ja jemand helfen.
    Ich habe ein Excel-File, das xSpalten hat und xZeilen.
    In einer Spalte (in meinem Fall Spalte F) stehen die verschiedenen Auftragsnummern, a...
    18.08.2008 16:57:26
    Thread-ID: 1002687
    6 Beiträge
    In Spalte nach Anzahl eines Begriffs suchen?
    Lauren

    Hall Leute!
    ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
    Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
    Vielen Dank für Eure Hilfe!
    Grüße
    ...
    19.08.2008 11:08:23
    Thread-ID: 1002846
    5 Beiträge
    Letzter Wert einer Spalte (Matrixformel)
    {mskro}

    Hallo Excelaner,
    ich benötige mal wieder eine Hilfestellung.
    Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
    Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
    =INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
    Nur wird...
    28.08.2008 09:59:21
    Thread-ID: 1005303
    9 Beiträge
    Letzen wert in Zeile(nicht Spalte)
    hary

    Nabend alle miteinander
    In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
    Case Is = Cells...
    28.08.2008 21:25:00
    Thread-ID: 1005592
    5 Beiträge
    Zelleninhalt (Text) in 2 Spalten teilen
    El.

    Hallo!
    Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
    Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
    03.09.2008 16:35:00
    Thread-ID: 1007155
    4 Beiträge
    von Datum bis Datum suchen und Werte in die Spalte
    Datum

    Hallo liebe Excel-Könner,
    ich habe folgendes Problem und finde keine Lösung.
    Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
    Ich hoffe Ihr könnt mir helfen!
    ...
    07.09.2008 09:31:20
    Thread-ID: 1007931
    8 Beiträge
    Spaltentrennzeichen nach speichern in Text-Datei
    Michael

    Hallo
    ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
    Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
    Ich will diese in Excel überarbeiten und als Text-Dat...
    11.09.2008 09:28:00
    Thread-ID: 1008978
    3 Beiträge
    Mittelwertberechn. mit var. Spaltenlänge
    Falk

    Hallo,
    Zur Situation
    in einer Excelspalte (z.B. A) füge ich - aus einem anderen Programm - kopierte Zahlen ein. Excel schreibt die, in Spalte A, eingefügten Zahlen untereinander. In der Spalte B berechne ich dann den Mittelwert wie folgt: =SUMME(A2:A1872)/1871
    Mein Problem
    Weil...
    15.09.2008 11:21:00
    Thread-ID: 1009725
    5 Beiträge
    Text in Spalten
    Simone

    Hallo zusammen,
    ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
    Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
    16.09.2008 13:54:00
    Thread-ID: 1010092
    3 Beiträge
    Wert innerhalb Array suchen
    David

    Hallo VBAler,
    wenn ich ein Array in der Form
    treffer_n(n)
    habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
    Gruß
    David
    19.09.2008 08:48:14
    Thread-ID: 1010894
    3 Beiträge
    Spalte mit x = Wert möglich ?
    Petra

    Hallo
    Ich möchte gerne wenn in Spalte B3 ein x eingetragen wird, das dann in Spalte B3 der Wert aus Spalte B1 eingetragen wird.
    Ich weiß das es per Formel =Wenn(B3="x";B1;0) geht, aber dann müßten wir hier Behelfsspalten einbauen was nicht gewünscht wird.
    Habe es per Bedingter Forma...
    23.09.2008 15:34:17
    Thread-ID: 1011775
    21 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Anzeige