Office: Suchfeld erstellen und Ergebnis anzeigen

Hallo,

bin absoluter Neuling im Programmieren von Excel und Macro's
gibt es in Excel 2007 eine Lösung für mein Problem?
Es geht um die Suche von Artikeln in Lagerplätzen, die Artikel haben alle eine Nummer, können aber auf mehreren Lagerplätzen gleich sein.

Ich habe mir folgendes vorgestellt wie im Bild ersichtlich, im Suchfeld gebe ich die Artikelnummer ein, dann wird in den Feldern Lagerplatz ein oder gegebenenfalls die 2 Lagerplätze angezeigt


Gruss
Luxi64

 

Hallo!

Für eine komfortable Auswertung ist dein Tabellenaufbau nicht gerade glücklich gewählt...
Kannst du den nicht ein wenig mehr in Listenform bringen?
Sonst wirst du um VBA wohl nicht herumkommen.

 

Das Bild stellt nur einen kleinen Ausschnit der Tabelle an.
Es handelt sich um ein Palettenlager wobei die Stellplätze von A bis G, mit einer Reihenaufteilung 1xx bis 5xx, und die Ebenen xx1 bis xx4 aufgeteilt sind.

Habe zum bessen Verständnis einen Teil der Tabelle angehängt
Der Aufbau ist momentan so gewählt weil es somit auch einer bildlichen Darstellung enspricht

Dachte mir aber schon dass das nur mit VBA klappen kann, nur habe ich darin keinerlei Erfahrung.

Gruss
Luxi64

 

Hallo!

Du hast ja schon ein Makro in deiner Mappe, welches beinahe deinen Wunsch erfüllt. Eine kleine Modifikation sollte schon reichen.

Code:

Option Explicit
  Dim Suchbegriff As String
  Dim sht As Worksheet
  Dim Found As Range
  Dim FirstAddress As String
  Dim Zähler As Long
  Dim xy As Long
  Dim Plaetze As String
  Dim Sp As Long
  Dim Zeile As Long
  Dim Ze As Long
  
Sub suchen_Blatt()
Plaetze = ""
xy = ActiveSheet.Index
   Zähler = 0
    Suchbegriff = InputBox("Bitte geben Sie den Suchbegriff ein:" & Chr(13) & Chr(13) _
    & "Bitte unbedingt die Groß- Kleinschreibung beachten!", "Suche im Blatt", "Suchbegriff")
    
    If StrPtr(Suchbegriff) = 0 Then
       Exit Sub
   Else
   If Suchbegriff = "" Then
     Select Case MsgBox("Sie haben nichts eingegeben !", vbRetryCancel Or vbExclamation Or vbDefaultButton1, "Suchbegriff fehlt")
      Case vbRetry
        Call suchen_Blatt
      Case vbCancel
        Exit Sub
     End Select
    Else
   End If
  End If
   Sheets(xy).Select
    Set Found = Sheets(xy).Cells.Find(Suchbegriff)
    If Not Found Is Nothing Then
      FirstAddress = Found.Address
    Do
      Found.Activate
      Zähler = 1
      
Sp = Found.Column
Zeile = 0
Do
Zeile = Zeile + 1
Ze = Found.Row + Zeile
Loop Until Ze = 7 Or Ze = 12 Or Ze = 17 Or Ze = 22 Or Ze = 32 Or Ze = 37 Or Ze = 42 Or Ze = 47
Plaetze = Plaetze & vbLf & Cells(Ze, Sp)

    Set Found = Cells.FindNext(After:=ActiveCell)
   If Found.Address = FirstAddress Then Exit Do
   Loop
    End If
   If Zähler < 1 Then
     GoTo Err
     Else
    Select Case MsgBox(Suchbegriff & " wurde gefunden in den Plätzen" _
                       & vbCrLf & Plaetze _
                       & vbCrLf & "Weitere Suche ??" _
                       , vbYesNo Or vbInformation Or vbDefaultButton1, "Suchen in Blatt")
    Case vbYes
         Call suchen_Blatt
    Case vbNo
         Exit Sub
    End Select
  Exit Sub
End If
Err:
  Select Case MsgBox("Der gesuchte Begriff wurde nicht gefunden." _
                       & vbCrLf & "Wollen Sie noch einmal suchen." _
                       , vbRetryCancel Or vbInformation Or vbSystemModal Or vbDefaultButton1, "Suche im Blatt")
    Case vbRetry
       Call suchen_Blatt
    Case vbCancel
       Exit Sub
    End Select

End Sub

Wenn deine Originaltabelle real noch länger ist, dann musst du in dieser Zeile noch die weiteren Zeilen dazufügen, in denen deine Lagerbezeichnungen stehen:

Loop Until Ze = 7 Or Ze = 12 Or Ze = 17 Or Ze = 22 Or Ze = 32 Or Ze = 37 Or Ze = 42 Or Ze = 47

 

Ja mit der Modifikation wird genau das gewünschte erreicht.

Nur gibt es auch die Möglichkeit wie auf dem Bild gezeigt, dass ich sofort in einer Zelle den Suchbegriff eingebe und der dann in den anderen Zellen angezeigt wird.

Ansonsten erstelle ich in einer Zelle ein Button um das makro aufzurufen, was auch eine überlegung wert ist.


Danke und Gruss Luxi64

 

So nochmals danke für die Hilfe, ihr seid super!

Ich habe das Makro auf ein Button gelegt und so funktioniert das alles wie gewünscht.

Gruss
Luxi64

 

Hallo,

und was ist mit folgendem, relativ einfach zu realisierendem Modell?

	H	I	J	K	L
3
4		3251	7853	2587
5		4758	7787	7787
6		7412	7896	1477
7		745	8521	1478
8	Lagerplatz	A101	A102	A103
9
10		4774	4545	1234
11		1234		4569
12		3251
13		7895
14	Lagerplatz	B201	B202	B203
15
16
17		Suchfeld	7787
18
19			Lagerplatz	Anzahlen	Lagerplätze
20			A101		A102
21			A102	1	A103
22			A103	1
23			B201
24			B202
25			B203
26

Zelle	Formel
K20	=ZÄHLENWENN(I4:I7;J17)
L20	{=WENN(ZÄHLENWENN($K$20:$K$25;">0")>=ZEILE(A1);INDEX($J$20:$J$25;KKLEINSTE(WENN($K$20:$K$25<>0;ZEILE($1:$6));ZEILE(A1)));"")}
K21	=ZÄHLENWENN(J4:J7;J17)
L21	{=WENN(ZÄHLENWENN($K$20:$K$25;">0")>=ZEILE(A2);INDEX($J$20:$J$25;KKLEINSTE(WENN($K$20:$K$25<>0;ZEILE($1:$6));ZEILE(A2)));"")}
K22	=ZÄHLENWENN(K4:K7;J17)
L22	{=WENN(ZÄHLENWENN($K$20:$K$25;">0")>=ZEILE(A3);INDEX($J$20:$J$25;KKLEINSTE(WENN($K$20:$K$25<>0;ZEILE($1:$6));ZEILE(A3)));"")}
K23	=ZÄHLENWENN(I10:I13;J17)
L23	{=WENN(ZÄHLENWENN($K$20:$K$25;">0")>=ZEILE(A4);INDEX($J$20:$J$25;KKLEINSTE(WENN($K$20:$K$25<>0;ZEILE($1:$6));ZEILE(A4)));"")}
K24	=ZÄHLENWENN(J10:J13;J17)
L24	{=WENN(ZÄHLENWENN($K$20:$K$25;">0")>=ZEILE(A5);INDEX($J$20:$J$25;KKLEINSTE(WENN($K$20:$K$25<>0;ZEILE($1:$6));ZEILE(A5)));"")}
K25	=ZÄHLENWENN(K10:K13;J17)
L25	{=WENN(ZÄHLENWENN($K$20:$K$25;">0")>=ZEILE(A6);INDEX($J$20:$J$25;KKLEINSTE(WENN($K$20:$K$25<>0;ZEILE($1:$6));ZEILE(A6)));"")}

<table><tr><td>Achtung, Matrixformel enthalten!</td></tr><tr><td><span>Die geschweiften Klammern{} werden </span><span>nicht</span><span> eingegeben.</span></td></tr><tr><td><span>Verlassen Sie den Zelleneditor mit </span><span>Strg+Shift + Enter</span><span>, statt Enter alleine.</span></td></tr></table>[/parsehtml]
Dabei müssten in den Zellen J19:J24 alle Lagerplätze fix vorgegeben werden und in K19:K24 stehen die jeweiligen Anzahlen des gesuchten Artikels aus Zelle J17. Durch geeignete Formatierung des Bereichs K19:K24 sieht man sofort, auf welchem Lagerplatz dieser Artikel vorkommt, auch mehrfache Vorkommen pro Lagerplatz (ganz ohne VBA).
Und in den Zellen L20:L25 würden genau die Lagerplätze aufgelistet, in denen der Artikel aus J17 enthalten ist.
Man braucht die Matrixformel nur in L20 eingeben und dann in die darunter liegenden Zellen bis L25 hinunterziehen.