Summe(in Verbindung mit mehreren Variablen Tabb.)

Servus,
mal ne kurze Frage weil ichs einfach nicht gebacken bekomme. Ich will wie in unterem Bsp. die Summe aus mehreren Tabellenblättern bilden (siehe Zelle C2). Das Prob ist nur das das ganze Variabel gestaltet werden muss. Es werden immer wieder neue Tabellenblätter per Makro eingefügt, und ich brauche die Zusammenfassung bzw. Summierung eben dieser.
Was ich mir da ausgedacht habe mit Indirekt funktioniert leider nicht, habs auch schon mit Adresse probiert, usw.
Hat jemand bitte einen Hinweiss, Danke.

Zusammenfassung

	B	C
1	254258_030805	256041_240805
2	#WERT!	1.035,96

Formeln der Tabelle

B2 : =SUMME(INDIREKT($B$1&"!"&ADRESSE(ZEILE()+4;SPALTE()+5)):INDIREKT($C$1&"!"&ADRESSE(ZEILE()+4;SPALTE()+5)))
C2 : =SUMME('254258_030805:256041_240805'!G6)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
MfG Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Servus,
grundsätzlich gute Frage ;) da ich aber die Eingabe in der Inputbox mache (s.u.), wird das hoffentlich ohne Übermässigen Alkoholkonsum (tagsüber) nicht passieren :D .
Werds jetzt aber vermutlich im Makro selber lösen.

Option Explicit
Sub neuesblatt()
Dim strRenr As String, strDat As String
Dim strSAkt As String, strSNeu As String, strSDanach As String
Dim sh As Object
Dim i As Integer
    strSAkt = ActiveSheet.Name
    strRenr = Application.InputBox("Bitte Rechnungsnummer eingeben", "RENR")
    strDat = Application.InputBox("Bitte Datum eingeben (Muster: 170805)", "DATUM")
        If strRenr = "" Or strDat = "" Then Exit Sub
        If Not IsNumeric(strDat) Then Exit Sub
    strSNeu = strRenr & "_" & strDat
        For Each sh In Application.Worksheets
            If sh.Name <> "Zusammenfassung" Then
                If Right(sh.Name, InStr(1, sh.Name, "_") - 1) * 1 <= strDat * 1 Then
                    strSDanach = sh.Name
                Else
                    strSDanach = "Zusammenfassung"
                End If
            End If
        Next
            Sheets(strSAkt).Copy after:=Sheets(strSDanach)
                With ActiveSheet
                    .Name = strSNeu
                    .Range("A4:C" & Range("J1")).ClearContents
                    .Range("E4:E" & Range("J1")).ClearContents
                    .Range("H23").ClearContents
                End With
            i = Application.Worksheets.Count
              With Sheets("Zusammenfassung")
                If Sheets(1).Name <> "Zusammenfassung" Then
                    .Range("B1") = Sheets(1).Name
                Else
                    .Range("B1") = Sheets(2).Name
                End If
                    .Range("C1") = Sheets(i).Name
               End With
End Sub

MfG Peter

Beliebteste Forumthreads (12 Monate)

Summe(in Verbindung mit mehreren Variablen Tabb.)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

222 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summe(in Verbindung mit mehreren Variablen Tabb.)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

222 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread