@ Josef Ehrensberger (wahrscheinlich)
27.03.2004 11:09:36
Reto
' Druckbereich mittels Inputbox beim Schichtplan
Sub Druckbereich()
Dim rng As Range
Dim sFind As String
With ActiveSheet
Do
sFind = InputBox("Bitte die gewünschte Kalenderwoche eingeben !", "erstellt Schichtplan mit 7 Wochen ab KW..")
If sFind = "" Then Exit Sub
If IsNumeric(sFind) And sFind > 0 And sFind < 54 Then
Set rng = .Range("A5:A250").Find(what:=sFind, LookIn:=xlValues, lookat:=xlWhole)
If Not rng Is Nothing Then
.PageSetup.PrintArea = .Range(.Cells(rng.Row - 1, 1), .Cells(rng.Row + 26, 9)).Address
.PrintPreview
.PageSetup.PrintArea = ""
Exit Sub
End If
Else
If MsgBox("Ungültige Wochennummer!" & vbLf & vbLf & _
"Wiederholen ?", vbRetryCancel + vbExclamation, "Hinweis") = vbCancel Then
Exit Sub
End If
End If
Loop
End With
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
Jetzt möchte ich in (Code) gerne umgeändert haben, so dass über die Zeile 2 jeweils die KW in der Inputbox eingeben kann und es mir jeweils diejenige Woche plus die nächsten 5 Wochen dazu auflistet. Leider tüftle ich jetzt schon 1 Woche rum und ich weiss nicht mehr wo ich was machen soll.
Weisst du Rat dafür?
https://www.herber.de/bbs/user/4702.xls
Gruss Reto