Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Tabelle mit Suchfunktion
#21
Jo vielen vielen 100000 dank dafür :18: :18: ist quasi genau wie ich es mir gedacht habe :28:

Jetzt wäre nur noch die nachträgliche Sortierung (wenn das möglich ist) Huh
Antworten Top
#22
Hi,

das würde ich zur Vereinfachung mit einem kleinen Makro erschlagen. Aktiviere Blatt "Lieferanten" und öffne mit ALT-F11 den VBA-Editor. Hier fügst du folgenden Code ein:


Code:
Private Sub CommandButton1_Click()

' LieferantenSortieren Makro
 
   ActiveWorkbook.Worksheets("Lieferanten").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Lieferanten").Sort.SortFields.Add Key:=Range( _
       "D4:D1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
       xlSortNormal
   With ActiveWorkbook.Worksheets("Lieferanten").Sort
       .SetRange Range("D4:I1000")
       .Header = xlGuess
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
   
End Sub


In deinem Blatt selbst fügst du über Entwicklertools==> Einfügen==> das erste Symbol aus den ActiveX-Steuerelementen ein. Sobald du irgendwelche Zeilen hinzugefügt hast, reicht ein Klick auf den Button und deine Liste ist sortiert.

Nachtrag:

1. Die Datei musst du dann aber als .xlsm abspeichern - andernfalls würde (nach dem Ignorieren einer Meldung) das Makro verschwinden.
2. Deinen CommandButton kannst du natürlich umbenennen - z.B. in "Sortieren". Dazu musst du lediglich im Entwurfsmodus mit einem Rechtsklick das Eigenschaftsfenster öffnen und bei "Caption" deinen gewünschten Text eintragen.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#23
Ich bin Beeindruckt :18: Echt 10000 Danke für die hilfe!!!

Könnte mir vll noch jemand die 3 seite erklären? :19:

mfg
Antworten Top
#24
Hi,

meinst du das?

Materialauflistung

ABCDEFG
8ArtikelMengeEinheitLieferantLieferantLieferantLieferant
9SESWiggerDammersDEG
10Dachpfannen2,00m13,2036,0030,00112,00
11KVH3,006,009,007,5016,80
12Trittschalldämmung1,00qm2,802,752,202,50
Formeln der Tabelle
ZelleFormel
C10=WENNFEHLER(SVERWEIS($A10;Lieferanten!$D$4:$I$1000;SPALTE(B1);0);"")
D10=WENNFEHLER(SVERWEIS($A10;Lieferanten!$D$4:$I$1000;SPALTE(C1);0)*$B10;"")
E10=WENNFEHLER(SVERWEIS($A10;Lieferanten!$D$4:$I$1000;SPALTE(D1);0)*$B10;"")
F10=WENNFEHLER(SVERWEIS($A10;Lieferanten!$D$4:$I$1000;SPALTE(E1);0)*$B10;"")
G10=WENNFEHLER(SVERWEIS($A10;Lieferanten!$D$4:$I$1000;SPALTE(F1);0)*$B10;"")
C11=WENNFEHLER(SVERWEIS($A11;Lieferanten!$D$4:$I$1000;SPALTE(B2);0);"")
D11=WENNFEHLER(SVERWEIS($A11;Lieferanten!$D$4:$I$1000;SPALTE(C2);0)*$B11;"")
E11=WENNFEHLER(SVERWEIS($A11;Lieferanten!$D$4:$I$1000;SPALTE(D2);0)*$B11;"")
F11=WENNFEHLER(SVERWEIS($A11;Lieferanten!$D$4:$I$1000;SPALTE(E2);0)*$B11;"")
G11=WENNFEHLER(SVERWEIS($A11;Lieferanten!$D$4:$I$1000;SPALTE(F2);0)*$B11;"")
C12=WENNFEHLER(SVERWEIS($A12;Lieferanten!$D$4:$I$1000;SPALTE(B3);0);"")
D12=WENNFEHLER(SVERWEIS($A12;Lieferanten!$D$4:$I$1000;SPALTE(C3);0)*$B12;"")
E12=WENNFEHLER(SVERWEIS($A12;Lieferanten!$D$4:$I$1000;SPALTE(D3);0)*$B12;"")
F12=WENNFEHLER(SVERWEIS($A12;Lieferanten!$D$4:$I$1000;SPALTE(E3);0)*$B12;"")
G12=WENNFEHLER(SVERWEIS($A12;Lieferanten!$D$4:$I$1000;SPALTE(F3);0)*$B12;"")
Datengültigkeit der Tabelle
ZelleZulassenDatenEingabe 1Eingabe 2
A9Liste=Lieferanten!$D$4:$D$1000
A10Liste=Lieferanten!$D$4:$D$1000
A11Liste=Lieferanten!$D$4:$D$1000
A12Liste=Lieferanten!$D$4:$D$1000

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#25
Ja so in etwa hab ich das gemeint nur er Übernimmt ja jetzt alle Artikel aus der Tabelle Lieferanten..

Mein wunsch wäre eine drop down liste in der Spalte Artikel in der ich Anfangsbuchstaben eingebe und mir dann eine Auswahl angezeigt wird Huh
Antworten Top
#26
Hi,

Zitat:Mein wunsch wäre eine drop down liste in der Spalte Artikel in der ich Anfangsbuchstaben eingebe und mir dann eine Auswahl angezeigt wird [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

das geht meines Wissens nach so nicht. Eventuell per VBA?? Da müssten dir aber die VBA-Spezialisten helfen.

Ich würde daher an deiner Stelle im Suche-Blatt zwischen Einheit und erstem Lieferant eine Spalte einfügen und in dieser die gewünschte Menge eintragen. Falls die entsprechende Zelle leer ist, werden dir die Einzelpreise angezeigt, sobald du eine Menge >1 einträgst, wird entsprechend multipliziert.

Suche

HIJKLMN
2ArtikelEinheitMengeLieferantLieferantLieferantLieferant
3SESWiggerDammersDEG
4pavarottizentner12,00 €3,50 €4,90 €268,00 €
5Pavatex3,50 €5,00 €2,60 €25,00 €
6pavatolkilo11,00 €2,50 €3,90 €267,00 €
7
Formeln der Tabelle
ZelleFormel
H4=WENN($C$7="Dieser Artikel ist nicht bekannt";"";WENN(ISTZAHL(Lieferanten!C4);INDEX(Lieferanten!$D$4:$D$1000;Lieferanten!C4);""))
I4=WENNFEHLER(SVERWEIS($H4;Lieferanten!$D$4:$I$1000;SPALTE(B1);0);"")
K4=WENNFEHLER(WENN($J4="";SVERWEIS($H4;Lieferanten!$D$4:$I$1000;SPALTE(C1);0);SVERWEIS($H4;Lieferanten!$D$4:$I$1000;SPALTE(C1);0)*$J4);"")
L4=WENNFEHLER(WENN($J4="";SVERWEIS($H4;Lieferanten!$D$4:$I$1000;SPALTE(D1);0);SVERWEIS($H4;Lieferanten!$D$4:$I$1000;SPALTE(D1);0)*$J4);"")
M4=WENNFEHLER(WENN($J4="";SVERWEIS($H4;Lieferanten!$D$4:$I$1000;SPALTE(E1);0);SVERWEIS($H4;Lieferanten!$D$4:$I$1000;SPALTE(E1);0)*$J4);"")
N4=WENNFEHLER(WENN($J4="";SVERWEIS($H4;Lieferanten!$D$4:$I$1000;SPALTE(F1);0);SVERWEIS($H4;Lieferanten!$D$4:$I$1000;SPALTE(F1);0)*$J4);"")
H5=WENN($C$7="Dieser Artikel ist nicht bekannt";"";WENN(ISTZAHL(Lieferanten!C5);INDEX(Lieferanten!$D$4:$D$1000;Lieferanten!C5);""))
I5=WENNFEHLER(SVERWEIS($H5;Lieferanten!$D$4:$I$1000;SPALTE(B2);0);"")
K5=WENNFEHLER(WENN($J5="";SVERWEIS($H5;Lieferanten!$D$4:$I$1000;SPALTE(C2);0);SVERWEIS($H5;Lieferanten!$D$4:$I$1000;SPALTE(C2);0)*$J5);"")
L5=WENNFEHLER(WENN($J5="";SVERWEIS($H5;Lieferanten!$D$4:$I$1000;SPALTE(D2);0);SVERWEIS($H5;Lieferanten!$D$4:$I$1000;SPALTE(D2);0)*$J5);"")
M5=WENNFEHLER(WENN($J5="";SVERWEIS($H5;Lieferanten!$D$4:$I$1000;SPALTE(E2);0);SVERWEIS($H5;Lieferanten!$D$4:$I$1000;SPALTE(E2);0)*$J5);"")
N5=WENNFEHLER(WENN($J5="";SVERWEIS($H5;Lieferanten!$D$4:$I$1000;SPALTE(F2);0);SVERWEIS($H5;Lieferanten!$D$4:$I$1000;SPALTE(F2);0)*$J5);"")
H6=WENN($C$7="Dieser Artikel ist nicht bekannt";"";WENN(ISTZAHL(Lieferanten!C6);INDEX(Lieferanten!$D$4:$D$1000;Lieferanten!C6);""))
I6=WENNFEHLER(SVERWEIS($H6;Lieferanten!$D$4:$I$1000;SPALTE(B3);0);"")
K6=WENNFEHLER(WENN($J6="";SVERWEIS($H6;Lieferanten!$D$4:$I$1000;SPALTE(C3);0);SVERWEIS($H6;Lieferanten!$D$4:$I$1000;SPALTE(C3);0)*$J6);"")
L6=WENNFEHLER(WENN($J6="";SVERWEIS($H6;Lieferanten!$D$4:$I$1000;SPALTE(D3);0);SVERWEIS($H6;Lieferanten!$D$4:$I$1000;SPALTE(D3);0)*$J6);"")
M6=WENNFEHLER(WENN($J6="";SVERWEIS($H6;Lieferanten!$D$4:$I$1000;SPALTE(E3);0);SVERWEIS($H6;Lieferanten!$D$4:$I$1000;SPALTE(E3);0)*$J6);"")
N6=WENNFEHLER(WENN($J6="";SVERWEIS($H6;Lieferanten!$D$4:$I$1000;SPALTE(F3);0);SVERWEIS($H6;Lieferanten!$D$4:$I$1000;SPALTE(F3);0)*$J6);"")
H7=WENN($C$7="Dieser Artikel ist nicht bekannt";"";WENN(ISTZAHL(Lieferanten!C7);INDEX(Lieferanten!$D$4:$D$1000;Lieferanten!C7);""))
I7=WENNFEHLER(SVERWEIS($H7;Lieferanten!$D$4:$I$1000;SPALTE(B4);0);"")
K7=WENNFEHLER(WENN($J7="";SVERWEIS($H7;Lieferanten!$D$4:$I$1000;SPALTE(C4);0);SVERWEIS($H7;Lieferanten!$D$4:$I$1000;SPALTE(C4);0)*$J7);"")
L7=WENNFEHLER(WENN($J7="";SVERWEIS($H7;Lieferanten!$D$4:$I$1000;SPALTE(D4);0);SVERWEIS($H7;Lieferanten!$D$4:$I$1000;SPALTE(D4);0)*$J7);"")
M7=WENNFEHLER(WENN($J7="";SVERWEIS($H7;Lieferanten!$D$4:$I$1000;SPALTE(E4);0);SVERWEIS($H7;Lieferanten!$D$4:$I$1000;SPALTE(E4);0)*$J7);"")
N7=WENNFEHLER(WENN($J7="";SVERWEIS($H7;Lieferanten!$D$4:$I$1000;SPALTE(F4);0);SVERWEIS($H7;Lieferanten!$D$4:$I$1000;SPALTE(F4);0)*$J7);"")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Am Ende fügst du einfach noch eine Summenzeile ein:

Suche

HIJKLMN
33
34Summen26,50 €11,00 €11,40 €560,00 €
Formeln der Tabelle
ZelleFormel
H33=WENN($C$7="Dieser Artikel ist nicht bekannt";"";WENN(ISTZAHL(Lieferanten!C33);INDEX(Lieferanten!$D$4:$D$1000;Lieferanten!C33);""))
I33=WENNFEHLER(SVERWEIS($H33;Lieferanten!$D$4:$I$1000;SPALTE(B30);0);"")
K33=WENNFEHLER(WENN($J33="";SVERWEIS($H33;Lieferanten!$D$4:$I$1000;SPALTE(C30);0);SVERWEIS($H33;Lieferanten!$D$4:$I$1000;SPALTE(C30);0)*$J33);"")
L33=WENNFEHLER(WENN($J33="";SVERWEIS($H33;Lieferanten!$D$4:$I$1000;SPALTE(D30);0);SVERWEIS($H33;Lieferanten!$D$4:$I$1000;SPALTE(D30);0)*$J33);"")
M33=WENNFEHLER(WENN($J33="";SVERWEIS($H33;Lieferanten!$D$4:$I$1000;SPALTE(E30);0);SVERWEIS($H33;Lieferanten!$D$4:$I$1000;SPALTE(E30);0)*$J33);"")
N33=WENNFEHLER(WENN($J33="";SVERWEIS($H33;Lieferanten!$D$4:$I$1000;SPALTE(F30);0);SVERWEIS($H33;Lieferanten!$D$4:$I$1000;SPALTE(F30);0)*$J33);"")
K34=SUMME(K4:K33)
L34=SUMME(L4:L33)
M34=SUMME(M4:M33)
N34=SUMME(N4:N33)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#27
Okay trotzdem danke :28:

Okay könnte ich sonst aus der Spalte A aus jeder zeile so ein Suchenfeld machen wie in Tabelle Suchen damit die eingegebenen Artikel bestehen bleiben?? Huh
Antworten Top
#28
H,

das verstehe ich jetzt nicht - was meinst du genau?
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#29
Wenn ich in meiner ersten Tabelle (Suchen) was bei suche eingebe zeigt er mir das zwar in der Tabelle an so wie es sein soll aber wenn ich was anders eingebe sind die vorher angezeigten Artikel logischerweise wieder weg.... das ist ja auch genau so wie ich es wollte Smile

Jetzt war meine überlegung in der Tabelle Materialliste aus jeder Zelle in Spalte A so ein Suchfeld zu machen sodass die gesuchten artikel stehen bleiben...Die liste soll eine Art gesamt übersicht für materialen werden für einzelne Bauvorhaben..
Antworten Top
#30
Hi,

Zitat:Jetzt war meine überlegung in der Tabelle Materialliste aus jeder Zelle in Spalte A so ein Suchfeld zu machen sodass die gesuchten artikel stehen bleiben...Die liste soll eine Art gesamt übersicht für materialen werden für einzelne Bauvorhaben..

das ist, zumindest aus meiner Sicht, mit Formeln nicht lösbar.

Verstehe ich das richtig, dass du alles, das du gesucht hast, im Prinzip im Blatt Materialauflistung untereinander kopiert haben willst?

Dann würde ich an deiner Stelle die Suchergebnisse mittels VBA in dein Materialblatt einkopieren. Den entsprechenden Code hierfür kann ich dir allerdings mangels ausreichender Makrokenntnisse nicht schreiben.

Da müssten dann die VBA-Spezies ran.

Ich habe im Netz nach einem Code gesucht und bin halbwegs fündig geworden. Allerdings fügt er die Kopien noch nicht korrekt ein. Zum Anschauen reicht es aber - habe dir deshalb meine bisherige Mappe hochgeladen. Schau's dir mal an, ob es vom Prinzip her das ist, was du benötigst.


.xlsm   Pinsel891-Materialliste_erweitert-mit_Sortier-Makro.xlsm (Größe: 52,48 KB / Downloads: 3)
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste