Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1228to1232
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summenformel setzen

Summenformel setzen
Kurt
Guten Abend,
ich weiß nicht ob man das kann, ich versuche es mal, die FRage zu stellen.
Ich habe eine Tabelle, siehe Anlage, in der Tabelle sind fette Unterstriche.
Unterhalb des Unterstriches soll die Summenformel eingesetzt werden aber
nach oben nur immer bis zur letzten Zeile unterhalb des Striches.
Die fetten Unterstriche fangen an ab Zeile 4, siehe hier ist ein dünner Unterstrich.
Die Tabelle kann wesentlich länger sein !
Habe mal Formel eingesetzt I11, I21 und I36 als Muster,
danke im Voraus für einen Tip.
https://www.herber.de/bbs/user/76699.xls
mfg Kurt P
AW: Summenformel setzen
20.09.2011 20:59:52
Josef

Hallo Kurt,
probiere mal.

Sub test()
  Dim lngRow As Long, lnglast As Long, lngStart As Long
  
  With ActiveSheet
    lnglast = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
    lngStart = 5
    For lngRow = 5 To lnglast
      If .Cells(lngRow, 9).Borders(xlEdgeTop).Weight = -4138 Then
        .Cells(lngRow, 9) = Application.Sum(.Range(.Cells(lngStart, 9), .Cells(lngRow - 1, 9)))
        'oder als Formel
        '.Cells(lngRow, 9).FormulaR1C1 = "=SUM(R[-" & lngRow - lngStart & "]C:R[-1]C)"
        lngStart = lngRow + 1
      End If
    Next
  End With
  
End Sub



« Gruß Sepp »

Anzeige
Guten Abend Sepp leider nur zumTeil
20.09.2011 21:21:03
Kurt
Guten Abend Sepp,
habe mal Makro eingefügt, ich brauch immer die Formel aber auch wenn die Tabelle
länger wird und nach Rechts, habe mal gelb makiert.
Danke !
https://www.herber.de/bbs/user/76700.xls
freundlichst kurt p
AW: Guten Abend Sepp leider nur zumTeil
20.09.2011 21:28:49
Josef

Hallo Kurt,
dann eben so.

Sub test()
  Dim lngRow As Long, lngLastRow As Long, lngStartRow As Long
  Dim lngStartCol As Long, lngLastCol As Long
  
  With ActiveSheet
    lngStartRow = 5 'erste Datenzeile
    lngStartCol = 9 'erste Datenspalte
    lngLastRow = Application.Max(lngStartRow, .UsedRange.SpecialCells(xlCellTypeLastCell).Row)
    lngLastCol = Application.Max(lngStartCol, .UsedRange.SpecialCells(xlCellTypeLastCell).Column)
    lngStartRow = 5
    For lngRow = lngStartRow To lngLastRow
      If .Cells(lngRow, 9).Borders(xlEdgeTop).Weight = -4138 Then
        .Range(.Cells(lngRow, lngStartCol), .Cells(lngRow, lngLastCol)).FormulaR1C1 = "=SUM(R[-" & lngRow - lngStartRow & "]C:R[-1]C)"
        lngStartRow = lngRow + 1
      End If
    Next
  End With
  
End Sub



« Gruß Sepp »

Anzeige
Grandios !!! Tausend Dank
20.09.2011 22:14:49
Kurt
Guten Abend Sepp,
super Klasse,
Danke.
Ich habe daneben noch andere Werte, jetzt werden die Formeln bis nach Rechts
soweit wie geht kopiert.
Kann man dies einschränken ?
Also Spalte 9-19 ?
Könnte man dann noch doppelt unterstreichen ?
Dann kann ich mir das händige formatieren sparen ?
mfg Kurt P
AW: Grandios !!! Tausend Dank
20.09.2011 22:22:42
Josef

Hallo Kurt,
klar geht das auch.

' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit


Sub test()
  Dim lngRow As Long, lngLastRow As Long, lngStartRow As Long
  Dim lngStartCol As Long, lngLastCol As Long
  
  With ActiveSheet
    lngStartRow = 5 'erste Datenzeile
    lngStartCol = 9 'erste Datenspalte
    lngLastRow = Application.Max(lngStartRow, .UsedRange.SpecialCells(xlCellTypeLastCell).Row)
    lngLastCol = 19 'Application.Max(lngStartCol, .UsedRange.SpecialCells(xlCellTypeLastCell).Column)
    lngStartRow = 5
    For lngRow = lngStartRow To lngLastRow
      If .Cells(lngRow, 9).Borders(xlEdgeTop).Weight = -4138 Then
        With .Range(.Cells(lngRow, lngStartCol), .Cells(lngRow, lngLastCol))
          .FormulaR1C1 = "=SUM(R[-" & lngRow - lngStartRow & "]C:R[-1]C)"
          .Borders(xlEdgeBottom).LineStyle = xlDouble
        End With
        lngStartRow = lngRow + 1
      End If
    Next
  End With
  
End Sub



« Gruß Sepp »

Anzeige
AW: Grandios !!! Tausend Dank
20.09.2011 23:28:29
Nepumuk
Servus Sepp,
für vorbildliche Variablendeklarationen gibt's ein Bienchen ins Muttiheft.
Userbild
Gruß
Nepumuk
Danke !!! -)
21.09.2011 07:19:44
Kurt
Guten Morgen Sepp,
tausend Dank, werde das nachher einsetzen und testen.
Ich denke aber das KLAPPT !!!
mfg kurt P
Guten Morgen, darf ich noch eine Nachfrage ?
21.09.2011 08:51:34
Kurt
Guten Morgen Sepp,
darf ich noch eine Nachfrage bzw. Erweiterung haben ?
In der Spalte 19 sollte die Quersumme gebildet werden, geht das auch ?
Anbei die Mustertabelle.
https://www.herber.de/bbs/user/76704.xls
mfg kurt p
Anzeige
AW: Guten Morgen, darf ich noch eine Nachfrage ?
21.09.2011 09:13:54
Reinhard
Hallo Kurt,
meinst du so:

Sub test()
Dim lngRow As Long, lngLastRow As Long, lngStartRow As Long
Dim lngStartCol As Long, lngLastCol As Long, intCharCount  As Integer
With ActiveSheet
lngStartRow = 5 'erste Datenzeile
lngStartCol = 9 'erste Datenspalte
lngLastRow = Application.Max(lngStartRow, .UsedRange.SpecialCells(xlCellTypeLastCell).Row)
lngLastCol = 19 'Application.Max(lngStartCol, .UsedRange.SpecialCells(xlCellTypeLastCell). _
Column)
For lngRow = lngStartRow To lngLastRow
If .Cells(lngRow, 9).Borders(xlEdgeTop).Weight = -4138 Then
With .Range(.Cells(lngRow, lngStartCol), .Cells(lngRow, lngLastCol))
.FormulaR1C1 = "=SUM(R[-" & lngRow - lngStartRow & "]C:R[-1]C)"
.Borders(xlEdgeBottom).LineStyle = xlDouble
End With
With .Cells(lngRow, lngLastCol + 1)
.Value = ""
For intCharCount = 1 To Len(.Offset(0, -1).Value)
.Value = .Value + CInt(Mid(.Offset(0, -1).Value, intCharCount, 1))
Next intCharCount
End With
lngStartRow = lngRow + 1
End If
Next
End With
End Sub

Gruß
Reinhard
Anzeige
Leider nicht
21.09.2011 09:28:31
Kurt
Guten Morgen Reinhard, es sollte die Zeile von Spalte I bis Spalte R in der Spalte S
die Summe gebildet werden,
habe mich wohl Falsch ausgedrückt,
mfg kurt p
AW: Guten Morgen, darf ich noch eine Nachfrage ?
21.09.2011 09:18:32
Rudi
Hallo,
sicher geht das auch.

Sub test()
Dim lngRow As Long, lngLastRow As Long, lngStartRow As Long
Dim lngStartCol As Long, lngLastCol As Long
With ActiveSheet
lngStartRow = 5 'erste Datenzeile
lngStartCol = 9 'erste Datenspalte
lngLastRow = Application.Max(lngStartRow, .UsedRange.SpecialCells(xlCellTypeLastCell).Row)
lngLastCol = 19 'Application.Max(lngStartCol, .UsedRange.SpecialCells(xlCellTypeLastCell). _
Column)
lngStartRow = 5
For lngRow = lngStartRow To lngLastRow
If .Cells(lngRow, 9).Borders(xlEdgeTop).Weight = -4138 Then
With .Range(.Cells(lngRow, lngStartCol), .Cells(lngRow, lngLastCol))
.FormulaR1C1 = "=SUM(R[-" & lngRow - lngStartRow & "]C:R[-1]C)"
.Borders(xlEdgeBottom).LineStyle = xlDouble
End With
lngStartRow = lngRow + 1
Else
.Cells(lngRow, 19).FormulaR1C1 = "=Sum(RC9:RC18)"
End If
Next
End With
End Sub

Gruß
Rudi
Anzeige
Danke auch an Reinhard -)
21.09.2011 09:33:03
Kurt
Hallo Rudi,
einfach nur perfekt, bin erstaunt was man so machen kann.
Danke an ALLE,
einen schönen Tag noch,
mfg kurt p
Habe gerade festgestellt
22.09.2011 16:24:26
Kurt
Hallo zusammen,
ich habe gerade festgestellt, die Summen in der Spalte 19 + 32(habe dazu genommen) ,
werden soweit reingesetzt über die letzte Summenzeile hinweg.
Die letzte Summenzelle ist in der Spalte I zu ermitteln oder für die Spalte 32 die letzte Summenzelle in
der Spalte V .

Sub SummenFormeln_setzen()
Dim lngRow As Long, lngLastRow As Long, lngStartRow As Long
Dim lngStartCol As Long, lngLastCol As Long
With ActiveSheet
lngStartRow = 5 'erste Datenzeile
lngStartCol = 9 'erste Datenspalte
lngLastRow = Application.Max(lngStartRow, .UsedRange.SpecialCells(xlCellTypeLastCell).Row)
lngLastCol = 19 'Application.Max(lngStartCol, .UsedRange.SpecialCells(xlCellTypeLastCell).  _
_
Column)
lngStartRow = 4
For lngRow = lngStartRow To lngLastRow
If .Cells(lngRow, 9).Borders(xlEdgeTop).Weight = -4138 Then
With .Range(.Cells(lngRow, lngStartCol), .Cells(lngRow, lngLastCol))
.FormulaR1C1 = "=SUM(R[-" & lngRow - lngStartRow & "]C:R[-1]C)"
.Borders(xlEdgeBottom).LineStyle = xlDouble
End With
lngStartRow = lngRow + 1
Else
'   .Cells(lngRow, 19).FormulaR1C1 = "=Sum(RC9:RC18)"           '"=SUM(RC[-10]:RC[-1])"
.Cells(lngRow, 19).FormulaR1C1 = "=SUM(RC[-10]:RC[-1])"
If ActiveSheet.Range("U4") = "" Then
Else
.Cells(lngRow, 32).FormulaR1C1 = "=SUM(RC[-10]:RC[-1])"
End If
End If
Next
End With
End Sub
mfg kurt P
Anzeige

167 Forumthreads zu ähnlichen Themen

Summenformel Zellbezüge markieren
Christian

Hi Leute,
heute möchte ich eine Frage stellen die mich schon eine Zeit lang beschäftigt, für die ich aber leider selber noch keine Antwort gefunden habe.
Ich habe ein Registerblatt in dem einige "Summen-Formeln" stehen, die auf Zellbeüge in anderen Registerblättern (alle in der selben A...
08.09.2008 08:38:00
Thread-ID: 1008042
6 Beiträge
Anzeige
Summenformel funktioniert nicht
Mathias

Hallo guten Abend,
ich habe folgendes Problem. Ich habe eine Stundenübersicht. In der Stundenübersicht habe ich wie ihr in der Formel seht im Format 00:00 Die Stunden zusammen gezählt. Wenn ich jetzt aber die Wochenstunden zusammenzählen möchte für Monatsabrechung kommt iergent ein wirres Z...
18.11.2008 23:06:14
Thread-ID: 1025814
7 Beiträge
Summenformel ändert sich beim Löschen
Manu

Hallo,
ich will von Zeile 10 die ganze Spalte aufsummieren. bis Zeile 9 sind die Zeilen gesperrt.
Meine Formel lautet: =Summe(A10:A65000)
Problem nun, wenn ich in diesem Bereich eine Zeile lösche wird aus 65000 - 64999. Gibts da was, wie man das verhindern kann und es bei 65000 ble...
06.01.2009 15:26:00
Thread-ID: 1037256
9 Beiträge
Anzeige
Makro mit Ordnerfunktion und Summenformel
joop

Hallo Liebe VBA Profis,
Ich hätte hier ein Excel Problem, welches wahrscheinlich auch schon öfter besprochen wurde, leider finde ich dazu nichts. Ich bin also auch für links super dankbar.!!!
Sachverhalt:
Gegeben ist ein Datensatz welcher durch eine Abteilungskennziffer in der erste...
10.06.2009 10:27:21
Thread-ID: 1080368
6 Beiträge
Dynamsiche Summenformel
wolfman

Hallo und einen schönen guten Abend!
Habe folgendes Problem:
Ich möchte in einer Zeile Zellen addieren, z.B. Summe(a10:a15). Dabei kenne ich den Namen der letzen Zelle (A15), die 1.Zelle (a10) soll errechnet werden durch eine Variable ( also hier 5 Spalten zurück)
Gibt es dafür ein...
05.10.2009 20:45:13
Thread-ID: 1107343
7 Beiträge
Summenformel auf VBA umschreiben
Martin

Hallo,
folgende Formel möchte ich gerne für VBA schreiben:
=SUMMENPRODUKT((Geschlecht=A2)*(Endzeit<B2))+1
So geht es mit VBA:
MsgBox [SumProduct((Geschlecht = A2) * (Endzeit MsgBox Evaluate("SumProduct((Geschlecht = A2) * (Endzeit ("Geschlecht" und "Endzeit" sind benannte...
07.10.2009 19:33:12
Thread-ID: 1107979
11 Beiträge
SUMMENFORMEL mit VBA einfügen
Peter

Guten Tag
Ich möchte mit VBA eine Summenformel einfügen.
Selektiert ist irgend eine Zelle in der Spalte H (z.B. H35).
Nun möchte ich in Zelle H35 eine Summenformel einfügen, die den Bereich von H2 bis H34 berücksichtigt.
Wenn H100 selektiert ist, soll die Summenformel H2 bis H99...
30.12.2009 10:14:36
Thread-ID: 1126356
6 Beiträge
bei Zeile einfügen per VBA Summenformel anpassen
Klaus

wie kann ich erreichen, dass eine Summenformel im Tabellenblatt z.B. Zelle A1: '=Summe(A2:A10)' nach dem einfügen einer Zeile nach der 10ten Zeile sich in '=Summe(A2:A11)' ändert!
Für den Fall, dass die Summe unter der Liste steht hab ich hier im Forum mal eine geniale Lösung gelesen:=SUMME(...
12.04.2002 17:43:41
Thread-ID: 112908
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
4
6
8
5
5
6
10
5
10
2
4
1
5
4
2
8
5
2
1
3
2
6
5
5