Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
856to860
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
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheet.Range.Select --> Fehler 1004

Worksheet.Range.Select --> Fehler 1004
21.03.2007 13:01:58
MarkusP123
Hi!
Ich habe mit folgendem Codestück ein Problem, dass ich einfach nicht gelöst bekomme und zwar schon zig Varianten probiert habe, aber keine davon gepasst hat.
Der Code soll einfach in der gleichen Arbeitsmappe aber auf einem anderen Arbeitsblatt eine Zelle auswählen.
Was passt an folgendem Code nicht? (dieser steht in Tabelle 2)

Private Sub Worksheet_Calculate()
Worksheets("Tabelle 1").Cells(3, 5).Select
SendKeys ("^%{F9}")
End Sub
Ich bekomme immer die Fehlermeldung 1004: Select-Methode ds Range-Objekts konnte nicht ausgeführt werden.
Oder gibt es eine ganz andere Möglichkeit das Arbeitsblatt vollständig neu berechnen zu lassen?
Vielen Dank für eure Hilfe!

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

Betreff
Datum
Anwender
Anzeige
AW: Worksheet.Range.Select --> Fehler 1004
21.03.2007 13:04:00
Hans
Hallo Markus,
bevor Du die Zelle auswählst, musst Du in das Blatt:
Worksheets("Tabelle1").Select
Oder verwende die Application.GoTo-Methode.
Gruss hans
Danke!
21.03.2007 13:07:53
MarkusP123
Schau einer an, das funktioniert perfekt!
Diese Website erleichtert das Arbeiten echt enorm! Vielen Dank!
AW: Worksheet.Range.Select --> Fehler 1004
21.03.2007 13:05:37
Hoffi
Hallo,
heißt Deine Tabelle wirklich Tabelle 1? oder vielleicht Tabelle1 (ohne Leerzeichen)?
hier kann das Leerzeichen zu Problemen führen.
Alternativ kannst Du auch Sheets(1) benutzen (1) steht für den Index der Tabelle.
Grüße
Hoffi
Nachtrage: Funktioniert immer noch nicht
21.03.2007 13:46:48
MarkusP123
Hallo zusammen,
leider funktioniert es immer noch nicht. Wenn ich das jetzt im eigentlichen Projekt versuche habe ich folgendes Problem, ich weiß zwar woran es jetzt liegt aber ich kann es nicht lösen:
Es sind zwei VBA-Projekte, nenen wir sie A und B. In A steht ein Verweis auf B (davor war es umgekehrt (habs umgestellt weil ich dachte das könnte vielleicht helfen))
Momentan arbeite ich in A.
Folgender Code funktioniert dort gar nicht:

Worksheets("Summary").Select
Worksheets("Summary").Cells(1, 1).Select
Ich hab auch herausgefunden warum:
Wenn ich schreibe:
MsgBox worksheets(1).Name
und dann worksheets(2) und so weiter
erhalte die Namen aller Arbeitsblätter von Projekte B, aber auf die Arbeitsblätter von Projekt A kann ich nicht zugreifen.
Weiß jemand, wie ich das machen kann?
Ich hoffe meine Beschreibung ist einigermaßen verständlich...
Anzeige
Nachtrage: Funktioniert immer noch nicht
21.03.2007 13:47:17
MarkusP123
Hallo zusammen,
leider funktioniert es immer noch nicht. Wenn ich das jetzt im eigentlichen Projekt versuche habe ich folgendes Problem, ich weiß zwar woran es jetzt liegt aber ich kann es nicht lösen:
Es sind zwei VBA-Projekte, nenen wir sie A und B. In A steht ein Verweis auf B (davor war es umgekehrt (habs umgestellt weil ich dachte das könnte vielleicht helfen))
Momentan arbeite ich in A.
Folgender Code funktioniert dort gar nicht:

Worksheets("Summary").Select
Worksheets("Summary").Cells(1, 1).Select
Ich hab auch herausgefunden warum:
Wenn ich schreibe:
MsgBox worksheets(1).Name
und dann worksheets(2) und so weiter
erhalte die Namen aller Arbeitsblätter von Projekte B, aber auf die Arbeitsblätter von Projekt A kann ich nicht zugreifen.
Weiß jemand, wie ich das machen kann?
Ich hoffe meine Beschreibung ist einigermaßen verständlich...
Anzeige
AW: Nachtrage: Funktioniert immer noch nicht
21.03.2007 13:55:00
Hans
Hallo Markus,
eine saubere Referenzierung ist das A und O.
Wenn Du in verschiedenen Arbeitsmappen arbeitest, musst Du das schön auseinanderhalten. Beispiel für eine saubere Referenzierung:
Dim wksA as Worksheet, wksB as Worksheet
Set wksA = Workbooks("Test1.xls").Worksheets("Eingang")
Set wksB = Workbooks("Test2.xls").Worksheets("Ausgang")
wksA.Range("A1:F10").Copy wksB.Range("F12")
Das Wechseln von Arbeitsmappe zu Arbeitsmappe bzw. von Blatt zu Blatt solltest Du Dir ersparen. Wenn es denn unumgänlich ist - was eigentlich so gut wie nie vorkommt - musst Du vor dem Blattselektieren die Arbeitsmappe aktivieren:
Workbooks("Test1.xls").Activate
Worksheets("Eingang").Select
Range("A1").Select
oder eben Application.GoTo verwenden.
Gruss hans
Anzeige

22 Forumthreads zu ähnlichen Themen

ActiveCell.Copy Sheets("tabelle1").Range("A20")
Karsten

Hallo...
kann mir jemand u.st. Code so ändern, dass nicht nur die aktive Zelle, sondern ein markierter Bereich nach A20 kopiert wird?
Geht es, statt die Zellen ab Zeile 20 zu überschreiben, den kopierten Bereich einzufügen bzw. ab Zeile 20 erst mal die nötige Anzahl Zeilen einzufügen?
15.09.2010 21:10:06
Thread-ID: 1177926
6 Beiträge
Anzeige
Active Sheet in neue Datei mit VBA
Andreas

Hallo Excelfreunde,
Habe folgenden Code der auch funktioniert.
Mit diesem Code kann ich aus meinem aktiven Sheet über einen CommandButton das aktive Sheet in eine Neue Datei die welche laut Makro Vorgabe neu erstellt wird mit allen Inhalten sowie vorhandenen CommandButtons einfügen. Das...
06.08.2014 18:37:07
Thread-ID: 1374800
5 Beiträge
ActiveSheet.Range Autofilter Criteria1
Günter

Hallo,
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$C$8").AutoFilter Field:=3, Criteria1:="101"
Range("A1:C999").Select
Selection.Copy
Sheets("101").Select
ActiveSheet.Paste
ich selektiere aus einem Blatt die Sätze mit "101" heraus und kopiere diese Felder in d...
05.11.2014 14:29:26
Thread-ID: 1390635
9 Beiträge
Anzeige
VBA Code anpassen (Range Select)
Kisska

Schönen Abend!
Ich verwende für mein Makro diesen Teilcode:

Sheets("Blatt1").Select
Range("Tabelle1").Select
Selection.Copy

Damit werden alle Werte der Tabelle kopiert.
Ist es möglich den Code so anzupassen, dass die letzten 5 Spalten der Tabelle nicht kopiert...
13.07.2017 23:02:43
Thread-ID: 1569114
3 Beiträge
[VBA] SheetSelectionChange und Hyperlinks
Nils

Hallo liebe VBA-Experten,
ich habe ein Excel-Addin mit folgendem Code in einem Klassenmodul, was mir bei Aktivierung einer Zelle in einem festgelegten Bereich ein Datum einträgt:
Private Sub mobjApplication_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim objRange As...
02.01.2018 11:43:00
Thread-ID: 1599731
6 Beiträge
worksheet.range.select -> selection.copy
Anna

Hallo liebe Excel-Freunde,
folgendes Problem. Ich habe 2 Arbeitsmappen. Anwendung und Auswertung.
Ich möchte nun von der Mappe "Anwendung", Daten aus der Mappe "Auswertung" kopieren und in ein Sheet einfügen.
Problem: In Auswertung befinden sich mehrere Sheets. Beim auswählen und ko...
17.10.2018 11:40:25
Thread-ID: 1651799
8 Beiträge
Zellwert in VBA Range.Select übernehmen
MikeS

Hallo,
ich möchte einen Wert aus immer dergleichen Zelle (H3) in eine Range.Select-Formel übernehmen und habe u.a. folgendes probiert:Sub Format_GrundeinstellunG()
' Zeile1 ist die 1. Sprungmarke
' Zeile2 ist die 2. Sprungmarke
Dim Zeile1 As Integer
Dim Zeile2 As Integer
Works...
05.12.2002 12:25:10
Thread-ID: 189283
4 Beiträge
ActiveSheet.Names("Bereich1").RefersToRange.Delete
Andy

Hallo,

kann mir jemand etwas zu dem o.g Befehl sagen?
"ActiveSheet.Names("Bereich1").RefersToRange.Delete"
Wie finde ich heraus welcher Bereich als "Bereich1" definiert wurde?


Grüße

Andy
14.07.2003 09:13:36
Thread-ID: 280589
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
9
4
8
3
2
5
7
3
1
3
2
2
12
11
9
6
9
4
3
4
5