Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken und Hochzählen

Forumthread: Drucken und Hochzählen

Drucken und Hochzählen
25.04.2005 12:20:11
Uwe
Ich habe folgendes Problem:
In einem Excelarbeitsblatt in Zelle a1 möchte ich eine Zahl z.B. 500 eingeben.
Dann möchte ich dieses Arbeitblatt mit z.B. 10 Kopien drucken jedoch soll sich der Wert in
A1 auf jeder Kopie um den Wert 1 hochzählen. Also bis letztlich 509 auf letzter Kopie.
Die Anzahl der Kopien soll der Anwender in einer MsgBox eintragen können und dann den Druckauftrag
Auslösen.
Wie kann ich diesen Problem lösen?
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken und Hochzählen
25.04.2005 12:25:29
Hajo_Zi
Hallo Uwe,
ein Hallo zu Beginn und ein Gruß am Ende läst den Beitrag doch gleich viel freundlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst sitzen an der anderen Seite doch Leute und keine Maschinen die Deine Frage beantworten und da sollte Zeit für die paar Worte doch vorhanden sein.
Option Explicit

Sub DruckeUndZaehle()
Dim VarPrints As Variant, intI As Integer
'Inputbox mit Type 0 laesst nur Zahlen als Eingabe zu.
VarPrints = Application.InputBox("Anzahl der Ausdrucke", "Drucken", 0, Type:=1)
If VarPrints = False Then 'User selected cancel
Exit Sub
ElseIf CInt(VarPrints) > 0 Then
For intI = 1 To CInt(VarPrints)
ActiveSheet.PrintOut
Range("A1") = Range("A1") + 1
Next intI
End If
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!" Dies gilt auch für Bert.
Anzeige
AW: Drucken und Hochzählen
25.04.2005 12:29:48
Andi
Hi,
das sollte so gehen:

Sub Drucken()
Dim Kopien As Integer
Dim zaehler As Integer
Kopien = InputBox("Anzahl der Kopien:")
For zaehler = 1 To Kopien
Cells(1, 1).Value = Cells(1, 1).Value + 1
Sheets("Tabelle1").PrintOut copies:=1
Next zaehler
End Sub

Schönen Gruß,
Andi
Anzeige
AW: Drucken und Hochzählen
26.04.2005 12:36:33
Uwe
Hallo Ihre VBA- Experten,
vielen Dank für Eure Hilfe. Das hat ja super geklappt.
Aber eine Frage noch!
Kann ich hier auch noch einen Befehl einbauen, der jeweils den hochgezählten Wert
in eine weitere Tabelle übernimmt um eine Übersicht zu haben welche Werte schon vergeben
wurden?
Also 501 in Tabelle2 ZelleA1, 502 Tabelle2 ZelleA2 usw.
Im voraus vielen Dank!
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Drucken und Hochzählen in Excel

Schritt-für-Schritt-Anleitung

Um einen Zähler in Excel zu erstellen, der beim Drucken hochzählt, kannst Du ein einfaches VBA-Skript verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Erstelle ein neues Modul: Klicke auf "Einfügen" und dann auf "Modul".

  3. Füge den folgenden Code ein:

    Sub DruckeUndZaehle()
   Dim VarPrints As Variant, intI As Integer
   VarPrints = Application.InputBox("Anzahl der Ausdrucke", "Drucken", 0, Type:=1)
   If VarPrints = False Then 'User selected cancel
       Exit Sub
   ElseIf CInt(VarPrints) > 0 Then
       For intI = 1 To CInt(VarPrints)
           ActiveSheet.PrintOut
           Range("A1") = Range("A1") + 1
       Next intI
   End If
End Sub

  4. Schließe den VBA-Editor und kehre zu Deinem Arbeitsblatt zurück.

  5. Führe das Makro aus: Drücke ALT + F8, wähle "DruckeUndZaehle" und klicke auf "Ausführen".

Nun kannst Du in Zelle A1 eine Startzahl eingeben und das Skript wird die Zahl bei jedem Druck um 1 hochzählen.

Häufige Fehler und Lösungen

  • Fehler: "Anzahl der Ausdrucke" nicht eingegeben
    Lösung: Stelle sicher, dass Du eine Zahl eingibst. Wenn Du die Eingabe abbrichst, wird das Makro nicht ausgeführt.

  • Fehler: Der Druckauftrag wird nicht ausgeführt
    Lösung: Überprüfe, ob der Drucker ordnungsgemäß angeschlossen ist und ob Du die richtige Arbeitsmappe ausgewählt hast.

Alternative Methoden

Eine andere Möglichkeit, um hochzuzählen, ist die Verwendung einer Excel-Formel. Du kannst in einer neuen Zelle die folgende Formel nutzen:

=A1 + ROW(A1) - 1

Diese Formel kannst Du nach unten ziehen, um eine Liste mit hochzählenden Zahlen zu erstellen. Diese Methode eignet sich besonders gut, wenn Du die Zähler in einer Übersicht aufbewahren möchtest.

Praktische Beispiele

  1. Zähler in eine andere Tabelle übernehmen:
    Um die hochgezählten Werte in eine andere Tabelle zu übertragen, kannst Du den folgenden VBA-Code verwenden:

    Sub DruckenUndÜbersicht()
   Dim VarPrints As Variant, intI As Integer
   VarPrints = Application.InputBox("Anzahl der Ausdrucke", "Drucken", 0, Type:=1)
   If VarPrints = False Then Exit Sub
   If CInt(VarPrints) > 0 Then
       For intI = 1 To CInt(VarPrints)
           Sheets("Tabelle1").Cells(1, 1).Value = Sheets("Tabelle1").Cells(1, 1).Value + 1
           Sheets("Tabelle2").Cells(intI, 1).Value = Sheets("Tabelle1").Cells(1, 1).Value
           Sheets("Tabelle1").PrintOut copies:=1
       Next intI
   End If
End Sub

    Dieser Code

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige