Das Archiv des Excel-Forums

"Summe = Summe + variable" geht bedingt

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: "Summe = Summe + variable" geht bedingt
von: Xico

Geschrieben am: 09.10.2003 17:08:18

Hallo,

ich habe eine Mappe X, in der mein Code nicht funktioniert ("Lauzeitfehler 13: variabeln unverträglich"). In einer jungfäulichen Beispielmappe geht er aber!

Hier der Code:


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Summery
Dim o, p, q As Integer
Summery = 0
For o = 4 To 13
For p = 5 To 16
For q = 2 To 4
Summery = Summery + Worksheets(q).Cells(o, p)
Next q
Cells(o, p) = Summery
Summery = 0
Next p
Next o
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub


und die jungfäuliche Mappe:

https://www.herber.de/bbs/user/1361.xls

Komischerweise geht aber der Code in meiner Mappe X, der ähnlich aufgebaut ist und so aussieht:


Private Sub Worksheet_Activate()
Dim Summen
Dim i, j As Integer
Summen = 0
For i = 3 To 14
For j = 3 To 53
Summen = Summen + Worksheets(j).Cells(38, i + 2)
Next j
Cells(65, i) = Summen / 2
Summen = 0
Next i
End Sub


Wer weiss evtl. bescheid?

Vorab schon mal Danke!
Xico
Bild


Betrifft: weiß nicht, aber...
von: heinz
Geschrieben am: 09.10.2003 17:21:04

...hier...

Dim o, p, q As Integer

ists glaub ich so, dass o und p variant
und nur q integer sind...


Bild


Betrifft: auch nicht
von: Xico
Geschrieben am: 09.10.2003 17:27:22

Hallo Heinz,

leider auch erfolgslos.

Danke dennoch!
Xico


Bild


Betrifft: AW: "Summe = Summe + variable" geht bedingt
von: Hans W. Hofmann
Geschrieben am: 09.10.2003 19:08:44

Hast Du auch 4 Tabellenblätter?
Mal ne andere Frage:
Warum braucht man dafür unbedingt VBA? Übungsbeispiel oder Ernstfall?
Und wenn VBA, warum dann keine Funktion sondern eine Prozedur?


Gruß HW


Bild


Betrifft: AW: "Summe = Summe + variable" geht bedingt
von: Xico
Geschrieben am: 09.10.2003 22:44:27

Hi HW,

habe über 50 Blätter, daher als vba einfacher als in jede Zelle eine Megaformel...

xico


Bild


Betrifft: AW: "Summe = Summe + variable" geht bedingt
von: Hans W. Hofmann
Geschrieben am: 10.10.2003 00:02:54

Was soll das für ne Megaformel sein, so wie ich das sehe berechnest Du
in Tabelle1!E4
=SUMME(Tabelle2:Tabelle4!E4)
Copy&Paste

Gruß HW


 Bild

Excel-Beispiele zum Thema " "Summe = Summe + variable" geht bedingt"

Bedingter Mittelwert download Spalten bedingt summieren und Zellen formatieren download
Jahreskalender und bedingte Formatierung download Neue UserForm bedingt nach ComboBox-Auswahl aufrufen download
Zeilen bedingt durch SpinButton verschieben download Bedingte Übergabe des Focus und Setzen der Schreibmarke im Dialog download
Bedingte Formatierung auslesen download Beim Öffnen der Arbeitsmappe bedingt Datum eintragen download
Über die bedingte Formatierung den Minimalwert markieren download Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern download
Blattnamen bedingt in ListBox einlesen und Blätter auswählen download Gültigkeitsliste bedingt aufklappen lassen download
Bedingte Formatierung in Abhängigkeit eines Zellkommentars download Markierung von Formeln über bedingte Formatierung download
Zeitabhängige Zellmarkierungen über bedingte Formatierung setzen download Tabellenvergleich über die bedingte Formatierung download
Wert eintragen, wenn Bedingte-Formatierung-Bedingung zutrifft download Daten sortieren und bedingt drucken download
Eine Reihe von Beispielen zum Feature "Bedingte Formatierung" download