Registriert seit: 21.04.2015
Version(en): 2010
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)
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
24.04.2015, 08:00
(Dieser Beitrag wurde zuletzt bearbeitet: 24.04.2015, 08:50 von WillWissen.
Bearbeitungsgrund: Tippfehler beseitigt
)
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)
Registriert seit: 21.04.2015
Version(en): 2010
Ich bin Beeindruckt :18: Echt 10000 Danke für die hilfe!!!
Könnte mir vll noch jemand die 3 seite erklären? :19:
mfg
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
24.04.2015, 10:06
(Dieser Beitrag wurde zuletzt bearbeitet: 24.04.2015, 10:07 von WillWissen.)
Hi,
meinst du das?
Materialauflistung | A | B | C | D | E | F | G | 8 | Artikel | Menge | Einheit | Lieferant | Lieferant | Lieferant | Lieferant | 9 | | | | SES | Wigger | Dammers | DEG | 10 | Dachpfannen | 2,00 | m | 13,20 | 36,00 | 30,00 | 112,00 | 11 | KVH | 3,00 | m³ | 6,00 | 9,00 | 7,50 | 16,80 | 12 | Trittschalldämmung | 1,00 | qm | 2,80 | 2,75 | 2,20 | 2,50 | Formeln der Tabelle | Zelle | Formel | 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 | Zelle | Zulassen | Daten | Eingabe 1 | Eingabe 2 | A9 | Liste | | =Lieferanten!$D$4:$D$1000 | | A10 | Liste | | =Lieferanten!$D$4:$D$1000 | | A11 | Liste | | =Lieferanten!$D$4:$D$1000 | | A12 | Liste | | =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)
Registriert seit: 21.04.2015
Version(en): 2010
24.04.2015, 17:16
(Dieser Beitrag wurde zuletzt bearbeitet: 24.04.2015, 17:34 von Pinsel891.)
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
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
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 | H | I | J | K | L | M | N | 2 | Artikel | Einheit | Menge | Lieferant | Lieferant | Lieferant | Lieferant | 3 | | | SES | Wigger | Dammers | DEG | 4 | pavarotti | zentner | | 12,00 € | 3,50 € | 4,90 € | 268,00 € | 5 | Pavatex | m² | | 3,50 € | 5,00 € | 2,60 € | 25,00 € | 6 | pavatol | kilo | | 11,00 € | 2,50 € | 3,90 € | 267,00 € | 7 | | | | | | | | Formeln der Tabelle | Zelle | Formel | 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 | H | I | J | K | L | M | N | 33 | | | | | | | | 34 | Summen | | | 26,50 € | 11,00 € | 11,40 € | 560,00 € | Formeln der Tabelle | Zelle | Formel | 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)
Registriert seit: 21.04.2015
Version(en): 2010
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??
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
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)
Registriert seit: 21.04.2015
Version(en): 2010
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
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..
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
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.
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)
|