Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
VBA: Summe zwischen 2 Zellwerten
22.09.2006 11:24:06
Norman
Hallo, bin neu hier und hab mal eine Frage zur Summenbildung mit VBA
Ich habe in einer Zelle "Start" stehen, in einer anderen "Ende". Wie bekomme ich in die Zelle wo Ende steht die Summe der Werte zwischen "Anfang" und "Ende". Die Zellen heissen nicht so, und sollen auch keinen bestimmten Namen bekommen.
Hab zur Zeit sowas ähnliches mit ner Gruppierung zwischen beiden:
With Worksheets("Tabelle1").Columns(1)
Set addr = .Find("Anfang", LookIn:=xlValues)
If Not addr Is Nothing Then
rgAnfang = addr.Row + 1
End If
Set addr = .Find("Ende", LookIn:=xlValues)
If Not addr Is Nothing Then
rgEnde = addr.Row - 1
End If
End With
Worksheets("Tabelle1").Rows(rgAnfang & ":" & rgEnde).Group
Worksheets("Tabelle1").Rows(rgAnfang & ":" & rgEnde).Hidden = True
Wie kann ich das irgendwie umschreiben, dass eine Summe erscheint?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Summe zwischen 2 Zellwerten
22.09.2006 11:57:34
AndrRo
Hallo Norman,
Frage 1: Steht in der Zelle nun "START" oder "ANFANG"?

Sub Test()
On Error GoTo fehler
Range(Worksheets("Tabelle1").Columns("A:H").Find("Ende", LookIn:=xlValues).Address) = Application.Sum(Range(Worksheets("Tabelle1").Columns("A:H").Find("Anfang", LookIn:=xlValues).Address, Worksheets("Tabelle1").Columns("A:H").Find("Ende", LookIn:=xlValues).Address))
Exit Sub
fehler:
MsgBox ("Anfang oder Ende nicht gefunden")
End Sub

gruss
Andreas
AW: VBA: Summe zwischen 2 Zellwerten
25.09.2006 11:54:21
Norman
Hallo AndRo,
schönen Dank für deine Hilfe.
Hab das jetzt mal so gemacht, aber warum kriege ich wenn ich diesen Code einpflege immer als Summe 2015 raus? Ich hab schon andere Formatierungen probiert, nichts geht richtig.
Wenn ich das CInt wegnehme steht #WERT da.

Private Sub CommandButton1_Click()
On Error GoTo fehler
Range(Columns(6).Find("Anfang", LookIn:=xlValues).Offset(0, 18).Address) = CInt(Application.Sum(Range(Worksheets("Tabelle1").Columns(6).Find("Anfang", LookIn:=xlValues).Offset(0, 16).Address), Worksheets("Tabelle1").Columns(6).Find("Ende", LookIn:=xlValues).Offset(0, 16).Address))
Exit Sub
fehler:
MsgBox ("Eine Zwischensumme konnte nicht gebildet werden!")
End Sub

Kennst du/ihr eine Abhilfe?
Anzeige
AW: VBA: Summe zwischen 2 Zellwerten
22.09.2006 12:15:54
AndrRo
über Deinen CODE:
With Worksheets("Tabelle1").Columns(1)
Set addr = .Find("Anfang", LookIn:=xlValues)
If Not addr Is Nothing Then
rgAnfang = addr.Row + 1
End If
Set addr = .Find("Ende", LookIn:=xlValues)
If Not addr Is Nothing Then
rgEnde = addr.Row - 1
End If
End With
Worksheets("Tabelle1").Rows(rgAnfang & ":" & rgEnde).Group
Worksheets("Tabelle1").Rows(rgAnfang & ":" & rgEnde).Hidden = True
'Neu
Cells(rgEnde+1,1)=Application.Sum(Range(Cells(rgAnfang,1),Cells(rgEnde,1)))
AW: VBA: Summe zwischen 2 Zellwerten
25.09.2006 11:55:51
Norman
Hallo AndRo,
schönen Dank für deine Hilfe.
Hab das jetzt mal so gemacht, aber warum kriege ich wenn ich diesen Code einpflege immer als Summe 2015 raus? Ich hab schon andere Formatierungen probiert, nichts geht richtig.
Wenn ich das CInt wegnehme steht #WERT da.

Private Sub CommandButton1_Click()
On Error GoTo fehler
Range(Columns(6).Find("Anfang", LookIn:=xlValues).Offset(0, 18).Address) = CInt(Application.Sum(Range(Worksheets("Tabelle1").Columns(6).Find("Anfang", LookIn:=xlValues).Offset(0, 16).Address), Worksheets("Tabelle1").Columns(6).Find("Ende", LookIn:=xlValues).Offset(0, 16).Address))
Exit Sub
fehler:
MsgBox ("Eine Zwischensumme konnte nicht gebildet werden!")
End Sub

Kennst du/ihr eine Abhilfe?
Anzeige
AW: VBA: Summe zwischen 2 Zellwerten
25.09.2006 12:33:17
Norman
Hallo AndRo,
schönen Dank für deine Hilfe.
Hab das jetzt mal so gemacht, aber warum kriege ich wenn ich diesen Code einpflege immer als Summe 2015 raus? Ich hab schon andere Formatierungen probiert, nichts geht richtig.
Wenn ich das CInt wegnehme steht #WERT da.

Private Sub CommandButton1_Click()
On Error GoTo fehler
Range(Columns(6).Find("Anfang", LookIn:=xlValues).Offset(0, 18).Address) = CInt(Application.Sum(Range(Worksheets("Tabelle1").Columns(6).Find("Anfang", LookIn:=xlValues).Offset(0, 16).Address), Worksheets("Tabelle1").Columns(6).Find("Ende", LookIn:=xlValues).Offset(0, 16).Address))
Exit Sub
fehler:
MsgBox ("Eine Zwischensumme konnte nicht gebildet werden!")
End Sub

Kennst du/ihr eine Abhilfe?
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige