Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1168to1172
1168to1172
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anwendungs- oder Objektdefinierter Fehler

Forumthread: Anwendungs- oder Objektdefinierter Fehler

Anwendungs- oder Objektdefinierter Fehler
Werner
Hallo zusammen
Beim öffnen der Datei möchte ich Daten aus einer anderen Datei vom Sheets("Datensammler") und vom Sheets("Datensalle") kopieren und in die geöffnete Datei einfügen. Das klappt auch beim ersten Sheets. Wenn ich dann das 2. kopieren will, bekomme ich bei Sheets("Datensalle").Select die Fehlermeldung Laufzeitfehler ‚1004’ Anwendungs- oder Objektdefinierter Fehler. Was ist nicht richtig?
Private Sub Workbook_Open()
ChDir "I:\2232"
'Datei DatenSOD.xls öffnen
Workbooks.Open Filename:="I:\2232\DatenSOD.xls"
' ActiveSheet.Unprotect
' Sheets("Datensammler").Select
Columns("A:Q").Select 'Spalten A bis Q selektieren
Selection.Copy 'selektierte Spalten kopieren
Range("A1").Select 'Zelle A1 selektieren
Windows("Neue Auswertung.xls").Activate 'Datei Neue Auswertung.xls aktivieren
Sheets("Datensammler").Select 'Blatt Datensammler selektieren
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False 'kopierte Daten einfügen
Range("A1").Select 'Zelle A1 selektieren
Workbooks("DatenSOD.xls").Activate
Sheets("Datensalle").Select
Columns("A:Q").Select 'Spalten A bis Q selektieren
Selection.Copy 'selektierte Spalten kopieren
Range("A1").Select 'Zelle A1 selektieren
Windows("Neue Auswertung.xls").Activate 'Datei Neue Auswertung.xls aktivieren
Sheets("Datensalle").Select 'Blatt Datensammler selektieren
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False 'kopierte Daten einfügen
Range("A1").Select 'Zelle A1 selektieren
Gruß Werner
Anzeige
AW: Anwendungs- oder Objektdefinierter Fehler
10.08.2010 07:15:00
Hajo_Zi
Hallo Werner,
Option Explicit
Sub Workbook_Open()
ChDir "I:\2232"
'Datei DatenSOD.xls öffnen
Workbooks.Open Filename:="I:\2232\DatenSOD.xls"
' ActiveSheet.Unprotect
' Sheets("Datensammler").Select
Columns("A:Q").Copy 'selektierte Spalten kopieren
With Workbooks("Neue Auswertung.xls")
With .Sheets("Datensammler")
' in welche Zelle
.Range("A1").PasteSpecial Paste:=xlValues   'kopierte Daten einfügen
End With
Columns("A:Q").Copy 'selektierte Spalten kopieren
With .Sheets("Datensalle")
' in welche Zelle
.Range("A1").PasteSpecial Paste:=xlValues    'kopierte Daten einfügen
End With
End With
End Sub

Anzeige
AW: Anwendungs- oder Objektdefinierter Fehler
10.08.2010 07:27:14
Werner
Hallo Hajo,
danke für die schnelle Hilfe.
Gruß Werner
AW: Anwendungs- oder Objektdefinierter Fehler
10.08.2010 08:32:48
Werner
Hallo Hajo,
ist doch noch nicht richtig.
es werden nur die Daten aus der Datei "DatenSOD.xls" vom Blatt "Datensammler" copiert und in die Datei "Neue Auswertung.xls" in die Blätter "Datensammler" und "Datensalle".
Ich möchte aber die Daten aus der Datei "DatenSOD.xls" vom Blatt "Datensammler" in die Datei "Neue Auswertung.xls" in's Blatt "Datensammler" und aus der Datei "DatenSOD.xls" vom Blatt "Datensalle" in die Datei "Neue Auswertung.xls" in's Blatt "Datensalle".
Gruß Werner
Anzeige
AW: Anwendungs- oder Objektdefinierter Fehler
10.08.2010 10:41:26
mpb
Hallo Werner,
ungetestet:
Sub Workbook_Open()
ChDir "I:\2232"
'Datei DatenSOD.xls öffnen
Workbooks.Open Filename:="I:\2232\DatenSOD.xls"
Workbooks.Worksheets("Datensammler").Columns("A:Q").Copy 'selektierte Spalten kopieren
With Workbooks("Neue Auswertung.xls")
With .Sheets("Datensammler")
' in welche Zelle
.Range("A1").PasteSpecial Paste:=xlValues   'kopierte Daten einfügen
End With
Workbooks.Worksheets("Datensalle").Columns("A:Q").Copy 'selektierte Spalten kopieren
With .Sheets("Datensalle")
' in welche Zelle
.Range("A1").PasteSpecial Paste:=xlValues    'kopierte Daten einfügen
End With
End With
End Sub
Gruß
Martin
Anzeige
AW: Anwendungs- oder Objektdefinierter Fehler
10.08.2010 11:48:57
Werner
Hallo Martin,
beim Worksheets bekomme ich die Fehlermeldung Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden.
Workbooks.Worksheets("Datensammler").Columns("A:Q").Copy 'selektierte Spalten kopieren
gruß Werner
AW: Anwendungs- oder Objektdefinierter Fehler
10.08.2010 11:59:30
mpb
Hallo Werner,
das kommt davon, wenn man nicht testet. So sollte es hoffentlich gehen:
Sub Workbook_Open()
ChDir "I:\2232"
'Datei DatenSOD.xls öffnen
Workbooks.Open Filename:="I:\2232\DatenSOD.xls"
Workbooks("DatenSOD.xls").Worksheets("Datensammler").Columns("A:Q").Copy
With Workbooks("Neue Auswertung.xls")
With .Sheets("Datensammler")
' in welche Zelle
.Range("A1").PasteSpecial Paste:=xlValues   'kopierte Daten einfügen
End With
Workbooks("DatenSOD.xls").Worksheets("Datensalle").Columns("A:Q").Copy
With .Sheets("Datensalle")
' in welche Zelle
.Range("A1").PasteSpecial Paste:=xlValues    'kopierte Daten einfügen
End With
End With
End Sub
Gruß
Martin
Anzeige
AW: Anwendungs- oder Objektdefinierter Fehler
10.08.2010 12:15:40
Werner
Hallo Martin,
jetzt gehts danke
Gruß Werner
;

Forumthreads zu verwandten Themen

Application.Quit oder WB.close ???
Dirk

allo miteinander,
brauche bitte von Euch mal einen Rat, -Tip, oder einfach nur Hilfe.
Habe bei einer meiner Dateien ein Application.quit eingebaut, weil wenn Bedingung nicht erfüllt ist soll sich die komplette Mappe und die Tabellen die mit dieser zusammen arbeiten automatisch schließen...
01.09.2008 13:04:50
Thread-ID: 1006409
6 Beiträge
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
Anzeige
offset? mit Combo oder Listbox aber wie?
Thomas

Hallo und einen schönen guten Tag
Bitte um Hilfe.
Offset aber wie?
Ich möchte 2 List- oder Combofelder aus einer UserForm mit Werten der aktiven Zeile füllen, die ich dann mit Hilfe der List oder Combobox ändere.
z.B.
A5 oder A6 oder A150 u.s.w.
B5 oder B6 oder B150 u....
16.09.2008 11:37:00
Thread-ID: 1010027
6 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Anzeige
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Anzeige
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Anzeige
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
3 Beiträge
Sprachblase oder MsgBox bei Label
Leon

Hi Zusammen
Ist es überhaupt möglich, eine Art MsgBox oder eher wie eine Sprachblase anzuzeigen wenn ich über ein
Label mit der Maus fahre?
Gruß
Leon
31.01.2009 23:00:00
Thread-ID: 1045779
12 Beiträge
prüfen ob ganze Zeilen oder Spalten
Anna

Hallo
ich würde gerne einen markierten Bereich, der als Range einer Funktion übergeben wird, überprüfen, ob ganze Zeilen oder Spalten ausgewählt sind.
Wie kann man das machen?
Vielen Dank schon im Voraus!
05.02.2009 09:55:00
Thread-ID: 1047308
3 Beiträge
Variable oder Prozedur anstelle eines Moduls
tco99


Hallo zusammen,
ich habe eine Frage:
ich hatte ein Makro, was ich per Schaltfläche startete. Dann habe ich im VBA-Editor ein Modul angelegt und ihm einen passenden Namen ("Filtern") gegeben. Das Makro habe ich ausgeschnitten und in dieses Modul eingefügt. Eigentlich habe ich jetzt...
06.02.2009 11:06:47
Thread-ID: 1047667
3 Beiträge
MultiPages und/oder TabStrips
Lenni

Moin Excellianer!
Ich setze mich gerade mit den Objekten MultiPage und TabStrip in einem UserForm auseinander. Im Forumsarchiv finde ich eher eine ablehnende Haltung gegenüber dem TabStrip-Objekt ("..zu kompliziert zu programmieren.." waren unter anderem die Hinweise). Aber wo der elementar...
13.02.2009 00:08:00
Thread-ID: 1050317
4 Beiträge
Und() bzw. ODER() in Matrixformeln
Sibylle

Hallo,
sollen in einer Matrixformel 2 Bedingungen durch UND() verknüpft werden, funktioniert dies nicht.
Was ist die Ursache?
Wichtiger: wie sieht die Lösung aus?
Gruß
Sibylle
13.02.2009 11:02:00
Thread-ID: 1050412
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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