Summenprodukt unter dynamischen Datenblock

Computer: Software & Programmierung Visual Basic
#1

Hallo Experten,

bin nochmal auf eure Unterstützung angewiesen.

Ausgangslage:

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:

  1. Nach jeweiliger Sorte Leerzeile unter Datenbereich einfügen
  2. In jeder Leerzelle frei definierte Summmenprodukte unter dem Datenbereich eingeben
  3. weiter mit (1)
  4. weiter mit (2)

Wer kann helfen ? Vielen Dank schon mal…

beste Grüsse

Klaus

#2

Hallo Reinhard,

habe Beispieldatei unter

http://www.file-upload.net/download-4057262/Test_Mak…

als Excel2010 MacroEnabled eingefügt.

Weitere Bemerkungen:

Nach Zeile 3 Leerzeile,

für Sorte Birne Helene steht hier dann

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

Klaus

#3

Sorry Reinhard,

ich hoffe du hast ein Erbarmen…
Kommt nicht wieder vor…

Gruss

Klaus

#4

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

Gruß
Reinhard

#5

Hallo Reinhard,

vielen Dank, Gruppierung funktioniert wunderbar…

  1. Anmerkung

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.

  1. 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.

Herzlichen Dank

Beste Grüsse

Klaus

#6

Hallo Klaus,

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 :frowning:

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.

Gruß
Reinhard

#7

Hallo Reinhard,

habe unter

http://www.file-upload.net/download-4060838/Datei_Re…

auf deinen Namen eingestellt.

  1. Datei ist jetzt originaler …
  2. Beschreibung unterhalb des Datenblocks

Vielleicht klappt`s ja…

Beste Grüsse

Klaus

#8

Hallo Reinhard,

wieder im Lande. Waere dir sehr verbunden wenn du mich bei meinem Problem unterstuetzen koenntest.

Was meinst du ?

Beste Gruesse

Klaus