Text mit VBA hinzufügen
18.05.2008 16:35:32
Heinz
Im unteren Code kann ich über eine UF eine Kalenderwoche ausdrucken.
Nun möchte ich aber das nach ".Range("A" & zeileLinie - 1 & ":AX" & zeileLinie + 35).PrintOut"
Noch zB. "Das ist ein Test" mitgedruckt wird. Wenn möglich in FETT.
Mit der Fußzeile funkt. es leider nicht.
Könnte mir dazu bitte jemand weiterhelfen.
Danke & Gruß Heinz
Sub KW_Drucken()
Dim varWeek As Variant
Dim zeileLinie As Integer
Do
varWeek = Application.InputBox("Welche Woche wollen Sie Drucken?", "KW-Drucken", Type:= _
_
1)
If varWeek = "Falsch" Then Exit Sub
Loop While varWeek 54
' Suchen nach der Zeilennummer lt. Kalenderwoche
With Sheets("WoMat")
zeileLinie = 0
For n = 2 To 1978 Step 38
If .Cells(n, 10).Value = KW Then
zeileLinie = n
Exit For
End If
Next n
If zeileLinie = 0 Then
MsgBox "Kalenderwoche " & KW & " nicht gefunden!"
Exit Sub
End If
.Range("A" & zeileLinie - 1 & ":AX" & zeileLinie + 35).PrintOut
End With
End Sub