Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro per Button kopieren

Makro per Button kopieren
Tobias
Hallo,
das folgende Makro funktioniert über "Makro ausführen" aber nicht über den CommandButton. Kann mir jemand sagen, was am Makro bzw. Command Button geändert werden muss?
Ich möchte per click auf den Command Button das Textfeld in Tabelle 2, Feld I28 kopieren. Leider kommt da immer ein Laufzeitfehler 1004.
Hier das Makro: 
Private Sub CommandButton1_Click()
ActiveSheet.Shapes("Text Box 2").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("I28").Select
ActiveSheet.Paste
End Sub

Hier der Link zu meiner Test-Datei:
https://www.herber.de/bbs/user/68145.xls
Vielen Dank für Eure Hilfe im Voraus.
Tobias

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro per Button kopieren
21.02.2010 21:11:04
Hajo_Zi
Hallo Tobias,
verzichte auf Select.
Hinweise zu select usw.
ActiveSheet.Shapes("Text Box 2").Copy Sheets("Tabelle2").Range("I28")

AW: Makro per Button kopieren
21.02.2010 21:36:35
Tobias
Hallo Hajo,
vielen Dank für Deine schnelle Antwort. Ich habe Dein Makro probiert:
Private Sub CommandButton1_Click()
ActiveSheet.Shapes("Text Box 2").Copy Sheets("Tabelle2").Range("I28")
End Sub
Leider wurde das Textfeld nicht in Tabelle 2 kopiert, stattdessen kommt da ein Laufzeitfehler 450 "Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft"
Muss ich an den Eigenschaften des CommandButton auch was ändern?
Vielen Dank!
Gruß
Tobias
Anzeige
Dein Betreff ist irreführend,...
21.02.2010 21:45:07
Luc:-?
…Tobias!
Du willst kein Makro per Button kopieren, sondern offensichtlich per Klick auf einen Button ein Makro aufrufen und ausführen, das einen Bereich (Zelle) kopiert...!
Gruß Luc :-?
AW: Makro per Button kopieren
21.02.2010 21:45:26
Hajo_Zi
Hallo Tobias,
ich hatte es Live geschrieben.
ActiveSheet.Shapes("Text Box 2").Copy
Application.Goto reference:=Sheets("Tabelle2").Range("I28")
ActiveSheet.Paste
Gruß Hajo
AW: Makro per Button kopieren
21.02.2010 21:49:34
Tobias
Hallo Hajo,
vielen, vielen Dank für deine Hilfe!!!
Jetzt funkioniert alles super!!!
Ich versuche mit meinen bescheidenen VBA Kenntnissen das schon seit einer Woche zu lösen und du machst das in 10 Minuten. Unglaublich.
Vielen Dank nochmal.
Tobias
Anzeige
AW: Makro per Button kopieren
21.02.2010 21:49:12
Beverly
Hi Tobias, 
    ActiveSheet.Shapes("Text Box 2").Copy
Worksheets("Tabelle2").Range("I28").PasteSpecial Paste:=xlPasteAll


300 Forumthreads zu ähnlichen Themen

OptionButtons in Grp mittels Makro erstellen
adrian

Hi,
wie folgt wird ein OptionButton mittels Makro erstellt: Die Prozedur wird dann zusammen mit einer anderen im HauptSheet aufgerufen.
Nur weiß ich leider nicht wie ich mehrere OB, bzw. drei untereinander als Gruppe erstellen kann =(
Mehrere Prozeduren, für jeweils jeden OB ist ja...
16.12.2008 14:44:00
Thread-ID: 1033291
13 Beiträge
Anzeige
3 tabellen mit makro (auto_open) per vba starten
Yusuf

Hi,
ich habe folgendes Problem und komme nicht zu einer Loesung.
Ich oeffne von einem Arbeitsblatt aus drei weitere Arbeitsblaetter, welche Makros enthalten, die beim oeffnen der Arbeitsblaetter gestartet werden.
So sieht der nacheinander aufruf der Arbeitsblaetter aus.
Das Erge...
27.03.2009 12:56:55
Thread-ID: 1064587
5 Beiträge
Problem! Makro bzw. Function per Formel starten
Dennis

Hallo,
ich habe hier ein schier unlösbares Problem...
In A1 steht eine Zahl In B1: =WENN(A1>10;Makrostart();"")
Dann noch folgenden Code in einem Modul:
Function Makrostart() Call Makro End Function
Sub Makro() MsgBox "Test" End Sub
Wenn man dann eine Zahl >...
26.05.2009 09:45:44
Thread-ID: 1077282
7 Beiträge
Anzeige
2 Makros mit einer Schaltfläche ausführen?
Alex

Hi @ all!
Ich hab mal eine Frage:
Is es möglich zwei Makros, die sich auf unterschiedliche Blätter beziehen mit einer Schaltfläche auszuführen.
Das erste Makro filtert und kopiert Daten in das Tabellenblatt in welchem anschließend Zeilen eingefärbt werden sollen
Danke schon mal<...
16.07.2009 23:02:18
Thread-ID: 1089255
3 Beiträge
vba Code ausführen, bei Wechsel zu Excel
Karsten

Hallo und guten Abend,
ich wechsel von einer Internetseite mit der Tastenkombination Alt Tab zu Excel.
Bislang habe ich den vba Code einem Button zugewiesen und über diesen ausgeführt.
Nun soll dieser vba Code ausgeführt werden, wenn Excel den Focus erhält, wenn das entsprechende Ar...
14.08.2009 21:53:59
Thread-ID: 1096096
6 Beiträge
Makro mit Button aufrufen
Joni

Hi,
ich möchte mit
Private Sub Buchungen_einfügen_Click() Call Buchungen_einfügen End Sub das Makro Buchungen einfügen aufrufen (wenn auf den Button geklickt wird). Da kriege ich die Meldung Prozedur statt Variale erwartet.
Kann mir jemand helfen warum das nicht funktioniert?
D...
17.11.2009 13:36:53
Thread-ID: 1117967
6 Beiträge
Makro über anderes Makro starten
Chris

Hi zusammen!
In meiner Excel-Mappe habe ich mehrere Sheets (Sheet2 bis Sheet4), auf dem sich jeweils ein Button befindet. Per Knopfdruck importiert ein dem jeweiligen Button hinterlegtes Makro Quelldaten in das Sheet.
Je nach Verwendung meiner Excel-Mappe macht es Sinn, für jedes einzel...
20.11.2009 14:08:39
Thread-ID: 1118904
7 Beiträge
VBA-Code ausführen bei Änd. v. Pivotabellen | Herbers Excel-Forum
Al
Hallo,
ich möchte VBA-Code ausführen lassen, wenn in einer Pivotabelle ein Zeilen-,Spalten oder Seiten-Feld verändert/ausgewählt wird.
Worksheet_Calculate kann ich nicht nutzen, da der Code selbst im Worksheet Änderungen durchführt, die wieder Worksheet_Calculate aufrufen.
Worksheet_Ch...
15.01.2010 15:04:20
Thread-ID: 1130302
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
2
4
6
7
2
5
5
6
3
2
3
2
6
6
5
2
6
18
4
7
2
1
1
13