Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
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 benni921 vom 15.08.2019, 12:53 Options

Kennt sich jemand mit Makros aus?

hallo,

Kennt jemand ein Makro, mit dem man folgendes machen kann:

Wenn man auf einen Button drückt und die Zelle A5 ist markiert, soll der inhalt der Zellen B1 bis D6 in Tabelle 2 in die Zellen A1 bis C6 eingefügt werden.
Ist jedoch die Zelle A6 markiert, so wird der Inhalt der Zellen B10 bis D16 in Tabelle 2 in die Zellen A1 bis C6 eingefügt werden.

Antwort schreiben

Antwort 1 von Beverly vom 15.08.2019, 16:06 Options

Hi Benni,

erstelle einen CommandButton aus der Steuerelement-Toolbox, mach einen Doppelklick darauf und schreibe dann folgenden Code in das sich öffnende Codefenster

Private Sub CommandButton1_Click()
    If ActiveCell.Address = "$A$5" Then
        Range("B1:D6").Copy Worksheets("Tabelle2").Range("A1")
    ElseIf ActiveCell.Address = "$A$6" Then Range("B10:D16").Copy Worksheets("Tabelle2").Range("A1")
    End If
End Sub

Bis später,
Karin

Antwort 2 von benni921 vom 16.08.2019, 11:50 Options

hi karin,

vielen Dank!!!

mfg
Benni

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

Tipp einschicken

News einschicken