Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
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
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code ändern für Schaltfläche

Code ändern für Schaltfläche
Bommi
Hallo User !
Makro funktioniert mit Symbolleiste nur nicht mit Schaltfläche
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("WagenlisteNeu").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("Fpl.Archiv").Select
Rows("1:1").Select
Selection.Copy
Sheets("Fpl.Archiv").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=F
AW: Code ändern für Schaltfläche
29.10.2010 07:58:54
Hajo_Zi
Hallo,
verzichte auf select und Activate. Das ist zu 899,9% nicht notwendig. ungetestet. 
Option Explicit
Sub t()
Worksheets("Namenslos").PrintOut From:=1
Sheets("WagenlisteNeu").PrintOut From:=1
Sheets("Fpl.Archiv").Rows("1:1").Copy
Sheets("Fpl.Archiv").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
End Sub

AW: Code ändern funktioniert nicht
29.10.2010 09:29:34
Bommi
Hallo Hajo !
Funktioniert nicht.Habe in Eigenschaften TakeFocus schon auf False gesetzt, im Code schon Alles probiert.
Fügt die Zeile (mit den Formeln) nicht an die erste freie Zeile des Tabellenblattes ein.
kannst Du nochmal überprüfen ?
Vielen Dank für Deine Mühe !
Gruß Bommi
Anzeige
AW: Code ändern funktioniert nicht
29.10.2010 09:36:47
ransi
Hallo Bommi
Spring der Code denn überhaupt an ?
ransi
AW: Code ändern funktioniert nicht
29.10.2010 09:44:26
Bommi
Hallo Ransi !
Der Code funktioniert bis zu dem Punkt wo er die Erste Zeile an das Ende vom Tabellenblatt anfügen soll.
Dann kommt der Debagger.
Gruß Bommi
AW: Code ändern funktioniert nicht
29.10.2010 09:46:50
Hajo_Zi
Hallo,
ich habe Deine Datei jetzt nachgebaut, ein Nachbau sieht oft anders aus als das Original. Der Code ist völlig in Ordnung.
Gruß Hajo
AW: Code ändern funktioniert nicht
29.10.2010 10:00:30
Bommi
Hallo Hajo !
Funktioniert ja auch mit der Symbolleiste einwandfrei, nur mit der Schaltfläche nicht !
Fügt die Zeile nicht an die letze freie Zeile im Tabelleblatt an.
Gruß Bommi
Anzeige
AW: Code ändern funktioniert nicht
29.10.2010 10:05:20
Hajo_Zi
Hallo,
bei mir schon. Das hatest Du ja auch geschrieben. Warum sollte ich das mit einer Symbolleiste testen, das war nicht offen.
Gruß Hajo
AW: Code ändern funktioniert nicht
29.10.2010 10:19:48
Bommi
Hallo Hajo !
Solltest Du ja nicht testen. Funktioniert doch.Nur mit der Schaltfläche nicht. Bis zum Debagger.
Gruß Bommi
AW: Code ändern funktioniert nicht
29.10.2010 10:48:40
Hajo_Zi
Hallo,
ich kann mich nur wiederholen der Code geht bei einem Schalter und ein Nachbau sieht oft anders aus als das Original.
Gruß Hajo
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige