Seite einrichten per VBA, wie geht das
29.06.2004 16:50:47
Mandy
bei meiner kleinen Datei gibt es ein Druckmenü, in dem ich gern
sagen würde,
Widerholungszeile $1:$1
Widerholungsspalte $A:$A
Der Code, in den ich das gern reinhaben möchte lautet:
Private Sub Druck_cmd_Click()
Application.ScreenUpdating = False
AnfangGefunden = ""
EndeGefunden = ""
Anfangsdatum = Anfang_dtp.Value
Enddatum = Ende_dtp.Value
[a2].Select
For i = 1 To 370
If ActiveCell.Value = Anfangsdatum Then
AnfangGefunden = True
Anfang = ActiveCell.Row
Else
ActiveCell.Offset(1, 0).Select
End If
Next
[a2].Select
For i = 1 To 370
If ActiveCell.Value = Enddatum Then
EndeGefunden = True
Ende = ActiveCell.Row
Else
ActiveCell.Offset(1, 0).Select
End If
Next
If AnfangGefunden = "" Then
MsgBox "Das Anfangsdatum " & Datum & " wurde nicht gefunden.", vbCritical + vbOKOnly, "Kein Eintrag"
Exit Sub
End If
If EndeGefunden = "" Then
MsgBox "Das Enddatum " & Datum & " wurde nicht gefunden.", vbCritical + vbOKOnly, "Kein Eintrag"
Exit Sub
End If
Druck_frm.Hide
Range(Cells(Anfang, 1), Cells(Ende, 21)).Select
With ActiveSheet
.Unprotect Password:=""
.PageSetup.PrintArea = Selection.Address
.Protect Password:=""
End With
Selection.PrintOut
Application.ScreenUpdating = True
Heute
End Sub
Wo muss ich was einfügen, weiß das jemand?
Gruß Mandy