ich möchte für den Brötchenverkauf in der Schule eine Statistik erstelle.
Jeden Tag soll , bei klicken des Bottons, aus der Excel Tabelle, die Anzahl, die Produktnummer, der Preis und die Kategorie in die Tabelle "Daten" geschrieben werden.
Mit folgendem Makro ist es zu realisieren. Bei 100 Zeilen aber sehr aufwendig.
Hat jemand eine Idee wie man es einfacher gestallten kann?
Gruß Tobi
https://www.herber.de/bbs/user/89198.xls
Sub Makro1()
Auftrag = Range("B11")
Anzahl1 = Range("B14")
Artikel1 = Range("C14")
Kategorie1 = Range("E14")
Preis1 = Range("F14")
Anzahl2 = Range("B15")
Nummer2 = Range("C15")
Kategorie2 = Range("E15")
Preis2 = Range("F15")
Windows("Daten.xls").Activate
With Sheets("Daten").Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Set c = .Find(Auftrag, LookIn:=xlValues)
If Not c Is Nothing Then
c.Select
GoTo weiter
End If
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select 'letzte leere zelle
GoTo weiter
End With
weiter:
ActiveCell.Select
ActiveCell = Auftrag
Selection.Offset(0, 1) = Anzahl1
Selection.Offset(0, 2) = Artikel1
Selection.Offset(0, 3) = Kategorie1
Selection.Offset(0, 4) = Preis1
Selection.Offset(0, 5) = Anzahl2
Selection.Offset(0, 6) = Artikel2
Selection.Offset(0, 7) = Kategorie2
Selection.Offset(0, 8) = Preis2
ActiveWorkbook.Save
End
Sub