Thema Datum  Von Nutzer Rating
Antwort
Rot Bereiche unterschiedlicher Größe bearbeiten, Summe
 05.08.2009 22:28:24 Sabine
NotSolved

Ansicht des Beitrags:
Von:
Sabine		 Datum:
05.08.2009 22:28:24		 Views:
1693		 Rating:
     
Antwort:
  Ja
Thema:
Bereiche unterschiedlicher Größe bearbeiten, Summe
Hallo,

ich habe eine Tabelle deren fortlaufende Zeilen zu verschieden großen Bereichen zusammengefasst sind. Die Bereiche sind durch Rahmenlinien Borders(xlEdgeBottom) voneinander getrennt. Nun sollen in Spalte B die Zeilen von
erste Zeile in Bereich 1 bis letzte Zeile in Bereich 2,
erste Zeile in Bereich 3 bis letzte Zeile in Bereich 4,
usw.
summiert und die Summen fortlaufend in eine Spalte weiter rechts geschrieben werden.

Außerdem soll in Spalte A die
letzte Zeile in Bereich 2 von der ersten Zeile in Bereich 1,
letzte Zeile in Bereich 4 von der ersten Zeile in Bereich 3,
usw.
abgezogen werden und die Differenz neben die Spalte mit den Summen geschrieben werden.

In der Spalte rechts davon wird das Produkt aus den Summen und Differenzen gebildet und anschließend über alle drei Ergebnisspalten der Mittelwert.

In welchem Bereich ich mit der Auswertung beginne, lege ich durch eine Startzelle fest. Den Anfang habe ich fertig, komme aber mit dem oben genannten nicht weiter. Vielleicht kann mir wieder einmal jemand hier im Forum helfen?

Sub Summe_Bereiche_Differenz()
Dim Startzelle As Range
Dim intZeile, intZeileQ As Integer
Dim intSpalte As Integer
On Error GoTo fehler
Set Startzelle = _
Application.InputBox("Markieren Sie die Startzelle", Type:=8)
intZeileQ = Startzelle.Row
intSpalte = Startzelle.Column
For intZeile = intZeileQ To Cells(Rows.Count, intSpalte).End(xlUp).Row
If Cells(intZeile, intSpalte).Borders(xlEdgeBottom).LineStyle = xlContinuous Then

‘Hier sollte der Code für das oben genannte stehen!

End If
Next intZeile
Exit Sub
fehler:
MsgBox "Sie haben keine Zelle gewählt!"
End Sub

Vielen Dank
Sabine

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
Rot Bereiche unterschiedlicher Größe bearbeiten, Summe
 05.08.2009 22:28:24 Sabine
NotSolved