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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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