Thema Datum  Von Nutzer Rating
Antwort
Rot Warenkorb erstellen
09.10.2019 10:13:48 Mr.Nilson
NotSolved
09.10.2019 10:26:33 Werner
NotSolved
09.10.2019 10:34:57 Gast14889
NotSolved

Ansicht des Beitrags:
Von:
Mr.Nilson
Datum:
09.10.2019 10:13:48
Views:
40
Rating: Antwort:
  Ja
Thema:
Warenkorb erstellen
Hallo Ich wollte für interne Zwecke eine Warenkorb auf Excel erstellen. Nun habe ich Mehrere Tabellenblätter und will das es mir die Produkte auf Grund von Kundennummer und Menge auf mein Bestellformular per Klick übertragt. Wenn ich nur den Makrocode für die erste Tabelle habe funktioniert es. Sobald ich weitere Tabellen einbeziehe funktioniert es nicht mehr. Die Daten blitzen nur kurz. Es Kopiert mir nur die Rahmen die ich eigentlich gar nicht will. Da ich absoluter VBA-Anfänger bin komme ich leider nicht weiter. Kann mir da jemand helfen? Sub Warenkorb4() ' ' Warenkorb4 Makro lngLastRowRE = Sheets("Reinigungsmittel").Cells(Rows.Count, 1).End(xlUp).Row lngLastRowGE = Sheets("Geräte & Maschinen, Zubehör").Cells(Rows.Count, 1).End(xlUp).Row lngLastRowKE = Sheets("Kehrichtsäcke").Cells(Rows.Count, 1).End(xlUp).Row lngLastRowFE = Sheets("Feucht- & Nasswischen").Cells(Rows.Count, 1).End(xlUp).Row lngLastRowWI = Sheets("Wischer, Besen & Bürsten").Cells(Rows.Count, 1).End(xlUp).Row lngLastRowVE = Sheets("Verbrauchsmaterial").Cells(Rows.Count, 1).End(xlUp).Row lngLastRowPA = Sheets("Papiere").Cells(Rows.Count, 1).End(xlUp).Row lngLastRowWC = Sheets("WC Hygiene").Cells(Rows.Count, 1).End(xlUp).Row lngLastRowFE = Sheets("Fensterreinigung").Cells(Rows.Count, 1).End(xlUp).Row lngLastRowAR = Sheets("Arbeitsschutz & Bekleidung").Cells(Rows.Count, 1).End(xlUp).Row lngLastRowAB = Sheets("Abfallwagen").Cells(Rows.Count, 1).End(xlUp).Row lngLastRowSA = Sheets("Salz").Cells(Rows.Count, 1).End(xlUp).Row lngLastRowKO = Sheets("Komissionsware").Cells(Rows.Count, 1).End(xlUp).Row lngLastRowBE = Sheets("Bestellung").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Bestellung").Select Range("B22").Select Sheets("Reinigungsmittel").Range("Tabelle1[[#All],[Menge]:[Kundennr.]]"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B17:C18"), _ CopyToRange:=Range("B25:H25" & lngLastRowBE + 1), Unique:=False ActiveWindow.SmallScroll Down:=-18 lngLastRowBE = Sheets("Bestellung").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Geräte & Maschinen, Zubehör").Range("Tabelle2[[#All],[Menge]:[Kundennr.]]"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B17:C18"), _ CopyToRange:=Range("B21:H21" & lngLastRowBE + 1), Unique:=False ActiveWindow.SmallScroll Down:=-18 lngLastRowBE = Sheets("Bestellung").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Kehrichtsäcke").Range("Tabelle3[[#All],[Menge]:[Kundennr.]]"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B17:C18"), _ CopyToRange:=Range("B21:H21" & lngLastRowBE + 1), Unique:=False ActiveWindow.SmallScroll Down:=-18 lngLastRowBE = Sheets("Bestellung").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Feucht- & Nasswischen").Range("Tabelle4[[#All],[Menge]:[Kundennr.]]"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B17:C18"), _ CopyToRange:=Range("B21:H21" & lngLastRowBE + 1), Unique:=False ActiveWindow.SmallScroll Down:=-18 lngLastRowBE = Sheets("Bestellung").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Wischer, Besen & Bürsten").Range("Tabelle5[[#All],[Menge]:[Kundennr.]]"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B17:C18"), _ CopyToRange:=Range("B21:H21" & lngLastRowBE + 1), Unique:=False ActiveWindow.SmallScroll Down:=-18 lngLastRowBE = Sheets("Bestellung").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Verbrauchsmaterial").Range("Tabelle6[[#All],[Menge]:[Kundennr.]]"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B17:C18"), _ CopyToRange:=Range("B21:H21" & lngLastRowBE + 1), Unique:=False ActiveWindow.SmallScroll Down:=-18 lngLastRowBE = Sheets("Bestellung").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Papiere").Range("Tabelle7[[#All],[Menge]:[Kundennr.]]"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B17:C18"), _ CopyToRange:=Range("B21:H21" & lngLastRowBE + 1), Unique:=False ActiveWindow.SmallScroll Down:=-18 lngLastRowBE = Sheets("Bestellung").Cells(Rows.Count, 1).End(xlUp).Row Sheets("WC Hygiene").Range("Tabelle8[[#All],[Menge]:[Kundennr.]]"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B17:C18"), _ CopyToRange:=Range("B21:H21" & lngLastRowBE + 1), Unique:=False ActiveWindow.SmallScroll Down:=-18 lngLastRowBE = Sheets("Bestellung").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Fensterreinigung").Range("Tabelle9[[#All],[Menge]:[Kundennr.]]"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B17:C18"), _ CopyToRange:=Range("B21:H21" & lngLastRowBE + 1), Unique:=False ActiveWindow.SmallScroll Down:=-18 lngLastRowBE = Sheets("Bestellung").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Arbeitsschutz & Bekleidung").Range("Tabelle10[[#All],[Menge]:[Kundennr.]]"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B17:C18"), _ CopyToRange:=Range("B21:H21" & lngLastRowBE + 1), Unique:=False ActiveWindow.SmallScroll Down:=-18 lngLastRowBE = Sheets("Bestellung").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Abfallwagen").Range("Tabelle11[[#All],[Menge]:[Kundennr.]]"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B17:C18"), _ CopyToRange:=Range("B21:H21" & lngLastRowBE + 1), Unique:=False ActiveWindow.SmallScroll Down:=-18 lngLastRowBE = Sheets("Bestellung").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Salz").Range("Tabelle12[[#All],[Menge]:[Kundennr.]]"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B17:C18"), _ CopyToRange:=Range("B21:H21" & lngLastRowBE), Unique:=False ActiveWindow.SmallScroll Down:=-18 lngLastRowBE = Sheets("Bestellung").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Komissionsware").Range("Tabelle13[[#All],[Menge]:[Kundennr.]]"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B17:C18"), _ CopyToRange:=Range("B21:H21" & lngLastRowBE + 1), Unique:=False ActiveWindow.SmallScroll Down:=-18 End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Warenkorb erstellen
09.10.2019 10:13:48 Mr.Nilson
NotSolved
09.10.2019 10:26:33 Werner
NotSolved
09.10.2019 10:34:57 Gast14889
NotSolved