Nummer in Tabelle suchen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: Nummer in Tabelle suchen
von: Michael
Geschrieben am: 01.05.2015 09:54:21

Hallo Leute
Ich hab ein kleines Problem und zwar möchte ich in einer Tabelle namens Daten eine Zeichnungsnummer
Suchen zB. "13034-345/0004" über einen Button soll eine MsgBox geöffnet werden wo ich die Nummer
Eingebe und sie dann in Spalte C gesucht wird und markiert . Und sobald man dann eine andere Nummer sucht soll die alte makierung verschwinden und die neue Makiert werden. Die Spalte der Nummern fängt bei C5 an.
Ich hoffe ihr könnt mir helfen
Gruß Michael

Bild

Betrifft: AW: Nummer in Tabelle suchen
von: Hajo_Zi
Geschrieben am: 01.05.2015 09:59:46
Hallo Michael,
Msgbox ist keine Eingabe möglich.
Warum nicht Strg+F?


Bild

Betrifft: AW: Nummer in Tabelle suchen
von: Nepumuk
Geschrieben am: 01.05.2015 10:00:18
Hallo,
warum nicht einfach STRG+F ?
Gruß
Nepumuk

Bild

Betrifft: AW: Nummer in Tabelle suchen
von: Michael
Geschrieben am: 01.05.2015 10:11:38
Weil die Datei für die Arbeit ist und sich nicht jeder mit Exel auskennt.
So einfach wie möglich.
Gruß Michael

Bild

Betrifft: AW: Nummer in Tabelle suchen
von: Nepumuk
Geschrieben am: 01.05.2015 10:47:48
Hallo,
teste mal:

Option Explicit

Public Sub Suchen()
    Dim objCell As Range
    Dim strInput As String
    Do
        strInput = InputBox("Bitte Nummer eingeben.", "Eingabe")
        If StrPtr(strInput) = 0 Then Exit Do
        Set objCell = Columns(3).Find(What:=strInput, LookIn:=xlValues, _
            LookAt:=xlWhole, MatchCase:=False)
        If Not objCell Is Nothing Then
            objCell.Select
        Else
            Call MsgBox("Nummer nicht gefunden", vbExclamation, "Hinweis")
        End If
    Loop
End Sub

Gruß
Nepumuk

Bild

Betrifft: AW: Nummer in Tabelle suchen
von: Bernd
Geschrieben am: 01.05.2015 10:50:54
Hi!
meinst Du so in etwa:
https://www.herber.de/bbs/user/97395.xlsm
lg Bernd

Bild

Betrifft: AW: Nummer in Tabelle suchen
von: Michael
Geschrieben am: 01.05.2015 12:34:46
Hallo
Ja genau sowas meine ich.

Bild

Betrifft: AW: Nummer in Tabelle suchen
von: Michael
Geschrieben am: 01.05.2015 13:14:12
Hallo Bernd
genau das hab ich gesucht bloß bei mir funktioniert es nicht.
Hab grad gemerkt bei mir ist es Spalte B und ab zeile 6 gehen die Nummern los.
Muss ich da was ändern im Makro.
Gruß Michael

Bild

Betrifft: Diese Begründung ist völlig inakzeptabel,
von: EtoPHG
Geschrieben am: 01.05.2015 11:06:20
Michael,
Wieso hast Du Excel eingesetzt, wenn sich die Anwender damit nicht auskennen?
Eine Suchfunktion (Ctrl-F) gibt es schon seit Version 1 von Excel!
Was verführt Dich zur Annahme, das der Anwender mit deinem 'angepassten' Excel plötzlich auskennt?
Bei deinem Excel-Level gut, kannst du das mit Excel-Funktionen ohne VBA realisieren:

  • Zelle als Suchkriterium
  • =VERGLEICH(Suchkriterium;Bereich;0) , um Zeile zu finden
  • Zelle mit Auswertung des Vergleich-Resultats, wenn gefunden HYPERLINK zur Zelle, sonst Fehlermeldung
  • Bedingte Formatierung zur Markierung

  • Gruess Hansueli

    Bild

    Betrifft: andere Möglichkeit
    von: RPP63
    Geschrieben am: 01.05.2015 11:31:21
    Hallo!
    Nutze den Autofilter.
    Beim Ausklappen erscheint ein Suchfeld ...
    Gruß Ralf

    Bild

    Betrifft: AW: andere Möglichkeit
    von: Michael
    Geschrieben am: 01.05.2015 16:05:27
    Danke für eure Hilfe aber die Tabelle von Bernd ist genau das was ich gesucht habe.
    Danke

    Bild

    Betrifft: AW: andere Möglichkeit
    von: Bernd
    Geschrieben am: 02.05.2015 04:24:24
    Hallo Michael!
    hier für die Spalte "B" ab Zeile "6":
    https://www.herber.de/bbs/user/97416.xlsm

    Rückmeldung wäre nett !!! 


    >>> mfg Bernd <<<

    Sicher ist, dass nichts sicher ist. Selbst das nicht.


    Bild

    Betrifft: AW: andere Möglichkeit
    von: Michael
    Geschrieben am: 02.05.2015 09:50:17
    Super Bernd
    genau das passt perfekt.
    Danke super Arbeit
    Gruß Michael

     Bild

    Beiträge aus den Excel-Beispielen zum Thema "Nummer in Tabelle suchen"