Summenformel mit VBA

Larissa · 2008-05-09T15:29:00+00:00

Hallo, wieder stehe ich vor einem Problem: Ich übertrage per VBA eine Tabelle mit 4 Spalten auf ein neues Tabellenblatt und lösche dann alle Formeln. Jetzt möchte ich, dass unterhalb der 4. Spalte eine Formel mit der Summe von dieser Tabelle generiert wird. Danach wird wieder eine neue Tabelle darunter eingefügt, wo wieder die Formel mit der Summe unterhalb der 4. Spalte stehen sollte. Mit dem Makrorekorder sieht die Formel einfach so aus: ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)" Die Tabellen sind immer unterschiedlich lang. Wie kann das funktionieren? Vielen Dank für Eure Hilfe, Larissa

Hallo,
habe mal mit mehreren Tabellen getestet, die FindNext funktionierte nicht sauber warum weis ich auch nicht.
Wen er die nicht mag machen wir es eben so.


Sub SummeFormel()
Dim Zelle As Range, A As Long, Adresse As String
For A = 1 To Application.WorksheetFunction.CountIf(Columns("A:A"), 1)
If A = 1 Then
Set Zelle = Columns("A:A").Find(What:="1", After:=Range("A1"), LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
Adresse = Range(Zelle, Zelle.End(xlDown)).Offset(0, 4).Address
Zelle.End(xlDown).Offset(1, 4).Formula = "=SUM(" & Adresse & ")"
Else
Set Zelle = Columns("A:A").Find(What:="1", After:=Zelle, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
Adresse = Range(Zelle, Zelle.End(xlDown)).Offset(0, 4).Address
Zelle.End(xlDown).Offset(1, 4).Formula = "=SUM(" & Adresse & ")"
End If
Next A
End Sub

Gruß
Tino

Hallo,
hab es gefunden, man muss mit Range arbeiten damit FindNext Funktioniert.


Sub SummeFormel()
Dim Zelle As Range, A As Long, Adresse As String
For A = 1 To Application.WorksheetFunction.CountIf(Columns("A:A"), 1)
If A = 1 Then
Set Zelle = Range("A:A").Find(What:="1", After:=Range("A1"), LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
Adresse = Range(Zelle, Zelle.End(xlDown)).Offset(0, 4).Address
Zelle.End(xlDown).Offset(1, 4).Formula = "=SUM(" & Adresse & ")"
Else
Set Zelle = Range("A:A").FindNext(After:=Zelle)
Adresse = Range(Zelle, Zelle.End(xlDown)).Offset(0, 4).Address
Zelle.End(xlDown).Offset(1, 4).Formula = "=SUM(" & Adresse & ")"
End If
Next A
End Sub

Gruß
Tino

Forumthread: Summenformel mit VBA

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Summenformel mit VBA

Forumthread: Summenformel mit VBA

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread