Hallo miteinander. Vielleicht bin ich fast ein bisschen dreist mit meinem ersten Beitrag gleich nach etwas zu Fragen aber ich komm einfach nicht weiter. Ich habe nun schon alles mögliche probiert und im Internet geforscht und bin auf keinen Grün Zweig gekommen.
Ich bin Chefkoch in einem Seniorenheim in der Schweiz und möchte für meine Bestellungen ein optimiertes Excel-File erstellen... Und zwar habe ich die ganzen Zutaten in einer Tabelle und möchte nun eine Zusammenfassung von meiner Auswahl auf einer weiteren Tabelle aufgelistet bekommen.
Mein Problem ist, dass ich nicht verstehe wie ich Excel klar machen kann, dass es alle Bestellungen untereinander in der Bestellliste aufführen soll... Die Reihenfolge ist mir völlig egal. Hauptsache alle sind drauf.
06.01.2015, 14:13 (Dieser Beitrag wurde zuletzt bearbeitet: 06.01.2015, 14:15 von Kuwer.)
Hallo,
bei folgender Variante bleibt die Zutatenliste wie sie ist. So schlecht finde ich das gar nicht.
Das Makro löscht vorherige Einträge in Bestellung und überträgt die neuen Zutaten.
Code:
Sub Makro1() Dim rngT As Range
With Worksheets("Bestellung").Range("A23").CurrentRegion If .Rows.Count > 1 Then .Offset(1).Resize(.Rows.Count - 1).Delete xlUp End With On Error Resume Next For Each rngT In Worksheets("Tabelle1").Range("A:A,D:D,G:G").Columns Application.Intersect(rngT.Resize(, 2), rngT.SpecialCells(xlCellTypeConstants, 1).EntireRow).Copy Worksheets("Bestellung").Cells(Rows.Count, 1).End(xlUp).Offset(1) Next rngT With Worksheets("Bestellung").Range("A23").CurrentRegion If .Rows.Count > 1 Then .Rows(1).Copy .Offset(1).Resize(.Rows.Count - 1).PasteSpecial Paste:=xlPasteFormats .Cells(1).Select End If End With Application.CutCopyMode = False End Sub
Gruß Uwe
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28 • redlose
Wäre das eine Möglichkeit oder ist der Aufbau fest?
BTW: Küsnacht - ist das in der Nähe von Meilen am Zürichsee?
Hey Peter, danke für die schnelle Antwort. Grundsätzlich ist das Format nicht fix, obwohl es schon praktischer wäre, wenn es auch nebeneinander sein könnte. Ich probier das mal mittels deiner kleinen Anleitung aus heute Nachmittag. Ja, Küsnacht ist 2 Dörfer neben Meilen :)
06.01.2015, 14:22 (Dieser Beitrag wurde zuletzt bearbeitet: 06.01.2015, 14:23 von Peter.)
Hallo,
wenn du das beibehalten willst dann nimm den Code von Uwe.
Der muss in ein allgemeines Modul der Datei:
- Öffne mit Alt+F11 den VBA-Editor - mit Strg+R den Projekt-Explorer öffnen und aktivieren - die gewünschte Datei per Doppelklick markieren - Tastenkombination Alt+E und dann M drücken - in der rechten Fensterhälfte ist jetzt ein leeres Modul eingefügt worden - in dieses Modul muss der Code eingefügt werden - im Projektexplorer wird das Modul unter der Datei angezeigt - speichen und den VBA-Editor mit Alt+F4 schliessen - das Makro steht dir jetzt in dieser Datei zur Verfügung und kann mit Alt-F8 aufgerufen werden
In Meilen war ich früher ab und zu mal.
Gruß Peter
Folgende(r) 1 Nutzer sagt Danke an Peter für diesen Beitrag:1 Nutzer sagt Danke an Peter für diesen Beitrag 28 • redlose
06.01.2015, 15:04 (Dieser Beitrag wurde zuletzt bearbeitet: 06.01.2015, 15:06 von Peter.)
Hallo,
nicht ganz. Du meinst Küssnacht (mit Doppel-S) im Kanton Schwyz in der Nähe vom Vierwaldstätter See und wir reden über Küsnacht (mit einfachem S) im Kanton Zürich am Zürich-See.
das finde ich nicht - mir ist es, als ich das Ortschild da unten das erste Mal gelesen habe, auch so gegangen - und ich bin überzeugt davon, vielen wird es nicht anders gehen.
Wobei ich befürchte, dass viele mit 'durch diese hohle Gasse muss er kommen' überhaupt nichts anfangen können - und das ist m.E. peinlich.
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
