Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zu druckende Seitenanzahl aus Zelle auslesen.
zurück: Bildschirmauflösung ermitteln weiter: Zu druckende Seitenanzahl aus Zelle auslesen. Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
{Andreas S}
Gast


Verfasst am:
26. Jan 2007, 21:30
Rufname:

Zu druckende Seitenanzahl aus Zelle auslesen. - Zu druckende Seitenanzahl aus Zelle auslesen.

Nach oben
       Version: Office 2007

Hallo,

in der Zelle A1 steht die Anzahl der zu druckenden Seiten.

Das Macro soll diesen Wert Abfragen. (Variable)

Nun soll eine Schleife folgendes machen.

Ist Zahl (Variable) größer/gleich 1 dann Drucken Seite 1

Ist Zahl (Variable) größer/gleich 2 dann Drucken Seite 2

Ist Zahl (Variable) größer/gleich 3 dann Drucken Seite 3

und so weiter bis 100.

ist Variable kleiner dann Schleife beenden.

Gruß Andreas
HOTTA
null ahnung


Verfasst am:
26. Jan 2007, 21:59
Rufname:


AW: Zu druckende Seitenanzahl aus Zelle auslesen. - AW: Zu druckende Seitenanzahl aus Zelle auslesen.

Nach oben
       Version: Office 2007

Hallo,

könnte sich bitte einer der Moderatoren oder Admins
mal zum Namen des Autors ein paar Gedanken machen?

_________________
Gruß
Hotta
Andreas S
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Jan 2007, 22:13
Rufname:

AW: Zu druckende Seitenanzahl aus Zelle auslesen. - AW: Zu druckende Seitenanzahl aus Zelle auslesen.

Nach oben
       Version: Office 2007

Hallo,
so scheint es zu funktionieren
Code:

a = Cells(1, 1).Value


For i = 1 To 100

    If a < i Then
       
    Else
    ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, Collate:=True
    End If
   
   
Next i


Gruß Andreas


Zuletzt bearbeitet von Andreas S am 27. Jan 2007, 15:11, insgesamt einmal bearbeitet
maninweb
Microsoft Excel MVP 2014


Verfasst am:
27. Jan 2007, 15:01
Rufname: maninweb
Wohnort: Aachen


AW: Zu druckende Seitenanzahl aus Zelle auslesen. - AW: Zu druckende Seitenanzahl aus Zelle auslesen.

Nach oben
       Version: Office 2007

Hallo Andreas...

ausgehend davon, dass immer letzten Endes die Seite gedruckt
werden soll, die in A1 steht, kannst Du es mal so probieren.
Ggf. musst Du das noch anpassen.

Code:

Public Sub TestDruck()

  Dim n As Long
 
  n = CLng(ThisWorkbook.Worksheets("Tabelle1").Cells(1, 1).Value)
 
  If n < 101 Then
   
    ThisWorkbook.Worksheets("Tabelle1").PrintOut n, n
   
  End If
 
End Sub


{maninweb : Deinen Hinweis hatte ich gelesen und den Tippfehler korrigiert. Jetzt geht's hier weiter, Thread ist gesperrt}

Gruss

_________________
Der größte Aberglaube der Gegenwart ist der Glaube an die Vorfahrt.
Jacques Tatischeff - auch bekannt als Jacques Tati
20FCC4FD0E3240C59522E3F0C4695941
Neues Thema eröffnen   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Worte aus einer Zelle in 2 Zellen schreiben 2 Sven79 1322 12. Jan 2005, 01:20
Sven79 Worte aus einer Zelle in 2 Zellen schreiben
Keine neuen Beiträge Excel Formeln: Zelle Verschieben 2 Muran 628 02. Jan 2005, 23:04
Patrick G. Zelle Verschieben
Keine neuen Beiträge Excel Formeln: größten wert auslesen und woanders um 50 erhöhen 1 GE 1220 20. Dez 2004, 12:51
icke größten wert auslesen und woanders um 50 erhöhen
Keine neuen Beiträge Excel Formeln: dateiname in eine zelle 6 natorius 1946 03. Dez 2004, 16:25
natorius dateiname in eine zelle
Keine neuen Beiträge Excel Formeln: wenn zelle voll dann 15 umbroboy 7276 31. Okt 2004, 11:15
pehbeh wenn zelle voll dann
Keine neuen Beiträge Excel Formeln: Text einer Zelle aufteilen 2 Gast Chris 2786 28. Okt 2004, 12:32
Gast Chris Text einer Zelle aufteilen
Keine neuen Beiträge Excel Formeln: erste Zeichen einer Zelle in andere kopieren 2 fisler0815 3067 11. Okt 2004, 15:37
fisler0815 erste Zeichen einer Zelle in andere kopieren
Keine neuen Beiträge Excel Formeln: Zelle in bestimmer Zeile finden 12 lhh 2034 15. Sep 2004, 10:21
lhh Zelle in bestimmer Zeile finden
Keine neuen Beiträge Excel Formeln: Funktion: Identische Inhalt einer Zelle in Tabelle 1 und 2 4 luki 4202 09. Sep 2004, 18:20
Gast Funktion: Identische Inhalt einer Zelle in Tabelle 1 und 2
Keine neuen Beiträge Excel Formeln: Formatierung Zelle ( Formel ) 5 Gast 1347 01. Sep 2004, 13:19
ae Formatierung Zelle ( Formel )
Keine neuen Beiträge Excel Formeln: mal wieder: letzte ausgefüllte Zelle in Spalte 4 Gast 3785 14. Aug 2004, 11:57
Gast mal wieder: letzte ausgefüllte Zelle in Spalte
Keine neuen Beiträge Excel Formeln: Auslesen mehrer Zahlen aus einer Zelle 7 coatin27 3379 11. Aug 2004, 15:18
Arnim Auslesen mehrer Zahlen aus einer Zelle
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks