Hallo
ich habe folgende Progarammierung
Sub BereichSummieren()
Dim Bereich As Range
Set Bereich = Daten.Range(„E2:E50“)
Daten.Range(„H2“).Value = Application.WorksheetFunction.Sum(Bereich)
Daten.Range(„H2“).Value = „Summe“
End Sub
Fehler wird nicht angezegt.
Die Daten werden aber nicht in Zelle H2 kopiert.
vermutlich fehlt hier die Zeile wohin es kopiert werden soll.
Für die Unterstützung danke
Bernhard
Moin,
Daten.Range(„H2“).Value = Application.WorksheetFunction.Sum(Bereich)
Daten.Range(„H2“).Value = „Summe“
muss ich dazu noch was sagen?
Gruß
Ralf
Is ja auch kein Fehler drin, den VBA feststellen könnte
Richtig. Aber die Summe der Daten schon.
Nö. Die steht doch da: Daten.Range(„H2“).Value = …
In der Zelle steht am Ende des Makros das, was zuletzt reingeschrieben wurde 
Gruß,
Kannitverstan
Hallo,
erst einmal danke für di schnelle Anwort.
Wenn ich das Formular bediene, dann werden zwar die Daten in der Tabelle eingefügt, aber nicht in H2. In H2 soll das Gesamtergebnis eingetragen und nicht die Einzelergebnisse aus Tabelle nebenan. Ich habe eine Hilfskonstsruktion in H1 geschrieben, wo eigentlich „Gesamtsumme“ stehen soll. Die Gesamtsumme soll in H2 kopiert werden.
Gruß Bernhard
Die von mir im Code dargestellt, wird die Summe zwar aus e2:e50 summiert, aber nicht in H2 kopiert.
Doch, das wird sie. In der nächsten Anweisung beschreibst Du das Feld aus neue mit dem String „Summe“.
Gruß
Ralf