Hallo zusammen.

Gestern hat mir nighty dieses wunderbare Makro erstellt. Funktioniert gut. Es geht darum, dass das ergebnis aus einem Feld in eine Ergebnisliste eingetragen wird und automatisch die Summe gebildet wird. Es wird das Ergebnis aus Feld k26 entnommen und in K32 überschrieben, dann in K33 usw - je nachdem wie oft man auf ein Befehlsbutton klickt.

Nun wäre es unheimlich hilfreich das in der nächsten Spalte in der Ergebnisliste als L32 das wort Element1 (fortlaufen 2,3,4) stehen würde wenn ein ergebnis übertragen wird und hinter dem Summenfeld das Wort Gesamt stehen würde.

Könnte man folgendes Makro so abändern. Hilfe wäre super.


Option Explicit
Sub Ranhaengen()
Dim zeile As Long
With ThisWorkbook.ActiveSheet
zeile = .Cells(.Rows.Count, 11).End(xlUp).Row
If zeile < 32 Then zeile = 32
If zeile = .Rows.Count - 1 Then
MsgBox ("Das Zeilenende wurde erreicht,die Daten wurden nicht kopiert !")
Else
.Cells(zeile, 11) = .Cells(26, 11)
.Cells(zeile + 1, 11) = Application.WorksheetFunction.Sum(.Range("K32:K" & zeile))
End If
End With
End Sub


Private Sub CommandButton1_Click()
Call Ranhaengen
End Sub


Viele Grüße
Boris