Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1448to1452
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

Summenbildung Range/Cells

Summenbildung Range/Cells
29.09.2015 11:46:32
Robin
Hallo Ihr lieben,
ich stelle mich gerade total an, die Summe aus einem Bereich richtig in einen Code zu packen... Kann mir bitte jemand bei der Korrektur dieser einen Code-Zeile helfen?
In die Variable lngSumme soll die Summe aus dem (dynamischen) Bereich T1:Tstrzeile geschrieben werden. Momentan wird mir der Fehler 1004 geliefert, da ich nicht weiß, wie genau ich diesen Bereich anspreche bzw. dessen Summe bilde.

lngSumme = Application.Sum(Sheets("Daten").Range(Cells(1, 20), Cells(strZeile, 20)))
Vielen Dank im Voraus,
Robin

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summenbildung Range/Cells
29.09.2015 12:31:14
JoWE
Hallo Robin,
so vllt.?
Sub AdditionWerte()
Dim sh As Worksheet
Dim myRng As Range
Set sh = ThisWorkbook.Sheets("Tabelle1")
Set myRng = sh.Range(sh.Cells(1, 20), _
sh.Cells(sh.Cells(sh.Rows.Count, 20).End(xlUp).Row, 20))
MsgBox Application.WorksheetFunction.Sum(myRng)
End Sub

Gruß
Jochen

AW: Summenbildung Range/Cells
29.09.2015 13:46:21
EtoPHG
Hallo Robin
Der Fehler wird wegen der unvollständigen Adressierung geworfen:
With Sheets("Daten")
lngSumme = Application.Sum(.Range(.Cells(1, 20), .Cells(CLng(strZeile), 20)))
End With
Gruess Hansueli
Anzeige

293 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige