zwischen dateien hin und her springen
16.09.2004 16:11:56
Timmy
habe mir mit hilfe des rekorders folgendes zusammengebaut:
Option Explicit
Private Sub Workbook_open()
'Schritt1: Datum einfügen in Rechnung'
Sheets("Musterrechnung").Select
Cells(17, 3).Value = Date
'Schritt 2: Sortieren nach Rechnungsnummer'
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\m.strassburger\Desktop\Daten.xls"
Range("A3:G65536").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2").Select
'Schritt 3: Nettowert = 0 = Zeile Löschen'
Windows("Daten.xls").Activate
Do Until [d3] > 0
Rows(3).Delete
Loop
'Schritt 4: Zeile3 & Rechnungsnr + 1 & RG Jahr einfügen'
Windows("Daten.xls").Activate
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Range("B3").Select
ActiveCell.FormulaR1C1 = "=R[1]C+1"
Range("A3").Select
ActiveCell.FormulaR1C1 = "='[Vorlage GFT2.xls]Musterrechnung'!R17C3"
Windows("Vorlage GFT2.xls").Activate
End Sub
wenn ich das programm laufen lasse, kommt aber bei schritt 3 sowie schritt 4 bei >>>>>Windows("Daten.xls").Activate verstehe ich nicht. weil es doch einfach nur excelsheet daten, das geöffnet ist, aktivieren soll.
weiss jemand wo der fehler liegt?
gruß
tim
Anzeige