Zelleninhalt in nächste freie Zelle

Question

Ich brauche mal eure Hilfe, ich sags gleich, ich bin in Excel Blutiger
Anfänger. Wenn irgendetwas unklar ist sagt es mir Bitte. Ich versuche
es mal kurz und Präziese

Wie kann ich den Zelleninhalt von B16 - G16 in nächsten feien Zellen ab
B30 - B31 übertragen und so festschreiben das ich die Zellen B2 - G16
erneut füllen kann (dieses geschieht per Formel, einfache Adition der
Zellen B2 - B15, C2 - C15, ...)

Das ich das irgendwie per Schaltfläche machen muss ist mir klar, ich
habe nur nicht die geringste ahnung wie ich das Problem angehen
sollte.

Answer 1

und was ist wnn B30 und B31 belegt sind.

Gruß Hajo

Answer 2

Sorry, mein Fehler. Sollte heißen B30 bis G30.
Also nochmal, nun aber richtig:

Wie kann ich den Zelleninhalt von B16 - G16 in nächsten feien Zellen ab
B30 - G30 übertragen und so festschreiben das ich die Zellen B2 - G16
erneut füllen kann (dieses geschieht per Formel, einfache Adition der
Zellen B2 - B15, C2 - C15, ...)

Answer 3

also der erste Bereich ´geht von B:G und der Zielbereich geht vonn B:G, meine Frage ist nicght beantwortet, wenn es jetzt auchn nur eine Zelle ist.

Gruß hajo

Answer 4

@Hajo_Zi
B30:G30 sind die ersten leeren Zellen in die das ergebnis aus B16:G16
übertragen werden soll und stehen bleiben soll.

Die Zellen B2:G15 werden Täglich neu geschrieben und somit sind die
Ergebnisse von B15:G16 auch Täglich andere.

Wie also übertrage ich die Ergebnisse von B16:G16 in die nächsten
freien Zellen am B30:G30 ohne das die gelöscht werden wen ich
B2:G15 leere und sich somit logisch die Adition der Zellen B16:G16 auf
0 zurücksetzt.
Viel Text, aber ich hoffe nun habe ich es treffend beschrieben.

Answer 5

das geht nicht. Die Zelle B30:G30 sind belegt und wenn Du da was anderes einschreiben willst mußt Du den Inhalt überschreiben. Das willst Du aber nicht. also geht das nicht.

Gruß hajo

Answer 6

für Saplte B so, die anderen analog.
Range("B30") = Range("B30") & Range("B16")

Gruß hajo

Answer 7

Ich nehme mal an ich werde immernoch missverstanden. Ich
Vereinfache das mal:

B30 ist die erste leere Zelle in die das ergebnis aus B16
übertragen werden soll und stehen bleiben soll.

Die Zellen B2:B15 werden Täglich neu geschrieben und somit ist das
Ergebniss von B16 auch Täglich anders.

Wie also übertrage ich das Ergebniss von B16 in die nächsten
freien Zellen ab B30 ohne das die gelöscht wird wen ich
B2:B15 leere und sich somit logisch die Adition der Zelle B6 auf
0 zurücksetzt.

Gleiches natürlich für C, D, E... aber das ist ja nur eine
Formelanpassung.

Range("B30") = Range("B30") & Range("B16")
macht gar nichts außer mir #NAME? anzuzeigen. Ichhatte das mal als
Formel in B30 gesetzt.

Answer 8

Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
If LoLetzte < 30 Then LoLetzte = 30
Cells(LoLetzte, 2) = Range("B16")

Gruß hajo

Answer 9

Moin,

Meinst Du so in etwa, wie in dieser BeispielMappe?

Cu
TheBlackBird ®

Answer 10

@TheBlackBird
Perfekt. Danke.