Win 98 Probleme nach Makroausführung
01.12.2005 12:39:00
Stefano
Nach diesem Makro macht Win 98 ständig Probleme. Hauptsächlich das Problem, dass ein Ordner anzulegen ca. 1 Minute dauert. Währenddessen geht gar nichts. Danach wieder alles gut, bis ich den nächsten Ordner anlegen möchte. Habt Ihr eine Ahnung wie ich das beheben kann? Danke für Eure Hilfe!
Gruss
Stefano
Private Sub CommandButton1_Click()
Const Ws_Druck As String = "Drucken"
Dim C As Range
Dim intRow As Integer
Dim strCheck As String
With Worksheets(Ws_Druck)
strCheck = MsgBox(" Tratte in Zusatzzufuhr eingelegt? ", vbOKOnly + vbQuestion, "Achtung!")
strCheck = MsgBox("Es werden insgesamt " & Application.Sum(.[c7:c30000]) & _
" Ausdrucke erstellt. Jetzt drucken?", vbYesNo + vbQuestion, "Druckanzahl bestätigen...")
If strCheck = vbNo Then Exit Sub
On Error Resume Next 'quick and dirty
For intRow = 1 To ThisWorkbook.Sheets.Count
If .Cells(intRow + 6, 3) <> "" Then
Worksheets(CStr(.Cells(intRow + 6, 2))).PrintOut copies:=.Cells(intRow + 6, 3)
End If
Next intRow
On Error GoTo 0
End With
End Sub
Private Sub Worksheet_Activate()
Dim i As Integer
Dim ws As Worksheet
Range("B7:B60000").ClearContents
i = 7
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Drucken" And ws.Name <> "Vorlage" Then
Cells(i, 2) = ws.Name
i = i + 1
End If
Next ws
End Sub