Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1784to1788
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
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

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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige