"Summe = Summe + variable" geht bedingt

• "Summe = Summe + variable" geht bedingt von Xico vom 09.10.2003 17:08:18
  • weiß nicht, aber... - von heinz am 09.10.2003 17:21:04
    • auch nicht - von Xico am 09.10.2003 17:27:22
  • AW: "Summe = Summe + variable" geht bedingt - von Hans W. Hofmann am 09.10.2003 19:08:44
    • AW: "Summe = Summe + variable" geht bedingt - von Xico am 09.10.2003 22:44:27
      • AW: "Summe = Summe + variable" geht bedingt - von Hans W. Hofmann am 10.10.2003 00:02:54

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


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...




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

Hallo Heinz,

leider auch erfolgslos.

Danke dennoch!
Xico




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




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




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

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

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