Tabellennamen unbekannt

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Tabellennamen unbekannt
von: Silvio
Geschrieben am: 08.07.2002 - 18:15:18

Das erste Tabellenblatt (Gesamtübersicht) und das letzte Tabellenblatt (- leer -) ist mir vom Namen her bekannt.
Über eine Userform (im ersten Tabellenblatt) werden ständig neue Tabellenblätter eingefügt. Wobei dafür das versteckte, letzte Tabellenblatt (- leer - )als Kopiervorlage dient...

In jeden neuen Tabellenblatt werden jetzt in den Zellen M2:X2
Summen in Euro angezeigt.

Wie kann ich jetzt im ersten Tabellenblatt (Gesamtübersicht)
in der Zelle H4:S4 diese Werte summiert angezeigt bekommen!

Als Bsp. für bessere verständnis:
Zeige in H4 der ersten Tabelle diese Summe an:
- Summe aus allen Tabellenblättern (Zelle M2)
(außer aus erster und letzter Tabelle)
[Tabelle2!M2 + Tabelle3!M2... nur das ich die Namen nicht
kenne!)
in I4 der ersten Tabelle auch wieder
- Summe aus allen Tabellenblättern (Zelle N2)
(außer aus erster und letzter Tabelle)
usw. bis S4 (in der ersten Tabelle) die Summe aus Zellen X2!


nach oben   nach unten

Re: Tabellennamen unbekannt
von: Andreas
Geschrieben am: 08.07.2002 - 19:06:06

Hallo Silvio,

das sollte funktionieren:

Sub SummenFormel()
Dim ws As Worksheet
Dim strFormel$

For Each ws In Worksheets
    Select Case ws.Name
        Case "Gesamtübersicht", "- leer -":
        Case Else:
            strFormel = "+" & ws.Name & "!M2" & strFormel
    End Select
Next ws
If Len(strFormel) > 0 Then
    strFormel = "=" & Right(strFormel, Len(strFormel) - 1)
    Worksheets("Gesamtübersicht").Range("H4:S4").Formula = strFormel
End If
End Sub


Viel Spaß,
Andreas
nach oben   nach unten

1000-Dank Andreas für deine Hilfe =es funkt (o.T.)
von: Silvio
Geschrieben am: 08.07.2002 - 19:32:59


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Sicherheitsabfrage bei der Eingabe in eine TextBox"