Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
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
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 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
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
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
