Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahl um eins erhöhen, dann Drucken usw.?

Zahl um eins erhöhen, dann Drucken usw.?
06.11.2008 18:12:42
Selma
Hallo Leute,
ich möchte gern über InputBox ein Wert eintragen, der in Zelle C4 eingetragen wird und dann soll das Arbeitsblatt auf Standarddrucker ausgedruck werden.
Danach soll der Wert um eins erhöht werden, dann wieder das AB drucken usw.
Wie oft soll der Zahl um eins erhöht werden, würde ich gern über InputBox steuern.
Wie mache ich das?
Besten Dank im Voraus !
Liebe Grüße,
Selma

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahl um eins erhöhen, dann Drucken usw.?
06.11.2008 18:40:03
Uwe
Hi Selma,
probiere das mal:

Sub Drucken()
Dim I As Integer
Dim Anzahl As Integer
Range("C4").Value = InputBox("Bitte Startwert eingeben", "Start")
Anzahl = InputBox("Wie oft soll gedruckt werden?", "Anzahl")
For I = 0 To Anzahl - 1
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:=Default
Range("C4").Value = Range("C4").Value + 1
Next I
Range("C4").Value = Range("C4").Value - 1 'damit der Wert nach dem letzten Druck erhalten  _
bleibt
End Sub


Gruß
Uwe
(:o)

mal sehen ob ich es verstanden hab ,,,
06.11.2008 18:47:00
Matthias
Hallo Selma
Habe ich Dich richtig verstanden
Beispiel:
Inputbox = 10 dann
C4 = 1 und drucken dann
C4 = 2 und drucken dann
C4 = 3 und drucken dann
...
bis
C4 = 10 und drucken.
wenn ich Dich richtig verstanden habe, dann könnte dieses Grundgerüst dazu genutzt werden.
Ich habe allerdings keinen Drucker installiert und kann somit nicht testen.
Statt des Ausdrucks habe ich nur eine Msgbox als Anzeige
hier der Code:

Option Explicit
Sub Selma()
Dim FRAGE As String, x As Long, Y As Long
FRAGE = InputBox("wieviele Durchläufe", , 10)
If Not IsNumeric(FRAGE) Or FRAGE = "" Then MsgBox FRAGE & " ist keine Zahl - Abbruch": Exit Sub
Range("C4") = CLng(FRAGE)
For x = 1 To Range("C4")
Range("C4") = x
MsgBox "drucke Blatt" & x
Next
Range("C4").ClearContents
End Sub


Gruß Matthias

Anzeige
Y As Long ... kann wieder entfernt werden ...
06.11.2008 18:53:00
Matthias
Hi
... hatte ich nur vergessen wieder zu löschen. (Ist nur vom Testen übriggeblieben)
Gruß Matthias
AW: mal sehen ob ich es verstanden hab ,,,
06.11.2008 18:56:00
Uwe
Hi Selma, hi Matthias,
mit der Zeile:

If Not IsNumeric(FRAGE) Or FRAGE = "" Then MsgBox FRAGE & " ist keine Zahl - Abbruch": Exit Sub


ist man auf jeden Fall auf der sicheren Seite (bei mir müsste halt FRAGE durch Anzahl ersetzt werden, und am besten das gleich mit I in der ersten Inputbox).
In Punkto "sicheres Programmieren" bin ich leider manchmal noch "schluderig", verspreche aber mich zu bessern und habe die Zeile (siehe Zitat) auch schon in mein Archiv aufgenmmen.
Gruß
Uwe
(:o)

Anzeige
kleiner Fehler ?
06.11.2008 19:23:45
Matthias
Hallo Uwe
Hab Dein Beispiel mal probiert.
Ich habe jetzt mal, da ich keinen Drucker istalliert habe statt des Druckens
MsgBox "Drucke ... " eingestezt.
Gebe ich nun als Startwert 1 ein und als zu druckende Blätter eine Menge von 2 ein
so müsste Excel doch 2 Blätter drucken.
Ich bekomme aber 3 x die Box angezeigt.

hier Dein Code (nur mit ner MSGBox), so wie ich ihn getestet habe:

Sub Drucken()
Dim I As Integer
Dim Anzahl As Integer
Range("C4").Value = InputBox("Bitte Startwert eingeben", "Start")
Anzahl = InputBox("Wie oft soll gedruckt werden?", "Anzahl")
For I = 0 To Anzahl - 1
MsgBox "Drucke ... "
'ActiveWindow.SelectedSheets.PrintOut ActivePrinter:=Default
Range("C4").Value = Range("C4").Value + 1
Next I
Range("C4").Value = Range("C4").Value - 1 'damit der Wert nach dem letzten Druck erhalten _
bleibt
End Sub


Gruß Matthias

Anzeige
AW: kleiner Fehler ?
06.11.2008 21:08:50
Uwe
Hi Matthias,
ich habe Deinen Code bei mir in eine neue Mappe kopiert und gestartet:
Startwert: 1
Menge: 2
... und bei mir erschein die Msgbox nur zweimal, wie sie soll. Ich hatte das auch vorher schon gechecked und daher:
To Anzahl - 1
genommen.
Ich kann nicht nachvollziehen, wieso das auf Deinem Compi anders sein sollte?!
Wie ist denn bei der der Wert in Zelle C4 nachdem das Makro durchgelaufen ist? Bei mir ist es 2 und so sollte es auch sein!?
Gruß
Uwe
(:o)
alles ok ...
07.11.2008 05:08:43
Matthias
Hallo Uwe
Sorry, na klar hast Du das vorher getestet, mach ich ja auch immer so.
Habe gerade nochmal probiert. Alles paletti.
Keine Ahnung, was da gestern los war.
Da saß ich wohl zu lange vor der Kiste und hab irgendwas nicht mehr gerafft.
Naja, jetzt waren der Rechner (und ich auch) ja mal 3-4 Stunden aus ;o)
Sorry nochmal,
Gruß Matthias
Anzeige
AW: alles ok ...
07.11.2008 09:58:42
Selma
Vielen Dank Uwe !
Vielen Dank Matthias !
Liebe Grüße,
Selma

306 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
mehrere Zufallszahlen aus Bereich ohne Wiederholun
Dieterlem

Hallo Excelfreunde,
ich suche eine VBA-Lösung für Zufallszahlen. Ich habe zwar einiges gefunden aber konnte ich es nicht nach meinen Anforderungen anpassen.
Ich will eine bestimmte Anzahl (per Variable veränderbar) von Zufallszahlen generieren (Ganzzahlen).
Dabei dürfen keine Wiede...
19.08.2008 22:05:38
Thread-ID: 1003045
4 Beiträge
Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Erste Zahlen eine Tel.-Tabelle in Farbe
Bernie
Hallo,
in einer Telefontabelle, welche sich ständig ändert, möchte ich die ersten 4 Ziffern der Rufnummer per Makro rot einfärben.
Hat jemand eine gute Idee?
https://www.herber.de/bbs/user/54765.xls
21.08.2008 12:04:53
Thread-ID: 1003430
4 Beiträge
Umwandlung text nach zahlen bei Formulareingabe
Dieter

Hallo miteinander,
ich habe ein Problem mit der umwandlung von Text nach Zahlen. In meinem Formular habe ich Textfelder definiert, in dem eigentlich nur Zahlen eingetragen werden. Nun sollen diesen Werte in einer Zelle abspeichern und weitere Berechnung durchführen, leider werden diese Zahl...
26.08.2008 19:48:34
Thread-ID: 1004910
4 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
20
6
1
2
4
3
18
3
3
2
1
1
3
11
5
15
3
11
2
5
2
2
3
1