Thema Datum  Von Nutzer Rating
Antwort
16.02.2016 19:54:00 jojue
NotSolved
Blau Ausgewählte Exceltabellenblätter mit Druckbutton Drucken
 17.02.2016 11:14:57 Gast76981
NotSolved
17.02.2016 11:30:19 Gast55399
NotSolved

Ansicht des Beitrags:
Von:
Gast76981		 Datum:
17.02.2016 11:14:57		 Views:
1204		 Rating:
     
Antwort:
  Ja
Thema:
Ausgewählte Exceltabellenblätter mit Druckbutton Drucken

Moin,

eine "Möglichkeit" - ohne Gewähr

Option Explicit

Sub Drucke()
'Voraussetzung
'Tabelle "Sonne" hat Überschriften
On Error GoTo fail

With Sheets("Sonne")
   'keine Anzeige
   Application.ScreenUpdating = False
   .Visible = -1
   'Trick mit Autofilter
   Call Filtern(.Name)
   'Ausgeben
   .PrintOut
   'Rücksetzen
   .AutoFilterMode = False
   .Visible = 2
End With
fail:
Application.ScreenUpdating = True
End Sub

Private Sub Filtern(ByVal tbName As String)
'Blatt wo wurde übergeben

Dim Rng As Range, lngCol As Long
Dim strCriteria As String
'Filterkriterium = HEUTE in Spalte C zwingend im US Format
strCriteria = USDatumErstellen(Date)

'mit Blatt wo
With Sheets(tbName)
   'Daten bestimmen
   Set Rng = .UsedRange
   'sollte Spalte A, B leer, dann
   lngCol = Rng.Columns(1).Column
   If lngCol <> 1 Then
      Set Rng = Rng.Offset(, 1 - lngCol).Resize(, lngCol - 1 + Rng.Columns.Count)
   End If
   'Blatt filtern auf Filterkriterium
   Rng.AutoFilter
   .Range(Rng.Address).AutoFilter Field:=3, Operator:= _
        xlFilterValues, Criteria2:=Array(2, strCriteria)
    'Rng.AutoFilter
End With
End Sub

Private Function USDatumErstellen(x As Variant)
   If Not IsDate(x) Then Exit Function
   USDatumErstellen = "" & Month(x) & "/" & Day(x) & "/" & Year(x) & ""
End Function

 

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.02.2016 19:54:00 jojue
NotSolved
Blau Ausgewählte Exceltabellenblätter mit Druckbutton Drucken
 17.02.2016 11:14:57 Gast76981
NotSolved
17.02.2016 11:30:19 Gast55399
NotSolved