Drucken von Tagen mit VBA

29/06/2009 - 16:04 von Gerhard Burn | Report spam
Hallo
ich habe eine Excel 2002 Tabelle mit vielen Daten, die ausgedruckt werden
muss.
z.B.
A B C
1.6.09 Mo Gut
1.6.09 Mo Falsch
1.6.09 Mo XX
1.6.09 Mo Gut
2.6.09 Di Falsch
2.6.09 Di XX
usw.
bis
12.12.09
jetzt möchte ich mittels Dialogfenster den Tag auswàhlen können, und alle
Daten ausdrucken.

Danke für deine Hilfe
 

Lesen sie die antworten

#1 Claus Busch
29/06/2009 - 16:32 | Warnen spam
Hallo Gerhard,

Am Mon, 29 Jun 2009 07:04:01 -0700 schrieb Gerhard Burn:

A B C
1.6.09 Mo Gut
1.6.09 Mo Falsch
1.6.09 Mo XX
1.6.09 Mo Gut
2.6.09 Di Falsch
2.6.09 Di XX
usw.
bis
12.12.09
jetzt möchte ich mittels Dialogfenster den Tag auswàhlen können, und alle
Daten ausdrucken.



du könntest dein gesuchtes Datum in E2 eintragen und dann mit folgenden
Code ausdrucken lassen (andernfalls noch die Bezüge àndern):

Sub Drucken()

Dim suchDat As Double
Dim FRow As Long
Dim LRow As Long
Dim Anz As Integer

suchDat = Range("E2")
FRow = WorksheetFunction.Match(suchDat, Range("A:A"), 0)
Anz = WorksheetFunction.CountIf(Range("A:A"), suchDat)
LRow = FRow + Anz - 1
Range("A" & FRow & ":C" & LRow).Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen