Microsoft Excel

Herbers Excel/VBA-Archiv

zwischen dateien hin und her springen

Betrifft: zwischen dateien hin und her springen von: Timmy
Geschrieben am: 16.09.2004 16:11:56

hallo zusammen,

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<<<<< eine fehlermeldung.

verstehe ich nicht. weil es doch einfach nur excelsheet daten, das geöffnet ist, aktivieren soll.

weiss jemand wo der fehler liegt?

gruß
tim
  


Betrifft: AW: zwischen dateien hin und her springen von: harry
Geschrieben am: 16.09.2004 16:15:33

hi,
versuchs mit
Workbooks("NAME").Activate

liebe grüße,
harry


  


Betrifft: AW: zwischen dateien hin und her springen von: Timmy
Geschrieben am: 16.09.2004 16:35:27

danke!
funst super!


 

Beiträge aus den Excel-Beispielen zum Thema "zwischen dateien hin und her springen"