Wo ist der Fehler versteckt
08.01.2004 16:00:19
marc
ich weiss es nicht wo der Fehler steckt.Nachdem der Code
"Workbooks.Open("C:\Geradeauslauf\Q_Alarm\Q_Ges.xls") öffnet
müsste als erstes das Blatt
"Worksheets("Q_AlarmTL_Info").Select zu sehen sein.
Leider springt der Code auf das nächste Blatt
"Worksheets("QA_DB").Select über.
Nun bin ich verunsichert.
was habe ich falsch gemacht ?
marc :0)
----------------------------------------------------------
Sub ErrorExport_Step3()
Dim wb As Workbook
Set wb = ActiveWorkbook
Dim Spalte As Integer
Dim Zelle As Range
Dim I As Integer
Worksheets("QAL_Ges").Range("C7:H14").Copy
Set wb = Workbooks.Open("C:\Geradeauslauf\Q_Alarm\Q_Ges.xls")
Worksheets("Q_AlarmTL_Info").Select
Range("R7").PasteSpecial Paste:=xlValues, Paste:=xlFormats
Range("W6").Activate
Worksheets("QA_DB").Select
'Application.ScreenUpdating = False
I = 2
For Spalte = 4 To 56
If Cells(I, Spalte).Value = "" Then Exit For
Next Spalte
For Each Zelle In Sheets(1).Range("W7:W14")
Cells(I, Spalte).Value = Zelle.Value
I = I + 1
Next
Application.CutCopyMode = False
Application.ActiveWorkbook.Save
wb.Close False
Worksheets("Aus.Gr").Activate
End
Sub
Anzeige