Hallo zusammne,
ich hoffe auf Eure Hilfe:
Diese prozedur ist in einem modul erstellt:
die Zellauswahl ist als public definiert:
Anbei auch als zip-Datei.
Wieso berechnet vba denn nicht die Summe?
VG
???
*BBCode eingefügt*
ich hoffe auf Eure Hilfe:
Diese prozedur ist in einem modul erstellt:
die Zellauswahl ist als public definiert:
Visual Basic-Quellcode
- Public Zellauswahl As String
- in einer userform:
- Private Sub btn_starte_Berechnung_Click()
- Zellauswahl = Mid(Me.ref_Zellauswahl, InStrRev(Me.ref_Zellauswahl, "!") + 1)'Zellauswahl aus einem refEdit -Steuerelemet
- SummeBilden
- Unload Me
- End Sub
- Private Sub UserForm_Initialize()
- Me.ref_Zellauswahl.SetFocus
- End Sub
- Sub SummeBilden()
- Dim zelle As Range, zellbereich As Range
- Dim summe As Double, zwisum As Double
- Dim blatt As Worksheet, meld As String
- For Each blatt In Worksheets
- 'Wertzuweisung an eine Objektvariable mit Set
- Set zellbereich = blatt.Range(Zellauswahl) 'Diese Formel markiert VBA
- zwisum = 0
- 'Für jedes Element in Gruppenelement
- For Each zelle In zellbereich
- zwisum = zwisum + zelle
- Next
- meld = meld & "summe von " & blatt.Name & ": " _
- & Format(zwisum, "#,##0.00 €") & vbCrLf
- summe = summe + zwisum
- Next
- meld = meld & "Gesamtsumme: " & Format(summe, "#,##0.00 €"
- MsgBox meld, vbInformation, "Ergebnis: "
- End Sub
Anbei auch als zip-Datei.
Wieso berechnet vba denn nicht die Summe?
VG
???
*BBCode eingefügt*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()