Ich biette um Euer Hilfe.
Folgendes Makro habe ich hier in Forum von Hajo gefunden;
Sub addieren()
Dim zahl As Single
Dim a As Long
Dim x As Long
zahl = 0 ' Braucht nicht sein da mit Definition 0
a = 0 'das hier ist die zeile wo die Zahlen anfangen hier auch
x = Range("a65536").End(xlUp).Row ' Dies führt zu einem Fehler falls Zelle 65536 belegt
' Dim Letzte As Long
' If [a65536] = "" Then
' Letzte = [a65536].End(xlUp).Row
' Else
' Letzte = 65536
' End If
Do Until a > x
a = a + 1
If Cells(a, 1) "" Then ' wenn die Zelle nicht leer
zahl = zahl + Cells(a, 1) 'wir der Wert der Zelle dazu addiert
Else: Cells(a - 1, 2) = zahl ' sonst , d.h. die zelle ist leer wird de Wert in die
zahl = 0 ' Zelle geschrieben und zahl wieder auf 0 gesetzt
End If
Loop
End Sub
Seit 2 Stunden probiere ich den Code von Hajo zum verändern, leider ohne Erfolg.
Gesuchte Lösung:
In Spalte "F" sind Summen Bereiche in mehreren Blocken(ca 800). Zwieschen jeden Block befindet sich eine leere Zeile. In jeder leere Zeile (von Spalte "F") sollte sich eine Summen Formel bilden.
Wie könnte man das mit Hilfe VBA machen?
Diesen Code habe ich auch probiert aber als VBA Anfänger leider reichen meine Kentnisse noch nicht.
Sub summe()
Dim lC As Range
Sheets("Tabelle5").Select
Set lC = Cells(Rows.Count, 6).End(xlUp)
lC.Offset(6, 0).Formula = "=sum(F2:F" & lC.Row & ")"
End Sub
Für jede Hilfe bin ich Euch sehr dankbar
Gruß Daniel