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 inspiron8100 vom 02.02.2020, 17:14 Options
Excel VBA: Zellinhalt kopieren & in markierte Zellen einfügen
Hallo,
ich habe zwei Tabellen-Blätter
1. Plan
2. Legende
Ich möchte aus dem Blatt "Legende" per Macro zBsp. Inhalt der Zelle A1 in das Blatt "Plan" an mehrere makierte Zellen einfügen!
Mit folgenden Code wird nur eine Zelle gefüllt. Ich möchte aber alle makierten (2,5 oder 10) ausfüllen.
Public Sub kopieren()
Sheets("Legende").Range("A1").Copy Destination:=Sheets("Plan").Range(ActiveCell.Address)
End Sub
ich habe zwei Tabellen-Blätter
1. Plan
2. Legende
Ich möchte aus dem Blatt "Legende" per Macro zBsp. Inhalt der Zelle A1 in das Blatt "Plan" an mehrere makierte Zellen einfügen!
Mit folgenden Code wird nur eine Zelle gefüllt. Ich möchte aber alle makierten (2,5 oder 10) ausfüllen.
Public Sub kopieren()
Sheets("Legende").Range("A1").Copy Destination:=Sheets("Plan").Range(ActiveCell.Address)
End Sub
Antwort 1 von nostalgiker6 vom 02.02.2020, 18:54 Options
ICH kann kein VBA - aber es müsste doch leicht möglich sein, eine Endlosschleife mit Abbruchkriterium drum herum zu legen (In Phantasiesprache: "While NOT RechteMaustaste .... Loop")
Antwort 2 von fedjo vom 03.02.2020, 10:36 Options
Hallo inspiron8100 ,
habe ActiveCell durch Selection ersetzt, damit werden alle ausgewählten Zellen (Plan) mit dem Inhalt A1 (Legende) ausgefüllt.
Gruß
fedjo
Public Sub kopieren()
Sheets("Legende").Range("A1").Copy Destination:=Sheets("Plan").Range(Selection.Address)
End Sub
habe ActiveCell durch Selection ersetzt, damit werden alle ausgewählten Zellen (Plan) mit dem Inhalt A1 (Legende) ausgefüllt.
Gruß
fedjo
Public Sub kopieren()
Sheets("Legende").Range("A1").Copy Destination:=Sheets("Plan").Range(Selection.Address)
End Sub
Antwort 3 von inspiron8100 vom 03.02.2020, 12:09 Options
Danke, genau so wollte ich es. Ich hab's noch für mich optimiert, jetzt ist alles super!
Public Sub kopieren()
Sheets("Legende").Range("A1").Copy Destination:=ActiveSheet.Range(Selection.Address)
End SubÄhnliche Themen
Excel Print Makro markierte Zellen
Ric 30.01.2007 - 205 Hits - 14 Antworten
Ich möchte eine Adresse welche untereinander steht durch kopieren nebeneinander in eine oder drei Zellen einfügen. Wie geht das?
Silberhummel 23.04.2007 - 128 Hits - 3 Antworten
Zellen kopieren und tiefer einfügen mit Makro
HILFE_Suchende 26.01.2008 - 146 Hits - 7 Antworten
mehre Excel Arbeitsblaetter in PowerPoint via VBA ansprechen
sammille 12.03.2008 - 103 Hits -
Schnellreferenz Excel VBA
Joshuan 23.05.2008 - 221 Hits - 3 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
