Druken

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: Druken
von: Erich
Geschrieben am: 02.03.2005 12:18:55
Hallo....
Wie muss ich diesen Code ändern.
Er sucht den bestimmten Zeitraum raus aber zeigt mir nur
die Spalte A an. Er soll aber in dem Bereich das gesamte Tabellenblatt
drucken. Ich hoffe es versteht jemand


Sub DatePrint()
   Dim varStart As Variant, varEnd As Variant
   Dim dStart As Double, dEnd As Double
   Dim sStart As String, sEnd As String
   Dim msg As Range
    
   sStart = InputBox("Start:", , "12.02.01")
   If sStart = "" Then Exit Sub
   sEnd = InputBox("Ende:", , "15.03.01")
   If sEnd = "" Then Exit Sub
   On Error Resume Next
   dStart = CDbl(DateValue(sStart))
   dEnd = CDbl(DateValue(sEnd))
   If Err > 0 Then
      Err.clear
      MsgBox "Ungültige Eingaben!"
      Exit Sub
   End If
   If dEnd < dStart Then
      Beep
      MsgBox "Das Enddatum darf nicht kleiner " & _
         "als das Startdatum sein!"
   End If
   msg.Activate
   varStart = Application.Match(dStart, Columns(1), 3)
   varEnd = Application.Match(dEnd, Columns(1), 3)
   ActiveSheet.PageSetup.PrintArea = _
      Range(Cells(varStart, 1), Cells(varEnd, 1)).Address
   ActiveSheet.PrintPreview
End Sub

Vorab schon mal vielen Dank
Gruss Erich
Bild

Betrifft: AW: Drucken
von: Erich
Geschrieben am: 02.03.2005 16:49:18
Hallo..
Frage hat sich erledigt.
Lösung gefunden.
Gruss Erich
 Bild

Beiträge aus den Excel-Beispielen zum Thema "short-cut inhalte einfügen - werte"