ich lasse aus dem Sheet "Ausgabe" alle Daten auslesen. Dazu benutze ich folgendes Makro:
------------------------------------------
Sub Export()
MsgBox ("Bitte Diskette einlegen!")
Sheets("Ausgabe").Select
Range("A1:C1000").Select
Dim iFile As Integer, iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
sFile = "A:\Ausgabe.txt"
iFile = FreeFile
On Error GoTo Fehler
Open sFile For Output As iFile
For iRow = Selection.Row To Selection.Rows.Count
For iCol = Selection.Column To Selection.Columns.Count
sTxt = sTxt & Cells(iRow, iCol).Value & vbTab
Next iCol
sTxt = Left(sTxt, Len(sTxt) - 1)
Print #iFile, sTxt
sTxt = ""
Next iRow
ActiveWorkbook.Save
Close iFile
MsgBox ("Exportieren erfolgreich!")
GoTo Ende
Fehler:
MsgBox ("Exportieren fehlgeschlagen!")
Ende:
End Sub
-----------------------------------------
Wenn alles erfolgreich verlaufen ist und ich dann per selbstgeschriebenem Menü durch die einzelnen Worksheets durchblättere, versucht er immer auf die Diskette zuzugreifen (nicht auf die Datei, da er die Blätter trotzdem wechselt, obwohl keine Diskette im Laufwerk liegt!). Also eine Fehlermeldung wird nicht angezeigt, aber das Diskettenlaufwerk wird angesprochen.
Hat jemand eine Ahnung, wie ich das Problem lösen kann?
Vielen Dank schon mal im Voraus!
Mfg
Tim