Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
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
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
AW: Beispielmappe bitte
10.11.2017 11:35:34
Marcus
Die Mappe kann ich nicht Hochladen.... Die ist sehr groß und fertig programmiert...
Anzeige
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
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
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

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige