Warum hilft mir keiner?

Hallo, liebe Allwissenden!
Ich habe so eine Frage nun schon zweimal gepostet, aber leider keine Antwort bekommen. Da ich in diesen Dingen nicht so bewandert bin weiss ich nicht genau, ob meine Frage zu banal oder zu kompliziert ist.
Ich will auf Buttonklick ein Makro ausführen lassen, dass eine andere Exceldatei öffnet, dort in einer Spalte die nächste freie Zeile sucht und dann ein bestimmtes Feld aus der Ursprungsdatei dort hinein kopiert. Da sich die Ursprungsdatei immer wieder ändert müssen die Daten kopiert werden und nicht nur auf das Feld verwiesen werden.
Mit dem Code:
Workbooks("c:\...\Ziel.xls").Activate
fängt es schon an mit Laufzeitfehler 9.
Momentan überlege ich, ob ich über
Zeile = Range("C5").End(xlDown).row
zumindest die Zeilen zählen kann, aber ich komme einfach auf keinen grünen Zweig.
Ich hoffe, dass ich mein Problem verständlich genug ausdrücke, ich bin da eher immer etwas umständlich.
Gruss
btc

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub daten_schaufeln() Dim ziel As Object Set ziel = GetObject("L:\zwischenlager\dahin_solls.xls") erste_freie_zeile = ziel.Sheets(1).Cells(Rows.Count, 3).End(xlUp).Row + 1 'wenn man in spalte 3 sucht ziel.Sheets(1).Cells(erste_freie_zeile, 3) = ActiveSheet.Cells(3, 1).Value 'wenn die zu übertragenden daten in spalte 1 zeile 3 stehen ziel.Close savechanges:=True End Sub

Sub daten_schaufeln() Dim rngZiel As Range Set rngZiel = GetObject("c:\temp\ziel.xls").Sheets(1). _ Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) ' rngZiel = ActiveSheet.Cells(3, 1).Value rngZiel.Parent.Parent.Close True Set rngZiel = Nothing End Sub

Jetzt habe ich mir mal alle Versionen kopiert und mit der letzten angefangen. Die Namen habe ich noch entsprechend geändert, sieht jetzt etwa so aus:


Private Sub CommandButton5_Click()
Dim rngZiel As Range
Set rngZiel = GetObject("C:\Dokumente und Einstellungen\...liste.xls").Sheets("Nov.06"). _
Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) '
rngZiel = ActiveSheet.Cells(3, 1).Value
rngZiel.Parent.Parent.Close True
Set rngZiel = Nothing
End Sub

Und jetzt ist meine Ziel-Liste komplett weg. Sie ist zwar anscheinend noch da und hat auch noch die richtige Grösse, aber wenn man sie öffnet, sieht es genauso aus wie ein komplett leeres Excel-File, ohne Tabellen oder sonst etwas. Auch der Dateiname ist oben nicht zu sehen, sondern nur ein nacktes 'Microsoft Excel'. So ziemlich jede Auswahl ist zudem gesperrt.
Was ist das? Wie kann ich das ändern?

Private Sub CommandButton1_Click() Dim rngZiel As Range Set rngZiel = GetObject("C:\temp\ziel.xls").Sheets("Tabelle1"). _ Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) ' rngZiel = ActiveSheet.Cells(3, 1).Value With rngZiel.Parent.Parent Windows(.Name).Visible = True .Close True End With Set rngZiel = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Warum hilft mir keiner?

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread