Thema Datum  Von Nutzer Rating
Antwort
26.01.2016 18:11:13 K.L
NotSolved
27.01.2016 00:42:22 Gast91686
NotSolved
27.01.2016 19:14:04 Gast83023
NotSolved
27.01.2016 19:19:29 Gast16532
NotSolved
Rot Werte summieren
 27.01.2016 19:33:27 Gast93741
NotSolved

Ansicht des Beitrags:
Von:
Gast93741		 Datum:
27.01.2016 19:33:27		 Views:
829		 Rating:
     
Antwort:
  Ja
Thema:
Werte summieren

Hallo!

ALso hier der Code dafür. Am Anfang die Rechnung für die letzte Zeile.

Danach wird überall auf dem Blatt geschaut, wo etwas farbig ist. Die Inhalte werden summiert und in z geschrieben. VG

 

Sub rechnung()
Dim ende
Dim cell
Dim summe


ende = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row

ActiveSheet.Cells(ende, 27) = ActiveSheet.Cells(ende, 8) + ActiveSheet.Cells(ende, 12)


For Each cell In ActiveSheet.UsedRange
    If cell.Interior.ColorIndex <> xlNone Then summe = summe + cell.Value
Next cell

ActiveSheet.Cells(ende, 26) = summe
End Sub

 

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
26.01.2016 18:11:13 K.L
NotSolved
27.01.2016 00:42:22 Gast91686
NotSolved
27.01.2016 19:14:04 Gast83023
NotSolved
27.01.2016 19:19:29 Gast16532
NotSolved
Rot Werte summieren
 27.01.2016 19:33:27 Gast93741
NotSolved