Summen bilden in leeren Zellen

Hallo zusammen,
ich verzweifel ein wenig bei einem kleinem Makro, welches Summen für mich in leeren Zeilen bildet.
Ich habe hier eine Beispieldatei:
https://www.herber.de/bbs/user/147270.xlsm
Ich habe folgendes Makro geschrieben:


Sub summen()
Columns("I:I").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Font.Bold = True
'Summenbildung
Application.SendKeys ("+") & ("%") & ("0")
End Sub

Mir wird der Fehler "Mit dieser Formel gibt es ein Problem. Sie möchten keine Formel eingeben?..." angezeigt. Wenn ich den wegklicke mit "ok" dann bildet das Makro mir die trotzdem die Summen, außer in der ersten freien Zelle (im Beispiel I14). Komischerweise taucht dieser Fehler nicht immer auf, manchmal bildet das Makro mir auch alle Summen normal (wie gewollt) ab.
(Sollte der Fehler beim ersten Durchlauf nicht auftauchen, dann fügt eine Zeile hinzu und schreibt eine beliebige Zahl rein und lasst das Makro nochmal laufen, dann taucht der Fehler auf jeden Fall auf.)
Hat jemand eine Idee woran das liegt, oder wie man das Makro abändern könnte, damit dieser Fehler nicht auftaucht?
Bin euch sehr dankbar für jede Hilfe
Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro3() Dim Bereich As Range For Each Bereich In Columns(9).SpecialCells(xlCellTypeConstants, 1).Areas If Bereich.Count > 1 Then Bereich(1).Offset(Bereich.Count).Formula = "=Sum(" & Bereich.Address & ")" End If Next End Sub

lass das mit dem Select mal weg.
du kannst die Befehle auch direkt an die Zellbeschreibung dranhängen, ohne sie vorher zu selektieren:


Columns("I:I").SpecialCells(xlCellTypeFormulas, 1).Font.Bold = True

statt hinterher die Formeln fett zu machen, kannst du das auch das Format beim Einfügen der Formeln direkt machen.
Da ich nicht selektiere, musst du dann die Zelle in gleicher Weise ansprechen:


If Bereich.Count > 1 Then
Bereich(1).Offset(Bereich.Count).Formula = "=Sum(" & Bereich.Address & ")"
Bereich(1).Offset(Bereich.Count).Font.Bold = True
End If

um Schreibarbeit zu sparen, wenn das öfters vorkommt, kann man, wenn man die selbe Zelle öfters benötigt, die WITH-Klammer verwenden. Dabei wird das das bei WITH beschriebene Objekt immer dann eingefügt, wenn der Ausdruck mit einem Punkt beginnt.


If Bereich.Count > 1 Then
With Bereich(1).Offset(Bereich.Count)
.Formula = "=Sum(" & Bereich.Address & ")"
.Font.Bold = True
end with
End If

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summen bilden in leeren Zellen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread