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 pogmohon vom 11.12.2019, 19:35 Options
makro ausführen bei klick auf zelle
Hallo,
ich habe in A:A fortlaufende Nummern
A6 08-001
A7 08-002
A8 08-003
etc.
Jetzt hätte ich gerne die Lösung das bei Klick auf die jeweilige Zelle, diese aktiviert wird und ein Makro ausgeführt wird
Das Makro ist recht simpel und hab ich schon zusammen gebastelt
ActiveCell.Select
Selection.Copy
Workbooks.Add Template:="TKV_Formular.xlt"
ActiveCell.Range("a1:c1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Ich bekomme das nur mit jeweils statischem Zellbezug auf die reihe
Hiiilfe
Und beste Grüße
ich habe in A:A fortlaufende Nummern
A6 08-001
A7 08-002
A8 08-003
etc.
Jetzt hätte ich gerne die Lösung das bei Klick auf die jeweilige Zelle, diese aktiviert wird und ein Makro ausgeführt wird
Das Makro ist recht simpel und hab ich schon zusammen gebastelt
ActiveCell.Select
Selection.Copy
Workbooks.Add Template:="TKV_Formular.xlt"
ActiveCell.Range("a1:c1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Ich bekomme das nur mit jeweils statischem Zellbezug auf die reihe
Hiiilfe
Und beste Grüße
Antwort 1 von pogmohon vom 11.12.2019, 19:58 Options
Holldrio,
ich bin schon ein wenig weiter gekommen.....
mit
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Select
Selection.Copy
Workbooks.Add Template:="TKV_Formular.xlt"
ActiveCell.Range("a1:c1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
klappts schon mal ganz gut.....
Aber eben bei allen Zellen, was eben nicht zielführend ist.....
WIe kann ich das jetzt begrenzen von B6:B255
Danke nochmal einstweilen....
Gruß
P
ich bin schon ein wenig weiter gekommen.....
mit
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Select
Selection.Copy
Workbooks.Add Template:="TKV_Formular.xlt"
ActiveCell.Range("a1:c1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
klappts schon mal ganz gut.....
Aber eben bei allen Zellen, was eben nicht zielführend ist.....
WIe kann ich das jetzt begrenzen von B6:B255
Danke nochmal einstweilen....
Gruß
P
Ähnliche Themen
Wie kann man ein Makro starten wenn ein bestimmter Wert in ein Zelle erreicht ist
RPB 03.02.2007 - 142 Hits - 18 Antworten
Makro
Pascal412 02.03.2007 - 96 Hits - 1 Antwort
wenn; dann - Makro ausführen
Meikel 30.04.2007 - 153 Hits - 2 Antworten
Kontrollkästchen
Rudi81 12.10.2007 - 133 Hits - 7 Antworten
Aktive Zelle einer Spalte soll Makro starten
fedjo 30.11.2007 - 118 Hits - 8 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
