Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
136to140
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
136to140
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Select

Select
22.07.2002 13:12:48
Tobi
Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden.(Laufzeitfehler 1004)

Die obenstehende Meldung raubt mir den letzten Nerv, ich wollte mit einem Makro aus einer Arbeitsmappe u.a. Zeilen löschen, umkopieren und den Bezug entfernen.
Das Makro müsste eigentlich funktionieren, die Auswahl klappt aber anscheinend nicht. Hat jemand eine Idee hierfür?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Select
22.07.2002 13:15:46
Ralph P.
Poste mal den entsprechenden Code. Vielleicht kann man da ja was tun
Re: Select
22.07.2002 13:42:23
Tobi
Also das wäre der Code.

Private Sub CommandButton1_Click()
Sheets("Export to EP_ETT").Select
Range("B1:Q200").Select
Selection.Copy
Columns("A:A").Select
ActiveWindow.SmallScroll ToRight:=11
Columns("A:R").Select
ActiveWindow.ScrollColumn = 1
Range("A1").Select
Application.CutCopyMode = False
ActiveSheet.Unprotect
Range("B1:Q200").Select
Selection.Copy
Range("A1").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("B2").Select
ActiveWindow.LargeScroll ToRight:=1
ActiveWindow.ScrollColumn = 12
Columns("Q:R").Select
Selection.Delete Shift:=xlToLeft
Sheets("Blatt3").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Blatt2").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Blatt1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Blatt").Select
ActiveWindow.SelectedSheets.Delete
ChDir "E:\"
ActiveWorkbook.SaveAs Filename:="E:\Export EP_ETT.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

Anzeige
Re: Select
22.07.2002 13:42:30
Tobi
Also das wäre der Code.

Private Sub CommandButton1_Click()
Sheets("Export to EP_ETT").Select
Range("B1:Q200").Select
Selection.Copy
Columns("A:A").Select
ActiveWindow.SmallScroll ToRight:=11
Columns("A:R").Select
ActiveWindow.ScrollColumn = 1
Range("A1").Select
Application.CutCopyMode = False
ActiveSheet.Unprotect
Range("B1:Q200").Select
Selection.Copy
Range("A1").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("B2").Select
ActiveWindow.LargeScroll ToRight:=1
ActiveWindow.ScrollColumn = 12
Columns("Q:R").Select
Selection.Delete Shift:=xlToLeft
Sheets("Blatt3").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Blatt2").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Blatt1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Blatt").Select
ActiveWindow.SelectedSheets.Delete
ChDir "E:\"
ActiveWorkbook.SaveAs Filename:="E:\Export EP_ETT.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige