---

Hallo

ich benötige den Syntax für die Summenfunktion mit Variablen.
Ausgewählt soll jeweils die erste Zeile(Ezeile) und die letzte Zeile(Lzeile) um so die Summe zu bilden.

Wie muss der Code hierfür aussehen?
Hier mal meun Versuch.

Code:

---

ActiveCell.FormulaR1C1 = "=SUMME(Ezeile & s:Lzeile & s)"

---

Code:

---

Sub Gesamtgewicht()
    Dim z, s As Integer
    Dim TextL As Integer
    Dim Lzeile As Integer
    Dim Gewicht As String
    z = 8 'Zeile
    s = 17 'Spalte (1=A, 2=B usw.)
    Ezeile = z
    Lzeile = Cells(Rows.Count, s).End(xlUp).Row
    Do Until z > Lzeile
        If Right(Cells(z, s).Value, 2) = "kg" Or Right(Cells(z, s).Value, 2) = "KG" Or Right(Cells(z, s).Value, 2) = "Kg" Or        Right(Cells(z, s).Value, 2) = "kG" Then
            TextL = Len(Cells(z, s).Value)
            Cells(z, s).Value = Left(Cells(z, s).Value, TextL - 2)
            Cells(z, s).Value = Cells(z, s).Value * 1
        End If
        z = z + 1
        Cells(z, s).NumberFormat = "0.00""kg"""   
    Loop
   
    Lzeile = Lzeile + 1
    Cells(Lzeile, s).Select
    ActiveCell.FormulaR1C1 = "=SUMME(Ezeile & s:Lzeile & s)"

End Sub

---

Danke schon mal für die Hilfe.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Du kannst dafür zwei verschiedene Ausdrücke verwenden:
Wenn Du nur den Wert eintragen möchtest:

Code:

---

ActiveCell.FormulaR1C1 = WorksheetFunction.Sum(Range(Cells(EZeile, S), Cells(LZeile, S)))

---

Für die Formel:

Code:

---

ActiveCell.FormulaR1C1 = "=SUM(R" & EZeile & "C" & S & ":R" & LZeile & "C" & S & ")"

---

R bezeichnet die Zeile
C die Spalte
setzt Du die Werte dahinter in [] sind das relative Bezüge zur aktuellen Zelle
ohne sind es direkte Zeilen/Spaltenangaben

Grüße
Klaus 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Klaus,

um es mal mit deine Worten zu sagen:

   

Danke funzt.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP