Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Falscher Programmcode

Falscher Programmcode
mctapt
Liebe VBA Freunde,
ich habe folgenden Programmcode:
Private Sub CommandButton1_Click()
Dim i As Single
Dim n As Single
Dim anzahl As Single
For i = 1 To 5
Calculate
n = 1000
anzahl = 50
With Worksheets("DOC")
.Range(.Cells(54, 3), .Cells(n, 3)).Select
Selection.Name = "zeit"
.Range(.Cells(54, 4), .Cells(54 + n, 4 + anzahl)).Select
Selection.Name = "preis"
.Range(.Cells(1057, 4), .Cells(1057 + n, 4 + anzahl)).Select
Selection.Name = "delta"
.Range(.Cells(2062, 4), .Cells(2062 + n, 4 + anzahl)).Select
Selection.Name = "tatsachlier"
.Range(.Cells(3067, 4), .Cells(3067 + n, 4 + anzahl)).Select
Selection.Name = "benotigter"
.Range(.Cells(4072, 4), .Cells(4072 + n, 4 + anzahl)).Select
Selection.Name = "cashflow"
.Range(.Cells(5078, 4), .Cells(5078 + n, 4 + anzahl)).Select
Selection.Name = "fehler"
.Range(.Cells(6088, 4), .Cells(6088 + n, 4 + anzahl)).Select
Selection.Name = "vol"
.Cells(6080, anzahl + 4).Select
Selection.Name = "fehler1"
.Cells(6081, anzahl + 4).Select
Selection.Name = "max1"
.Cells(6082, anzahl + 4).Select
Selection.Name = "min1"
.Cells(6080, 4 + anzahl) = "=mean(fehler)"
.Cells(6081, 4 + anzahl) = "=max(fehler)"
.Cells(6082, 4 + anzahl) = "=min(fehler)"
.Cells(6083, 4 + anzahl) = "=stdev(stabw)"
.Cells(40, 7).Formula = "=mean(fehler1)"
.Cells(41, 7).Formula = "=mean(stabw)"
.Cells(42, 7).Formula = "=mean(min1)"
.Cells(43, 7).Formula = "=mean(max1)"
End With
Cells(40, 6) = "Mean Fehler"
Cells(41, 6) = "Mean Stabw"
Cells(42, 6) = "Mean Max Loss"
Cells(43, 6) = "Mean Max Gain"
Next i
End Sub

In meiner Berechnungen tritt ein Fehler auf und ich bin mir nicht ganz sicher wie ich den fixen muss. anstelle den durchschnittlichen Fehler, Stabw, Max Loss und Max Gain pro Spalte zu berechnen, berechne ich über den gesamten Datenbereich ( .Range(.Cells(5078, 4), .Cells(5078 + n, 4 + anzahl)) ) der fehler zieht sich dann durch das ganze sheet weiter. wie kann ich es machen, dass der durchschnitt pro spalte gerechnet wird und nicht insgesamt?
Beste Grüße
mctapt

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Falscher Programmcode
25.10.2009 23:06:52
fcs
Hallo mctapt,
evtl. so:
.Range(.Cells(5078, 4 + anzahl), .Cells(5078 + n, 4 + anzahl))
Gruß
Franz
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige