Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Summenbilden in MsgBox

Summenbilden in MsgBox
10.11.2017 10:50:31
Marcus
Hallo,
Ich bin auf der Suche nach einer Lösung für eine Summenbildung welche nach dem Drücken auf einen Button in einer Tabelle über eine MsgBox eingeblendet wird. Die Spalten in der die einzelnen Zahlen stehen sind vorlaufend von J3 bis Ende offen da ich nicht weiß wie viele Einträge letztlich entstehen werden. Sich ist nur das die Zahlen ab Spalte J3 beginnen.
Vielen Dank :)
Mfg Marcus
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summenbilden in MsgBox
10.11.2017 10:59:21
Werner
Hallo Marcus,
das sollte bei VBA gut aber eigentlich kein Problem sein.
Public Sub aaa()
Dim loLetzte As Long
With Worksheets("Tabelle1") 'anpassen
loLetzte = .Cells(.Rows.Count, 10).End(xlUp).Row
Set raBereich = .Range(.Cells(3, 10), .Cells(loLetzte, 10))
MsgBox WorksheetFunction.Sum(raBereich)
End With
End Sub
Gruß Werner
Anzeige
AW: Summenbilden in MsgBox
10.11.2017 11:05:39
Marcus
Hallo Werner,
vielen dank für eine Antwort aber irgendwas schon nicht zu stimmen:
Public Sub CommandButton1_Click()
Dim 1oLetzte As Long
With Worksheets("Tabelle2") 'anpassen
loLetzte = .Cells(.Rows.Count, 10).End(xlUp).row
Set raBereich = .Range(.Cells(3, 10), .Cells(loLetzte, 10))
MsgBox WorksheetFunction.Sum(raBereich)
End With
End Sub
VBA teilt mir immer einen Syntaxfehler mit.
Anzeige
Beispielmappe bitte
10.11.2017 11:17:52
Werner
Hallo Marcus,
bei mir nicht. Habe den Code von dir kopiert und in eingefügt. macht das was er soll. Hatte bei meinem Code allerdings vergessen raBereich zu deklarieren (daran liegt es aber nicht).
Private Sub CommandButton1_Click()
Dim loLetzte As Long, raBereich As Range
With Worksheets("Tabelle2") 'anpassen
loLetzte = .Cells(.Rows.Count, 10).End(xlUp).Row
Set raBereich = .Range(.Cells(3, 10), .Cells(loLetzte, 10))
MsgBox WorksheetFunction.Sum(raBereich)
End With
End Sub
Lad mal deine Mappe hoch.
Gruß Werner
Anzeige
AW: Beispielmappe bitte
10.11.2017 11:35:34
Marcus
Die Mappe kann ich nicht Hochladen.... Die ist sehr groß und fertig programmiert...
AW: Beispielmappe bitte
10.11.2017 11:39:51
Marcus
Hallo Werner,
jetzt geht es hatte nen Schreibfehler...
Super vielen Dank :)
Gerne u. Danke für die Rückmeldung. o.w.T.
10.11.2017 11:41:00
Werner
Anzeige
alle Beiträge lesen
10.11.2017 11:40:26
Werner
Hallo Marcus,
du solltest schon alle Beiträge lesen. Robert (Adlerauge) hat es bemerkt.
Du hast Dim 1oLetzte as Long (eine 1 am Anfang) richtig Dim loLetzte as Long (ein kleines L am Anfang).
Gruß Werner
funktioniert bei mir ohne Syntaxfehler ... owT
10.11.2017 11:21:55
Matthias
Dim 1oLetzte As Long - ist kein l sondern 1 oT
10.11.2017 11:26:07
robert
Anzeige
Adlerauge!! o.w.T.
10.11.2017 11:37:56
Werner
Ich hatte den Code von Werner kopiert ... owT
11.11.2017 18:20:28
Werner
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige