du kannst eine Macroaufzeichnung starten, dann klicke mit rechts auf die Zelle, wähle kopieren, markiere die erste Zelle wo der neue Wert vor eingefügt werden soll. Wähle dann "kopierte Zellen einfügen" und nach "unten verschieben"

beende die Macroaufzeichnung, du kannst das Macro mal testweise ausführen und schauen obs so geht, ggfs kannst du einen Button einfügen und von diesem das Macro ausführen lassen (Ansicht > Symbolleisten > Steuerelementtoolbox einblenden)

hi all :-)

ein beispiel fuer eine schaltflaeche

der aufruf innerhalb der schaltflaeche koennte so lauten

Call Makroname

gruss nighty

Option Explicit
Sub Ranhaengen()
Dim zeile As Long
zeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
If zeile < 20 Then zeile = 20
If zeile = Rows.Count - 1 Then
MsgBox ("Das Zeilenende wurde erreicht,die Daten wurden nicht kopiert !")
Else
ActiveSheet.Cells(zeile, 2) = ""
ActiveSheet.Cells(zeile, 2) = ActiveSheet.Cells(4, 2)
ActiveSheet.Cells(zeile + 1, 2) = Application.WorksheetFunction.Sum(Range("B20:B" & zeile))
End If
End Sub

hi all :-)

noch ein wenig korrigiert :-))

gruss nighty

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

Hallo,

danke für die schnelle antwort. Hat allerdings nicht geklappt mit code da ich mich nicht gut genug auskenne wo der genau reinkommt und wie ich genau die schaltfläche dazu bringe den befehl auszuführen. Ich hab das jetzt mal wie folgt reinkopiert aber läuft nicht. Vielleicht könntet Ihr mir den (oder die) Fehler zeigen. Vielen, vielen, vielen dank.
grüße boris

Objekt Allgemein prozedur Ranhaengen

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

Private Sub CommandButton1_Click()
Call Ranhaengen
End Sub

hi boris :-)

eigentlich ist nichts falsch :-(

ist einzufuegen

alt+f11/einfuegen modul

commandbutten zuweisung ist auch ok

was passiert denn so :-))

wenn es excel 7 sein sollte bin ich ueberfragt,zuviele aenderungen und nicht abwaertskompatible

gruss nighty

hi nighty,

ich war so doof und habe versehentlich falsche Zellbezüge genannt. Kann ja dann nicht klappen. Hab das umgeändert und jetzt läufts.

Vielen Dank. Super von Dir!!!

grüße Boris