Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Toolbox

Toolbox
06.10.2002 05:18:30
Muat
Hallo
Ich habe ein Makro aufgezeichnet welches drei spalten einer Tabelle hintereinander kopiert und in eine Druckmaske einfügt.

Wenn ich aber den Inhalt des Makros in eine Command_Click() einfüge bekomme ich beim markieren des Feldes auf der Druckmaske folgende Fehlermeldung

Laufzeitfehler '1004':
Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden.

Er kopiert die erste Spalte auf meinem Datenblatt und macht dann den Fehler bei der Fruckmaske.

Wenn ich das ganze als Makro laufen lasse, das heißt nicht über eine eigene Schaltfläche läuft es Tadellos.

Ich hoffe ich konnte es einigermßen verstänflich rüberbringen

Danke im vorraus

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

Betreff
Datum
Anwender
Anzeige
Re: Toolbox
06.10.2002 08:28:26
andre
Hallo Muat,
eventuell musst Du genauer definieren, woher und wohin die Daten sollen. Also nicht einfach Range(xxx), sondern worksheets("Tabelle1").Range... usw.
Ansonsten reicht auch für manche Aktionen activate statt select, oder man kann es ganz weglassen, z.B. worksheets("Tabelle1").Range("A1:B5").copy
gruss andre

Re: Toolbox
06.10.2002 10:49:41
Heinz Posch
es kommt auch auf den Ort an, von dem aus man so einen Code startet. Wenn Du schon im Tabellenblatt bist, dann reicht z.B.
Range("a1:c4").select
Von einer Form aus kommts drauf an was gerade aktiv ist, daher wie andre sagt: Tabelle.Range...

heinz

Anzeige
Re: Toolbox
06.10.2002 13:49:38
Ralf Sögel
Eigenschaft des Button: TakeFocusOnClick = False
Re: Toolbox
06.10.2002 18:00:36
Muat
erstmal Danke für die Vielen Antworten

@ Ralf: TakeFocusOnClick = False (war schon)
@ Heinz & Andre: Die Schaltfläche befindet sich auf dem Tabellenblatt. Ich schicke diesmal das Makro mit vielleicht hilfts ja dann.

01 Selection.AutoFilter Field:=1, Criteria1:="a"
02 Range("B3:B251").Select
03 Selection.Copy
04 Sheets("Druckmaske").Select
05 Range("B6").Select
06 ActiveSheet.Paste
07 Sheets("Anwesenheitsliste").Select
08 Range("C3:C251").Select
09 Application.CutCopyMode = False
10 Selection.Copy
11 Sheets("Druckmaske").Select
12 Range("C6").Select
13 ActiveSheet.Paste
14 Sheets("Anwesenheitsliste").Select
15 Range("E3:E251").Select
16 Application.CutCopyMode = False
17 Selection.Copy
18 Sheets("Druckmaske").Select
19 Range("E6").Select
20 ActiveSheet.Paste
21 Sheets("Anwesenheitsliste").Select
22 Range("A3").Select
23 Sheets("Druckmaske").Select
24 Range("A6").Select
25 ActiveWindow.SelectedSheets.PrintPreview

PS:Der Laufzeitfehler ist in Reihe 5.
Wenn ich reihe 4-6 lösche,
habe ich den selben Fehler in Reihe 12

Anzeige
Re: Toolbox
06.10.2002 18:31:22
Muat
erstmal Danke für die Vielen Antworten
@ Ralf: TakeFocusOnClick = False (war schon)
@ Heinz & Andre: Die Schaltfläche befindet sich auf dem Tabellenblatt. Ich schicke diesmal das Makro mit vielleicht hilfts ja dann.


01 Selection.AutoFilter Field:=1, Criteria1:="a"
02 Range("B3:B251").Select
03 Selection.Copy
04 Sheets("Druckmaske").Select
05 Range("B6").Select
06 ActiveSheet.Paste
07 Sheets("Anwesenheitsliste").Select
08 Range("C3:C251").Select
09 Application.CutCopyMode = False
10 Selection.Copy
11 Sheets("Druckmaske").Select
12 Range("C6").Select
13 ActiveSheet.Paste
14 Sheets("Anwesenheitsliste").Select
15 Range("E3:E251").Select
16 Application.CutCopyMode = False
17 Selection.Copy
18 Sheets("Druckmaske").Select
19 Range("E6").Select
20 ActiveSheet.Paste
21 Sheets("Anwesenheitsliste").Select
22 Range("A3").Select
23 Sheets("Druckmaske").Select
24 Range("A6").Select
25 ActiveWindow.SelectedSheets.PrintPreview


PS:Der Laufzeitfehler ist in Reihe 5.
Wenn ich reihe 4-6 lösche,
habe ich den selben Fehler in Reihe 12

Anzeige
was ist in 01 selectiert?
06.10.2002 20:12:59
andre
Hallo,
wo bist du denn am anfang, in zeile 01? was ist da selectiert?
((eventuell hilft worksheets))
keine lösung, aber tip:
und allgemein mehr activate statt select nehmen,
abkürzen...
z.B. worksheets("xxx").range("yyy").copy
usw., bei paste geht dein code.
andre

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige