Best. Werte per VBA summieren???

Hallo liebes Forum!
Habe heute eine knifflige Aufgabe, die ich ohne Eure Hilfe wohl nicht lösen kann, also folgendes:
Ich habe eine Excelmappe mit mehreren sheet (Die Anzahl varriert).
Im Bereich A9: A200 stehen Kontonummern. Ich bin auf der Such nach einer VBA-Lösung die folgendes macht:
Es erscheint eine Dialogbox wo ich gefragt werde welche sheets summiert werden sollen. Dort kann ich dann die jeweiligen zu summierenden sheet-namen eingeben/ bzw. in einer Auswahlliste anklicken.
Danach sucht das Makro in den angegebenen sheets in der Spalte A nach der Kontonummer 10000 und summiert den dazugehörigen Wert aus der Spalte E. (Z.b. Kontonummer 10000 steht in der Zelle A100, dann steht der dazugehörige Wert in der Zelle E100).
Das Ergebnis der Summierung wird mir dann in einem neuem Fenster angezeigt.
Wäre echt schön wenn mir da jemand helfen könnte.
Gruß
ralle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SummierenÜberMehrereBlätter() Dim wb As String, b As Byte, c As Byte, d As Byte, strBlatt As String, strBlatt1 As String, wert As Double For b = 1 To Worksheets.Count strBlatt = strBlatt & Worksheets(b).Name & ", " Next strBlatt = "Zur Auswahl stehen: " & Left(strBlatt, Len(strBlatt) - 2) On Error GoTo errorhandler Do d = MsgBox("Ein Blatt hinzufügen?", 4) If d = 6 Then wb = Application.InputBox("Welches Blatt soll berücksichtigt werden?" & vbLf & strBlatt & strBlatt1, "Auswahl") End If For c = 9 To 200 If Sheets(wb).Range("A" & c) = 10000 Then wert = wert + Sheets(wb).Range("E" & c) Next strBlatt1 = strBlatt1 & vbLf & "gewählt: " & wb & " Zwischensumme: " & wert Loop While d = 6 MsgBox "Die Gesamtsumme beträgt: " & wert Exit Sub errorhandler: MsgBox "Fehler bei der Eingabe" End Sub

Hallo ralle,
. . . Nach meiner Rechnung müssten dort jedoch 15.503,71 rauskommen
Nach meiner auch :-))
Des Rätsels Lösung: die Zeile End if muss zwei Zeilen weiter, es sähe dann so aus:


Sub Test()
Dim wb As String, b As Byte, c As Byte, d As Byte, strBlatt As String, strBlatt1 As String, wert As Double
For b = 1 To Worksheets.Count
strBlatt = strBlatt & Worksheets(b).Name & ", "
Next
strBlatt = "Zur Auswahl stehen: " & Left(strBlatt, Len(strBlatt) - 2)
On Error GoTo errorhandler
Do
d = MsgBox("Ein Blatt hinzufügen?", 4)
If d = 6 Then
wb = Application.InputBox("Welches Blatt soll berücksichtigt werden?" & vbLf & strBlatt & strBlatt1, "Auswahl")
For c = 9 To 200
If Sheets(wb).Range("A" & c) = 10000 Then wert = wert + Sheets(wb).Range("E" & c)
Next
End If
strBlatt1 = strBlatt1 & vbLf & "gewählt: " & wb & " Zwischensumme: " & wert
Loop While d = 6
MsgBox "Die Gesamtsumme beträgt: " & wert
Exit Sub
errorhandler:
MsgBox "Fehler bei der Eingabe"
End Sub

Ein Posting vorher schreibe ich über die Mühsal des Programmierens und nun beweise ich es auch noch; das wäre in der Tat nicht nötig gewesen.
Gegen berechtigte Kritik ist nichts einzuwenden, sonst kommt niemand vorwärts.
Gruß Roland Hochhäuser

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Best. Werte per VBA summieren???

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread