AW: Stop den Sub
08.09.2003 12:23:07
dehe
Tach!
Also mein Script sieht so aus:
Private Sub Drucken_Click()
If Worksheets("Rechnung").Range("F6") = "" Then MsgBox "Name fehlt!"
'Wobei ich hier mehr Ifs Reinschreiben werde
Exit Sub
End If
'Fehler: End If ohne If-Block...
'Rechnungsnummer
Worksheets("Memo").Range("H2").FormulaR1C1 = Worksheets("Memo").Range("H2").FormulaR1C1 + 1
'Drucken
'Sheets("Druckausgabe").PrintOut Copies:=1
'Zeitstempel
Sheets("Memo").Cells(6, 7) = Format(Now(), "DD.MM.YYYY")
'Autor wird gewählt
ActiveWorkbook.Author = Worksheets("Memo").Range("I2")
'Speichern
Worksheets.Copy
DName = Worksheets("Memo").[H2] & " - " & Format(Worksheets("Memo").[G6], "DD.MM.YYYY") & " - " & Worksheets("Memo").[K10] & ".xls"
ActiveWorkbook.SaveAs "\\Server\Verwaltung\Rechnungen\" & DName
ActiveSheet.Shapes("Drop Down 1").Select 'Abteilung
With Selection
.ListFillRange = "Memo!$C$2:Memo!$C$8"
.LinkedCell = "Memo!$C$1"
.DropDownLines = 8
.Display3DShading = True
End With
ActiveSheet.Shapes("Drop Down 2").Select 'Bearbeiter
With Selection
.ListFillRange = "Memo!$B$2:Memo!$B$7"
.LinkedCell = "Memo!$B$1"
.DropDownLines = 8
.Display3DShading = True
End With
ActiveSheet.Shapes("Drop Down 5").Select 'Datum
With Selection
.ListFillRange = "Memo!$E$2:Memo!$E$6"
.LinkedCell = "Memo!$E$1"
.DropDownLines = 8
.Display3DShading = True
End With
ActiveSheet.Shapes("Drop Down 7").Select 'Anzahlung
With Selection
.ListFillRange = "Memo!$F$2:Memo!$F$6"
.LinkedCell = "Memo!$F$1"
.DropDownLines = 8
.Display3DShading = True
End With
ActiveSheet.Shapes("Drop Down 3").Select 'Anrede
With Selection
.ListFillRange = "Memo!$D$2:Memo!$D$8"
.LinkedCell = "Memo!$D$1"
.DropDownLines = 8
.Display3DShading = True
End With
ActiveSheet.Shapes("Drop Down 8").Select 'Betrag Netto/Brutto
With Selection
.ListFillRange = "Memo!$B$21:Memo!$B$22"
.LinkedCell = "Memo!$B$21"
.DropDownLines = 8
.Display3DShading = True
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
'Löschen der Felder
'Warenkorb
Range("B12:F23").Select
Selection.ClearContents
'Adressfeld
Range("F6:G9").Select
Selection.ClearContents
'Datum
Range("B8").Select
Selection.ClearContents
'Anzahlung
Range("D9").Select
Selection.ClearContents
Range("D8").Select
ActiveCell.FormulaR1C1 = "0"
'Dropdown-Felder auf 1 setzten
Worksheets("Memo").Range("B1").Value = "1"
Worksheets("Memo").Range("C1").Value = "1"
Worksheets("Memo").Range("D1").Value = "1"
Worksheets("Memo").Range("E1").Value = "1"
Worksheets("Memo").Range("F1").Value = "1"
Worksheets("Memo").Range("B20").Value = "1"
'Wieder aktiv
Range("F6").Select
End Sub