Thema Datum  Von Nutzer Rating
Antwort
04.10.2012 13:44:03 Oli
NotSolved
Blau Drucken mit Bedingung
 04.10.2012 18:27:23 Dekor
Solved
05.10.2012 10:45:21 oli
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
04.10.2012 18:27:23		 Views:
902		 Rating:
     
Antwort:
 Nein
Thema:
Drucken mit Bedingung

Hallo Oli,

ein kleiner aber gemeiner Fehler hat sich da eingeschlichen

Private Sub CommandButton1_Click() 
   Sheets("laborkopie").Select 
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
   If Range("K6") = "JA" Then 
      Sheets("Modell").Select 
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
   End if
   Sheets("Titel").Select 
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
   Sheets("Therapie").Select 
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
   Sheets("Kosten").Select 
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
   Sheets("Therapie_Patient").Select 
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
   Sheets("Kosten_Patient").Select 
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
   Sheets("Positionen_Blanko").Select 
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
End Sub

korrigierte Fassung, in einer Zeile stand hinter dem Then noch eine Anweisung, dies ist eine Möglichkeit die aber dazu führt das das End If ganz alleine für sich stehen bleibt und den Fehler  provoziert

Gruß Detlev

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
04.10.2012 13:44:03 Oli
NotSolved
Blau Drucken mit Bedingung
 04.10.2012 18:27:23 Dekor
Solved
05.10.2012 10:45:21 oli
NotSolved