Office: Suchbotton

Ich habe eine Tabelle mit Spalten a-k nebeneinander.Zu jedem Buchstaben gehören mehrere Nr. die sich manchmal wiederholen. Die Buchstaben sind Standorte von Regalen und die Nr. demonstrieren die Teile die sich an diesem Standort befinden.

Es sollen insgesamt 2 tabellen werden.In der ersten ist eine Suchbotton mit einem Bild das ich einfüge und in der anderen Tabelle die Liste mit den Buchstaben und Nummern.
Ich möchte jetzt in Exel ein Suchbotton einfügen.Wenn man den drückt soll die Suchmaske angezeigt werden..Wenn man dann eine Nr. angibt, soll Exel angeben bei welchem Buchstaben sich die Nummer befindet und auch eventuell die Suchergebnisse farbig untermalen.
Ist dies mit Steuerelement-Toolbox etc. möglich?

Falls dies geht, könnte man auch gleich mehrere nr. hintereinander angeben, falls man 3 teile sucht?

Danke für jede antwort.

MfG

Krys

 

Hallo!

Klingt ein wenig nach einem schwedischen Möbelhaus:
"Wohnst du schon oder excelst du noch?" :-D :-D

So ganz habe ich das aber noch nicht verstanden:
- Mit den Buchstaben a-k meinst du offensichtlich NICHT die Spaltenbezeichnungen, sondern eher eine Lagerbezeichnung, oder?
- Existiert dein Suchbutton schon oder soll dieser erst erstellt werden?
- Gleiche Frage zur Suchmaske: Schon da oder nicht?
- Hast du eine Beispieldatei, die du hochladen kannst, an der man sich ein anschaulicheres Bild machen könnte?

Irgendwie wird das sicher machbar sein, aber momentan macht mir meine Fantasie noch einen Strich durch die Rechnung, leider...

 

Datei

Hier die datei.Sie ist ganz simle.
Jeder Buchstabe ist ein Standort eines Regals.In jedem Regal sind verschiedene einzelteile wie Schrauben etc. die eine Nummer haben.

Ein botton ist da, den habe ich aber auch nur durch kopieren von einer Webseite und er zeigt mir nicht das an was ich brauche, da nicht alle Ergebnisse auf einmal angezeigt werden und es nicht mit einer Farbe hervorgehoben wird.

Hilft das weiter?

 

Hallo!

Dann teste doch mal diesen Code:

Code:

Sub SearchOnlyOneTable()
Dim Zelle As Range, Bereich As Range
Dim Such As String
Dim Ergebnis As String
Set Bereich = Sheets("Tabelle2").Range("A5:K32") '<-- Hier gegebenenfalls anpassen
Bereich.Interior.ColorIndex = 36
Such = InputBox("Suchwert:")
For Each Zelle In Bereich
If Zelle = Such Then
Ergebnis = Ergebnis & ", " & Cells(4, Zelle.Column)
Zelle.Interior.ColorIndex = 3
End If
Next Zelle
If Ergebnis = "" Then
MsgBox "Nix gefunden"
Else
MsgBox "Gefunden in: " & Right(Ergebnis, Len(Ergebnis) - 2)
End If
End Sub

 

Danke

Danke schön schon mal.

Schaffe es irgendwie nicht.
Habe wie gesagt O Ahnung davon.Soll ich das zu meinem Botton hinzufügen oder als neuen Code oder modul ???
Fragen über Fragen... :-(

 

Hallo!

Am einfachsten weist du dem Butoon den Code direkt zu, dann kannst du dir alle Module sparen.
Ich weiß ja nicht, was VBA-mäßig in deiner Tabelle sonst noch so los ist...
Schau mal im Anhang.

 

Super

Danke schön.So habe ich mir das gedacht. :-D

Hast mir sehr geholfen

Grüße Krys

 

Alphabetisch

Wie kann ich mir den das Ergebniss alphabetisch anzeigen lassen?
Mit diesem Code wird es nicht berücksichtigt.
Die Liste die ich geschickt habe beinhaltet noch nicht viele Nummern, wenn noch mehr Nummern dazukommen, wäre es gut wenn nur die Buchstabenzeilen farbig untermalt werden, da man sonst eventuell lange runterscrollen müßte.
Wie könnte man das ändern?


Danke für die Mühe
Krys

 

Hallo!

Passt es so?

Code:

Private Sub CommandButton1_Click()
Dim Zelle As Range, Spalte As Range, Bereich As Range
Dim Such As String
Dim Ergebnis()
Dim x As Integer
Set Bereich = Sheets("Tabelle2").Range("A5:K32")
Bereich.Rows(0).Interior.ColorIndex = 33
Such = InputBox("Suchwert:")
If WorksheetFunction.CountIf(Bereich, Such) > 0 Then
  ReDim Ergebnis(WorksheetFunction.CountIf(Bereich, Such) - 1)
  For Each Spalte In Bereich.Columns
    For Each Zelle In Spalte.Cells
      If Zelle = Such Then
        Ergebnis(x) = Bereich.Cells(0, Zelle.Column)
        Bereich.Cells(0, Zelle.Column).Interior.ColorIndex = 3
        x = x + 1
      End If
    Next Zelle
  Next Spalte
  MsgBox "Gefunden in: " & Join(Ergebnis, ", ")
Else
  MsgBox "Nix gefunden"
End If
End Sub

 

Perfekt!

Danke schön!Top! :-)