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
|