Spalte H über alle Sheets summieren
05.02.2020 08:54:07
Marc
ich habe die Aufgabe alle Werte der Spalten H über alle Arbeitsblätter aufzusummieren.
Ich bin ein ziemlicher VBA Anfänger und habe dafür folgenden Code programmiert:
Sub Aufheben()
Dim WsTabelle As Worksheet
Dim letztezahl As Integer
Dim Gewicht As Double
Dim i As Integer
Gewicht = 0
Sheets("02.01.2019").Select
For Each WsTabelle In Sheets
letztezahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Columns("H:H").Select
Selection.Replace What:=",", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
For i = 11 To letztezahl
Gewicht = Gewicht + ActiveSheet.Range("H" & i).Value
Next
Next WsTabelle
MsgBox "Das Gesamtgewicht beträgt: " & Gewicht & " KG!!!"
Sheets("Start").Select
End Sub
Da in der Spalte H noch Werte als Text erkannt wurden, wenn ich aber das Komma durch Komma ersetzt wurde die Werte plötzlich als Zahl summiert werden konnten, habe ich die Suchen/Ersetzen Geschichte eingebaut. Das ist also eher meines nicht könnens geschuldet...
Und ich beginne ab Zeile 11, da bis Zeile 11 nichts drin steht, was zusammen gezählt werden muss.
Nun kommt aber leider nicht das raus, was rauskommen soll...
Seht ihr einen Fehler?
Leider kann ich die Originaldatei nicht hochladen, da stehen zu viele Personenbezogene Daten drin...
Lieben Gruß
Marc