Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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
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
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

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige