AW: Urlaubsplan - fcs
18.06.2012 17:49:17
Thomas
Hallo Franz!
Vielen Dank! Ich hab vergessen, dass ja einige Spalten ausgeblendet sind!! Jetzt hab ich die Spalte angegeben, die ausgeblendet war. Den Eintrag hab ich natürlich nicht gesehen. Jetzt muss ich über meinen Fehler lachen!!! :-))
Ich hab noch eine Menüleiste Programmiert, in der die KW´s in einem DropDownMenü angezeigt werden.
Da geht dann die Suche schneller. Was noch gut wäre ist ebenfalls eine Menüleiste, in der ich die einzelenen KW´s ausdrucken kann, aber nur bestimmte Bereiche und nicht alles.
Sub KW01_drucken()
On Error GoTo fehler
Dim Mldg, Stil, Titel, Antwort, Text1
Mldg = "Name : " & Application.UserName & vbLf & _
"Datum: " & Date & vbLf & _
"Uhrzeit: " & Time & " Uhr" & vbLf & _
"Möchten Sie diese KW wirklich drucken?"
Stil = vbYesNo + vbInformation + vbDefaultButton2
Titel = " H I N W E I S"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Sheets("KW01").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
Text1 = "Nein"
End If
Exit Sub
fehler:
MsgBox "Achtung, diese Tabelle existiert in dieser Arbeitsmappe nicht!", vbInformation
End Sub
Gedruckt soll aber nur der Bereich, z. B. B bis S und die Spalte W mit den Bemerkungen
Bei meiner Anweisung Sheets("KW01").Select wird ja alles gedruckt. Das ist aber nicht nötig.
Wie muss ich hier die Anweisung abändern, dass nur die die Bereiche B bis S und Spalte W gedruckt werden?
Dann haben wir es aber.
Die halben Tagen laufen dann über einen Eintrag in den Bemerkungen, z. B Mittwoch halber Tag.
Ansonsten ist alles super!!!
Gruß
Thomas