Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Laufzeitfehler 1004

VBA Laufzeitfehler 1004
30.09.2020 20:44:12
Frischling123
Hallo liebe VBA-Profis,
ich bekomme immer wieder die Fehlermeldung 1004 und das bei der Zeile "Range("C172:C201").Select" etwas nicht stimmt.
Ich bin leider ein absoluter Frischling und weiß nicht genau weiter bei folgendem Code:
Option Explicit

Private Sub CommandButton1_Click()
Experiment
End Sub
Sub Experiment()
Experiment Makro
Tastenkombination: Strg+p
Sheets("Input").Select
Range("C172:C201").Select
Selection.Copy
Sheets("OutputExperimente").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True End Sub
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Laufzeitfehler 1004
30.09.2020 21:19:08
Daniel
HI
wenn sich das Marko "Experiment" ebenfalls im Modul des Tabellenblatts befindet und nicht in einem neu angelegtem Modul1, dann gilt die Regel, dass sich die Zellbezüge (Range, Cells, Columns, Rows) ohne Tabellenblattangabe davor nicht auf das aktive Tabellenblatt beziehen, sondern immer auf das Tabellenblatt des Moduls!
dh dein Range("C172:C201") bezieht sich nicht auf das Blatt "Input", sondern auf das Blatt, in welchem der Button liegt, und du versuchst auf ein einem nicht aktiven Blatt etwas zu selektieren.
mögliche Abhilfen wären:
a) verschiebe das Makro in ein allgemeines Modul (Modul1), dann beziehen sich Range und Cells ohne Blattangabe davor auf das aktive Blatt
b) verwende bewusst ActiveSheet
ActiveSheet.Range("C172:C201").Select
c) lass das Select des Recorders weg und:
- hänge den Befehl (Copy, Paste) direkt an das Cel oder Range
- referenziere vollständig, dh mit Angabe des Tabellenblatts:
Sub Experiment()
Experiment Makro
Tastenkombination: Strg+p
Sheets("Input").Range("C172:C201").Copy
Sheets("OutputExperimente").Range("A1").PasteSpecial Paste:=xlPasteAll
End Sub
Gruß Daniel
Anzeige
AW: VBA Laufzeitfehler 1004
30.09.2020 21:19:48
ralf_b
versuch mal
Sheets("Input").Select
Sheets("Input").Range("C172:C201").Select
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige