online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon bokap1975 vom 30.08.2019, 09:56 Options

per Makro in Nächste freie Zeile kopieren

Hallo Exelfreunde,

ich habe zwei Tabellenblätter. In Tabelle1 habe ich etwas in den Feldern A6:A10 sowie B17, E17 und G17 stehen was ich gerne per CommandButton in die nächste frei Zeile in Tabelle2 kopiert hätte. Z.B. in Feld A20,B20,C20, E20, F20, G20 usw. und beim nächsten drücken dann eben in A21, B21 usw.

Ich hoffe das geht und Ihr könnt mir helfen.

Viele Grüße
boris


Antwort schreiben

Antwort 1 von DukeNT vom 31.08.2019, 09:35 Options

Hi boris,
erstelle auf Blatt1 ein CommandButton und kopiere folgenden Code da rein.

Private Sub CommandButton1_Click()
lz = Sheets(2).Range("A65536").End(xlUp).Row + 1
For a = 1 To 5
Sheets(2).Cells(lz, a) = Sheets(1).Cells(a + 5, 1)
Next a
Sheets(2).Cells(lz, 6) = Sheets(1).Cells(17, 2)
Sheets(2).Cells(lz, 7) = Sheets(1).Cells(17, 5)
Sheets(2).Cells(lz, 8) = Sheets(1).Cells(17, 7)
End Sub

Gruß Niels

Antwort 2 von bokap1975 vom 04.09.2019, 08:46 Options

Hi Nils,

Danke für Deine Hilfe, hat super funktioniert.

Viele Grüße
Boris

Ähnliche Themen

Makro automatisch aktualisieren
pc-makro  07.02.2007 - 191 Hits - 1 Antwort

Makro kopieren
hotelfirst  30.05.2007 - 85 Hits - 8 Antworten

Makro soll die richtige Zeile finden
querkopp  27.06.2007 - 144 Hits - 10 Antworten

Werte per Makro kopieren
m-o-m  22.10.2007 - 118 Hits -

Zeilen in andere Arbeitsblätter kopieren
Mondlicht  02.01.2008 - 26 Hits - 4 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Mon Jan 26 01:23:17 2026