Supportnet / Forum / Tabellenkalkulation

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

hi boris :-)

wie gewuenscht :-)

gruss nighty

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, 12) = "Element " & zeile - 31
.Cells(zeile + 1, 11) = Application.WorksheetFunction.Sum(.Range("K32:K" & zeile))
.Cells(zeile + 1, 12) = "Gesamt"
End If
End With
End Sub

Du bist sooo gut.
Danke, läuft prima!!!

• Makro erstellen für Kommentar einfügen
• Brauche Tipps für einen individuellen VBA-Code