Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Syntay: Summe mit variabler Zellenanzahl

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   Syntay: Summe mit variabler Zellenanzahl (608 mal gelesen)
moppesle
Ehrenmitglied V.I.P. h.c.
Konstrukteur


Sehen Sie sich das Profil von moppesle an!   Senden Sie eine Private Message an moppesle  Schreiben Sie einen Gästebucheintrag für moppesle

Beiträge: 3209
Registriert: 28.05.2009

CATIA V5 R19 SP9
WIN 7 64bit

erstellt am: 20. Apr. 2015 14:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

KlaK
Ehrenmitglied V.I.P. h.c.
Dipl. Ing. Vermessung, CAD- und Netz-Admin



Sehen Sie sich das Profil von KlaK an!   Senden Sie eine Private Message an KlaK  Schreiben Sie einen Gästebucheintrag für KlaK

Beiträge: 2162
Registriert: 02.05.2006

Office 2010
Visual Basic

erstellt am: 20. Apr. 2015 15:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für moppesle 10 Unities + Antwort hilfreich

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

moppesle
Ehrenmitglied V.I.P. h.c.
Konstrukteur


Sehen Sie sich das Profil von moppesle an!   Senden Sie eine Private Message an moppesle  Schreiben Sie einen Gästebucheintrag für moppesle

Beiträge: 3209
Registriert: 28.05.2009

CATIA V5 R19 SP9
WIN 7 64bit

erstellt am: 20. Apr. 2015 21:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2020 CAD.de | Impressum | Datenschutz