Datenbereich mit freier Zeilenanzahl, aber 10 fixen Spalten
In letzter Spalte sind bestandstrennende Inhalte für gesamten Datenbereich eingeben. (z.B. Apfelsorten,Birnensorten,Salatsorten)+
Die einzelnen Obst- und Gemüsesorten treten immer auf, wie oft (=Zeilenanzahl) aber unbekannt
Aufgabe:
Nach jeweiliger Sorte Leerzeile unter Datenbereich einfügen
In jeder Leerzelle frei definierte Summmenprodukte unter dem Datenbereich eingeben
in Zelle B4 Durchschnittsgewicht dieser Birnensorte,
in A4 Durchschnittskerne dieser Birnensorte, ermittelt über Stückzahl (auch wenn nicht sinnvoll),
in Zelle E4 dann Verbleibende Zeit in Jahren bis Verfall…
Wiederholung für weitere Birnen bzw. Obstsorten…
Vielleicht kannst du mir helfen… Besten Dank schon mal
ich hoffe du hast ein Erbarmen…
Kommt nicht wieder vor…
Hallo Klaus.
einmal ist keinmal, schon vergessen.
noch ist mir unklar was du da mit frei definiertem Summenprodukt meinst.
Zur Aufteilung in Blöcke probiere das mal:
Option Explicit
Sub Gruppieren()
Dim Zei As Long
With Worksheets("Sheet1")
For Zei = .Cells(Rows.Count, 7).End(xlUp).Row To 3 Step -1
If .Cells(Zei, 7).Value .Cells(Zei - 1, 7).Value Then
.Rows(Zei).Insert
End If
Next Zei
End With
End Sub
Beim echten Fall weiss ich aber nicht ob der erste Datenblock
(hier: Birne Helene) in der dritten Zeile endet, kann auch erste Zeile oder 10 Zeile sein. Unter Umständen ist Birne Helene also gar nicht da und es beginnt sofort mit Birne Williams. Vielleicht also noch allgemeiner schreiben dass erster Datenblock ausgesteuert werden kann.
Anmerkung
Zu deiner Frage:
Das Summenprodukt soll in der erzeugten Leerzeile geschrieben werden. Mir würde es schon reichen wenn du das Summenprodukt für das durchschnittliche Gewicht einer Obstsorte in der Spalte D für die jeweilige Leerzeile einfügen könntest.
Eine Summe unter dem jeweiligen Datenblock in Spalte B wäre super.
Beim echten Fall weiss ich aber nicht ob der erste Datenblock
(hier: Birne Helene) in der dritten Zeile endet, kann auch
erste Zeile oder 10 Zeile sein. Unter Umständen ist Birne
Helene also gar nicht da und es beginnt sofort mit Birne
Williams. Vielleicht also noch allgemeiner schreiben dass
erster Datenblock ausgesteuert werden kann.
das mußte mir nochmal anders verklickern
Ich, mein Code sieht in Spalte G
Sorte
Helene
Helene
Williams
Jonagold
Jonagold
Jonagold
Granny Smith
Granny Smith
Granny Smith
Granny Smith
und gruppiert das durch Leerzeilen so daß es dann so aussieht:
Sorte
Helene
Helene
Williams
Jonagold
Jonagold
Jonagold
usw.
Das Summenprodukt soll in der erzeugten Leerzeile geschrieben
werden. Mir würde es schon reichen wenn du das Summenprodukt
für das durchschnittliche Gewicht einer Obstsorte in der
Spalte D für die jeweilige Leerzeile einfügen könntest.
Eine Summe unter dem jeweiligen Datenblock in Spalte B wäre
super.
Sorry, steh auf’m Schlauch. Liegt u.a. an der Wortwahl „Summenprodukt“
Machen wir es einfach annerster. Lade bitte nochmal deine mappe hoch nachdem da mein Code lief und du dann in leerzeilen die Werte eingtragen hast die später dort das makro eintragen soll.
