MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 17.05.2019, 22:50   #1
mpro70
Neuer Benutzer
Neuer Benutzer
Standard VBA - Probleme bei erweiterter Suchfunktion

Hallo zusammen,
nachdem ich nun über Wochen angehängte Datei erstellt habe, hänge ich jetzt hier schon einige Zeit an der letzten Suchfunktion über eine MessageBox.
Nun habe ich hier im Forum eine Suchfunktion gefunden, die meinen Bedürfnissen entspricht.
Ich dachte, ich kann diese an meine Tabelle anpassen, aber da war der Wunsch Vater des Gedankens.
Ziel ist es, in das Suchfeld "klein", "mittel" oder "groß" einzugeben und rechts die Ausgabe der Fachnummer und der Größe ( klein, mittel oder groß) zu erhalten.
Hat da irgendjemand einen Weg, dies zu realisieren?
Über Hilfe wäre ich sehr dankbar.
Bei Rückfragen stehe ich gerne zur Verfügung.
Beste Grüße
Michael
Angehängte Dateien
Dateityp: xlsm test.xlsm (173,9 KB, 3x aufgerufen)
mpro70 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.05.2019, 22:57   #2
Mase
MOF User
MOF User
Standard

Hi,

was heißt erhalten ?
In der Exceltabelle anspringen, eine Msgbox ausgeben?

Hast Du mit dem Makrorekorder schonmal versucht den Code aufzuzeichnen?

__________________

gruß
Marco
Mase ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.05.2019, 23:02   #3
mpro70
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Marco,
in der Box ist rechts neben dem Suchfeld ein weißes Feld, da wollte ich erst die Nummer drin haben und daneben z.B. "groß"
Wenn im Suchfeld "groß" eingeben wird, sollten rechts im Ausgabefeld untereinander alle Nummern erscheinen, die "groß" sind.
Mit dem Makrorekorder kenne ich mich leider zu wenig aus.
Grüße
Michael
mpro70 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.05.2019, 23:23   #4
mpro70
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ich hänge am besten mal die Beispieldatei an, wie es aussehen sollte.
Ich hoffe, dann wird es deutlicher.
Beste Grüße
Angehängte Dateien
Dateityp: xlsm Suchfunktion Excel(1).xlsm (22,1 KB, 6x aufgerufen)
mpro70 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.05.2019, 07:16   #5
Hajo_Zi
MOF Guru
MOF Guru
Standard

wo ist das Problem?
Ich hätte den Code ein wenig anders geschrieben.
Code:

Option Explicit

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(2).Find("*" & TextBox1 & "*", LookAt:=xlWhole, LookIn:=xlValues)
            If Not c Is Nothing Then
                .ColumnWidths = "1cm;2cm"
                .Clear
                .AddItem wks.Cells(1, 1)
                .List(ListBox1.ListIndex + 1, 1) = wks.Cells(1, 2)
                firstAddress = c.Address
                Do
                    .AddItem wks.Cells(c.Row, 1)
                    .List(ListBox1.ListIndex + i, 1) = wks.Cells(c.Row, 2)
                    i = i + 1
                    Set c = wks.Columns(2).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
Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

GrußformelHomepage

__________________

Signatur in jedem Beitrag
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Fragen werden im Forum beantwortet, nicht per PN.
Hajo_Zi ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.05.2019, 07:17   #6
Luschi
MOF Meister
MOF Meister
Standard

Hallo Michael,

bei mir klappt das so, wie im Beispiel.

Gruß von Luschi
aus klein-Paris
Angehängte Dateien
Dateityp: xlsm Suchfunktion Excel(1).xlsm (22,3 KB, 4x aufgerufen)
Luschi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.05.2019, 08:31   #7
steve1da
MOF Meister
MOF Meister
Standard

Hola,

zur Info....

http://www.office-loesung.de/p/viewt...f=166&t=804236

Gruß,
steve1da
steve1da ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:24 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.