Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wo ist der Fehler versteckt

Wo ist der Fehler versteckt
08.01.2004 16:00:19
marc
hallo zusammen,
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

                    

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wo ist der Fehler versteckt
08.01.2004 16:13:56
Matthias G
Hallo Marc,
Setze mal nach
Worksheets("Q_AlarmTL_Info").Select
ein MsgBox, dann müsste da Blatt sehr wohl zu sehen sein.
Nur selektierst Du danach gleich das nächste Blatt:
Worksheets("QA_DB").Select
Und, gehe besser auf Nummer sicher und schreibe:
With Workbooks("Q_Ges.xls")
.Worksheets("Q_AlarmTL_Info").Select
End With
Nur "Worksheets(...)" nimmt ja das Blatt der Aktiven Mappe. Sollte zwar hier passen, aber manchmal ändert sich der Code noch und solche Sachen verursachen dann Fehler...
Gruß,
Matthias
AW: Wo ist der Fehler versteckt
08.01.2004 21:40:15
marc
hallo Matthias,
danke für deinen Tipp.
Ich werde es ausprobieren.
marc : o)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige