Anzeige
Archiv - Navigation
1648to1652
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

Methode

Methode
01.10.2018 13:21:57
Mr
Hi, ich weiß leider nicht weiter.
"Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden"
Danach werde ich zum Wort Sum in folgendem Abschnitt geschickt:
For i = 5 To Anzahln + 4
UeroAus.Cells(i, AnzahlG + 2) = UeroAus.Sum(Range(Cells(i, 2), Cells(i, AnzahlG + 1)))
UeroAus.Cells(i, AnzahlG + 3) = UeroAus.Cells(i, AnzahlG + 2) / Ab * 2 * Pi * RD / 1000
Next i
Kann irgendjemand schnelle Abhilfe leisten?
Beste Grüße
MrVSHK

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Methode
01.10.2018 13:29:59
Rudi
Hallo,
UeroAus.Cells(i, AnzahlG + 2) = worksheetfunction.Sum(UeroAus.Range(UeroAus.Cells(i, 2), UeroAus.Cells(i, AnzahlG + 1)))
Gruß
Rudi
AW: Methode
01.10.2018 13:37:06
Mr
Funktioniert!
AW: Methode
01.10.2018 13:30:47
Mullit
Hallo,
wenn, dann so:

For i = 5 To Anzahln + 4
UeroAus.Cells(i, AnzahlG + 2) = WorksheetFunction.Sum(Range(Cells(i, 2), Cells(i, AnzahlG + 1)))
UeroAus.Cells(i, AnzahlG + 3) = UeroAus.Cells(i, AnzahlG + 2) / Ab * 2 * Pi * RD / 1000
Next i


Gruß, Mullit
AW: Methode
01.10.2018 13:32:33
Daniel
hi
ich gehe mal davon aus, dass UeroAus eine Variable mit einem Tabellenblatt als Inhalt ist.
dann vielleicht so
UeroAus.Cells(i, AnzahlG + 2) = Worksheetfunction.Sum(Range(UeroAus.Cells(i, 2), UeroAus.Cells(i, AnzahlG + 1)))
oder etwas kürzer:
UeroAus.Cells(i, AnzahlG + 2) = Worksheetfunction.Sum(UeroAus.Cells(i, 2).Resize(1, AnzahlG))

wobei du dir die Schleife Sparen kannst, wenn du die Berechnung als Formel in die Zellen schreibst:
With UeroAus.Cells(5, AnzahlG + 2).Resize(Anzahln, 2)
.Columns(1).FormulaR1C1 = "=Sum(RC2:RC[-1])"
.Columns(2).FormulaR1C1 = "=RC[-1]/" & AB & "*2*" & Pi & "*" & RD & "/1000"
.Formula = .Value
end with
Gruß Daniel
Anzeige
AW: Methode
01.10.2018 13:37:32
Mr
Vielen Dank für die vielen schnellen Reaktionen!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige