noch mal der ganze script:
20.02.2004 13:14:08
Markus H.
Moin,
sorry.. vielleicht stell ich mich blöd an.. aber ich bekomms nicht hin..
hier ist der gesamte script:
______________
Function WkbExist(SFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(SFile)
If Err = 0 And Not wkb Is Nothing Then
WkbExist = True
End If
On Error GoTo 0
End Function
Sub Datenholen()
Application.ScreenUpdating = False
Dim SFile As String
SFile = "Lieferschein.xls"
If WkbExist(SFile) Then
Windows("Lieferschein.xls").Activate
Sheets("Lieferschein").Range("A11:D18").Select
Selection.Copy
Windows("Mit freundlicher Unterstützung von Markus H.").Activate
Sheets("Rechnung").Range("A11:D18").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("Lieferschein.xls").Activate
Sheets("Lieferschein").Range("C22:F25").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Mit freundlicher Unterstützung von Markus H.").Activate
Sheets("Rechnung").Range("C22:F25").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("Lieferschein.xls").Activate
Sheets("Lieferschein").Range("A28:G40").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Mit freundlicher Unterstützung von Markus H.").Activate
Sheets("Rechnung").Range("A28:G40").Select
ActiveSheet.Paste
Range("B12").Select
Windows("Lieferschein.xls").Activate
If MsgBox("Lieferschein ausdrucken?", vbYesNo, "Drucken?") = vbYes Then
Sheets("Lieferschein").PrintOut
Workbooks("Lieferschein.xls").Save
Workbooks("Lieferschein.xls").Close
Else
If MsgBox("Lieferschein.xls wird geschlossen!", vbOKOnly + vbCritical, "Schließen") = vbOK Then
Workbooks("Lieferschein.xls").Save
Workbooks("Lieferschein.xls").Close
End If
End If
Else
MsgBox "Bitte Lieferschein.xls öffnen", vbCritical, "Fehler"
Exit Sub
End If
End Sub
Meine Programmierweise ist bestimmt nicht sehr vorteilhaft, aber so wie es jetzt ist funzt es, wenn die datei Lieferschein.xls heißt.
Hoffe du kannst mir das umbauen..
MfG
Markus