Zellbereich in eine Varibale übergeben

Hallo liebes Forum,
ich habe vor einigen Wochen mein Problem hier gelöst bekommen. Danke nochmal an Werner.
Kann aber den alten Beitrag irgendwie nicht mehr editieren.
Hier mal der Code, so wie er bisher ausschaut.

Public Sub aaa()
Dim raBereich As Range, raZelle As Range
Dim loLetzteZeile As Long, i As Long, j As Long
Dim strZellbereich As String
loLetzteZeile = Cells(Rows.Count, 2).End(xlUp).Row
Set raBereich = Selection.Columns
Application.ScreenUpdating = False
For i = 13 To loLetzteZeile
For Each raZelle In raBereich
j = raZelle.Column
If strZellbereich = vbNullString Then
strZellbereich = Cells(i, j).Address
Else
strZellbereich = strZellbereich & ";" & Cells(i, j).Address
End If
Next raZelle
Cells(i, 1).FormulaLocal = "=SUMME(" & strZellbereich & ")"
strZellbereich = ""
Next i
Range(Cells(13, 1), Cells(loLetzteZeile, 1)).Value = Range(Cells(13, 1), Cells(loLetzteZeile, 1) _
_
_
).Value
Set raBereich = Nothing
Application.ScreenUpdating = True
End Sub

Nun möchte ich, anstatt die Summe mit diesem Teil des Codes:
Cells(i, 1).FormulaLocal = "=SUMME(" & strZellbereich & ")"
in die Zellen (i, 1) zu schreiben an eine Variable übergeben.
Mein Gedanke war die Variable: "Sum" vor der For-Schleife = 0 zu setzen und dann vor dem Next i mit Sum = Sum + aufzuaddieren.
Ich weiß jetzt allerdings nicht wie ich den Zellbereich dort hinein bekomme.
Ich hoffe ihr könnt mir helfen.
Beste Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub aaa() Dim raBereich As Range, raZelle As Range Dim loLetzteZeile As Long, i As Long, j As Long Dim strZellbereich As String loLetzteZeile = Cells(Rows.Count, 2).End(xlUp).Row Set raBereich = Selection.Columns Application.ScreenUpdating = False gesamtSumme = 0 For i = 13 To loLetzteZeile Zeilensumme = 0 For Each raZelle In raBereich if IsNumeric(raZelle.value) then Zeilensumme = Zeilensumme + raZelle.value end if Next raZelle gesamtsumme = gesamtsumme + zeilensumme 'hier kannst Du jetzt noch was immer du möchtest mit der Zeilensumme machen Next i 'hier kannst Du die Gesamtsumme verarbeiten Set raBereich = Nothing Application.ScreenUpdating = True End Sub

Sub aaa() Dim raBereich As Range, raZelle As Range Dim loLetzteZeile As Long, i As Long, j As Long Dim strZellbereich As String, loSumme As Long loLetzteZeile = Cells(Rows.Count, 2).End(xlUp).Row Set raBereich = Selection.Columns Application.ScreenUpdating = False For i = 13 To loLetzteZeile For Each raZelle In raBereich j = raZelle.Column If IsNumeric(Cells(i, j)) Then loSumme = loSumme + Cells(i, j) End If Next raZelle Next i 'hier hast du die Endsumme 'in der Variablen loSumme MsgBox loSumme Set raBereich = Nothing Application.ScreenUpdating = True End Sub

Public Sub aaa() Dim raBereich As Range, raZelle As Range Dim loLetzteZeile As Long, i As Long, j As Long Dim strZellbereich As String loLetzteZeile = Cells(Rows.Count, 2).End(xlUp).Row Set raBereich = Selection.Columns Application.ScreenUpdating = False For i = 13 To loLetzteZeile For Each raZelle In raBereich j = raZelle.Column If strZellbereich = vbNullString Then strZellbereich = Cells(i, j).Address Else strZellbereich = strZellbereich & ";" & Cells(i, j).Address End If Next raZelle Cells(i, 1).FormulaLocal = "=SUMME(" & strZellbereich & ")" strZellbereich = "" Next i Range(Cells(13, 1), Cells(loLetzteZeile, 1)).Value = Range(Cells(13, 1), Cells(loLetzteZeile, 1) _ _ ).Value Set raBereich = Nothing Application.ScreenUpdating = True End Sub

Option Explicit Public Sub aaa() Dim raBereich As Range, raZelle As Range Dim loZeiSumme As Long, loGesSumme As Long Dim i As Long, j As Long, boSumme As Boolean Set raBereich = Selection.Columns Application.ScreenUpdating = False loGesSumme = 0 For i = 13 To Cells(Rows.Count, 2).End(xlUp).Row loZeiSumme = 0 For Each raZelle In raBereich j = raZelle.Column If IsNumeric(Cells(i, j)) Then loZeiSumme = loZeiSumme + Cells(i, j) End If Next raZelle loGesSumme = loGesSumme + loZeiSumme Cells(i, 10) = loZeiSumme Next i For i = 13 To Cells(Rows.Count, 10).End(xlUp).Row If Not loGesSumme = 0 Then Cells(i, 10) = Cells(i, 10) / loGesSumme boSumme = True End If Next i If Not boSumme Then MsgBox "Keine Spalten ausgewählt?" End If Set raBereich = Nothing Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Zellbereich in eine Varibale übergeben

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellbereich in eine Varibale übergeben

28 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread