Thema Datum  Von Nutzer Rating
Antwort
29.03.2016 09:30:20 nikelwerner
NotSolved
Blau SUMMWENN über mehrere Tabellenblätter
 29.03.2016 14:15:14 steffesj
NotSolved
30.03.2016 08:03:58 Gast59909
NotSolved
30.03.2016 08:31:31 Gast50060
NotSolved
30.03.2016 09:25:11 steffesj
NotSolved

Ansicht des Beitrags:
Von:
steffesj		 Datum:
29.03.2016 14:15:14		 Views:
1017		 Rating:
     
Antwort:
  Ja
Thema:
SUMMWENN über mehrere Tabellenblätter

Hallo nikelwerner,

hier das müsste eigendlich das sein, was du gesucht hast.

Falls dir Fehler auffallen oder fragen hast einfach hier fragen :)

 

Wichtig ist, dass du zwischen allen Einträgen keine freie Zeile hast, bzw oben auch ganz oben anfängst, sonst musst du es bisschen überarbeiten

Sub summewenn()
    Dim zähler
    Dim anzahlSeiten
    Dim summe
    'deklaration
    zähler = 1
    summe = 0
    For anzahlSeiten = 1 To ActiveWorkbook.Worksheets.Count
        Worksheets(anzahlSeiten).Activate
        Do While Cells(zähler, 1) <> ""
            If (Cells(zähler, 1).Value = "Hausaufgaben") Then
            summe = summe + Cells(zähler, 2).Value
            Else
            End If
            zähler = zähler + 1
        Loop
            zähler = 1
    Next anzahlSeiten
    Worksheets(anzahlSeiten - 1).Activate
    Cells(1, 2).Value = 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
29.03.2016 09:30:20 nikelwerner
NotSolved
Blau SUMMWENN über mehrere Tabellenblätter
 29.03.2016 14:15:14 steffesj
NotSolved
30.03.2016 08:03:58 Gast59909
NotSolved
30.03.2016 08:31:31 Gast50060
NotSolved
30.03.2016 09:25:11 steffesj
NotSolved