Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl der zu druckenden Blätter zählen

Forumthread: Anzahl der zu druckenden Blätter zählen

Anzahl der zu druckenden Blätter zählen
sepp
hallo!
ich benötige eine lösung für eine exceltabelle.
ich muss einmal im monat die weckliste ausdrucken, ich möchte mir aber das editieren jedes einzelnes blattes sparen.
im bereich des datums (tag) soll der wert automatisch gesetzt werden, wenn ich die anzahl der zu druckenden blätter an den drucker sende.
30 x druckauftrag
1. druckauftrag in zeile soll stehen: 01. november 2010
2. druckauftrag in zeile soll stehen: 02. november 2010
3. druckauftrag in zeile soll stehen: 02. november 2010
. . .
30. druckauftrag in zeile soll stehen: 30. november 2010
ich fand mal ein script, aber das funktioniert nicht mit office 2003
hätte da jmd einen vorschlag oder lösung?
gruss
sepp
Anzeige
AW: Anzahl der zu druckenden Blätter zählen
09.11.2010 09:44:22
Tim
Mag sein, dass das ein wenig umständlich ist, Aber du brauchst meiner meinung nach 4 Zellen mit Infos: Jahr, Monat , AnfangsTag (1) Endtag (z.B. 30 ).
Dann in VBA ne Schleife von Anfangstag bis Endtag schreiben und dir jeweils das Datum dementsprchen zusammensetzen und in die Betreffende Zelle schreiben lassen. .value = Tag & "." & Monat & " " & Jahr
und dann innerhalb der schleife den Druckauftrag senden :
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Ich habe die Erfahrung gemacht, dass VBA schneller Druckaufträge sendet, als der Druckker sie entgegennehmen kann, daher empfielt sich nach dem Druckauftrag das einblenden einer MsgBob. Das bringt eine kurze Pause und mann kann weiterklicken, wenn der Drucker den Auftrag entgegengenommen hat.
Dim Antwort
Antwort = MsgBox(" ist der Drucker wieder bereit?", vbOKCancel, "Etiketten drucken")
Hoffe ich konnte helfen, bei weiteren Fragen einfach melden
Gruß
Tim
Anzeige
AW: Anzahl der zu druckenden Blätter zählen
09.11.2010 12:22:29
sepp
hallo tim!
danke für die schnelle antwort.
ich bin nicht gerade der crack in vba... ich hatte mal die grundkenntnisse vor 11 jahren in einem programmierkurs gelernt... aber seitdem nicht mehr gebraucht...
da ja monat und jahr (im grunde) statisch sind, benötige ich nur das tagesdatum.
eine msgbox macht meisstens stress beim benutzer, besser wäre es eine kleine pause einzulegen, ähnlich wsh "sleep 5" oder so in der richtung...
script: 
Sub Tageszaehler()
' Dieses Programm druckt die aufsteigende Tage in der
' Excel Weckliste
Dim xzellwert As Integer
Dim yzellwert As Integer
Dim startnummer As Integer
Dim endnummer As Integer
Dim ausdrucke As Integer
Dim i As Integer
'Tageseingabe:
startnummer = Application.InputBox("Bitte Tag eingeben für ERSTER Tag: ")
endnummer = Application.InputBox("Bitte Tag eingeben für LETZTER Tag: ")
ausdrucke = endnummer - startnummer + 1
'Zelleingabe
xzellwert = Application.InputBox("Bitte Spalten-nummer der variablen Zelle eingeben: ")
yzellwert = Application.InputBox("Bitte Zeilen-nummer der variablen Zelle eingeben: ")
' Bestaetigung der Eingabewerte:
MsgBox "Ihr Tagesdatum ist in SPALTE " & xzellwert & " / ZEILE " & yzellwert _
& ". Sie starten den DRUCK bei Tag: " & startnummer _
& " und enden bei Tag: " & endnummer & _
". Bitte legen Sie die folgende Anzahl an Blaettern in Ihren Standarddrucker ein: " _
& ausdrucke & ". Danach drücken Sie bitte OK!!! " & _
"V O R S I C H T!!! - Alle Blätter werden OHNE UNTERBRECHUNG ausgedruckt!", _
vbYesNoCancel
'Seriendruck
For i = startnummer To endnummer
ActiveSheet.Cells(yzellwert, xzellwert).Value = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
'ActiveWorkbook.Sheets("Tabelle1").Range("Test").Value = "Test1"
'Beendigung des Druckauftrages
'MsgBox "Folgende Anzahl an Blaettern wurde auf Ihrem Standarddrucker gedruckt: " _
'& ausdrucke, vbOKOnly
End Sub
bei diesem script hab ich eben das problem, dass es zwar 30 seiten druckt, aber nichts im feld drinne steht.
danke, gruss sepp
Anzeige
AW: Anzahl der zu druckenden Blätter zählen
09.11.2010 12:53:24
Tim
Hallo Sepp,
Ich habe das Script gerade ausprobiert und es schein mir zu funktionieren. ( Habs mit zelle 1A probiert ) und da schreibt er mir die Zahlen 1 bis 30 rein und druckt dann.
Fehlerquellen die mir einfallen:
1. Ist denn auch das richtige Tabellenblatt aktiviert ? benutze mal Worksheets("Tabellename").Cells anstatt ActiveSheett
2. Liegt die Zelle die du ansteuert im zu druckenden Bereich ? ... Druckbereich festlegen.
3. Formatierung der Zelle in die er schreibt. ( Schrift sollte nicht Weis sein )
Setze doch mal einen Haltepunkt bei ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ( Links neben die Zeile in den graue Bereich klicken und ein gelber Punkt erscheint und die Zeile wird markiert, dann kannst du im Excelfenster nachprüfen, welche Zelle er denn verändert hat.
Gruß
Tim
Anzeige
AW: Anzahl der zu druckenden Blätter zählen
09.11.2010 15:03:05
sepp
hallo tim!
kann ich die abfrage der zu verändernden zelle festlegen, so dass die abfrage nicht kommt?
ActiveSheet.Cells(yzellwert, xzellwert).Value = i
also das nur start und endtag abgefragt werden...
gruss
sepp
AW: Anzahl der zu druckenden Blätter zählen
09.11.2010 15:17:47
Tim
Ich verstehe deine Frage nicht zu 100 %.
Klar kannst du den Zellbezug festlegen. Einfach anstatt yzellwert und xzellwert feste Werte nehmen. z.B. 1 und 1 für festen Bezug auf Zelle A1.
ActiveSheet.Cells(1,1).Value = i
Falls ich jetzt auf dem falschen Dampfer bin, formuliere die Frage bitte anderst
Anzeige
AW: Anzahl der zu druckenden Blätter zählen
09.11.2010 15:41:48
sepp
ich hab das hinbekommen tim ;)
nun bräuchte ich noch ein clickevent neben dem druckbereich, der das macro startet.
hast du da nen vorschlag?
ich kann mich dunkel an einen befehl namens "call" erinnern...
AW: Anzahl der zu druckenden Blätter zählen
09.11.2010 15:49:36
sepp
ich hab das hinbekommen tim ;)
nun bräuchte ich noch ein clickevent neben dem druckbereich, der das macro startet.
hast du da nen vorschlag?
ich kann mich dunkel an einen befehl namens "call" erinnern...
Anzeige
AW: Anzahl der zu druckenden Blätter zählen
09.11.2010 15:44:39
Rudi
Hallo,
Anfangsdatum in Weckliste!A1 schreiben und Makro starten.
In ein Modul: 
Sub WeckListe()
Dim lngDate As Long, dteDatum As Date
dteDatum = Range("A1")  'anpassen
For lngDate = dteDatum To DateSerial(Year(dteDatum), Month(dteDatum) + 1, 0)
With Sheets("Weckliste")
.Range("A1") = Format(lngDate, "DD.MMMM.YYYY") 'anpassen
.PrintOut
End With
Next
End Sub

Gruß
Rudi
Anzeige
Ergänzung
09.11.2010 15:54:17
Rudi
Hallo,
Wenn Weckliste!A1 geändert wird, wirst du gefragt, ob du drucken willst.
In das Modul der Tabelle: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If MsgBox("Ausdruck starten?", vbYesNo, "Drucken") = vbYes Then
On Error GoTo ERRHDL
Application.EnableEvents = False
WeckListe
End If
End If
ERRHDL:
Application.EnableEvents = True
End Sub

Gruß
Rudi
Anzeige
AW: Ergänzung
09.11.2010 16:45:54
sepp
hallo tim, hallo rudi!
hat geklappt, script läuft ;)
ich sollte mich wirklich wieder dahinter klemmen...
danke für die hilfe!
;

Forumthreads zu verwandten Themen

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
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzahl identischer Einträge in 2 Spalten ermitteln
Christian

Hallo zusammen,
ich möchte die Anzahl identischer Werte in zwei spalten ermitteln.
Die erste Spalte enthält eindeutige Werte (Artikelnummern).
Die zweite Spalte enthält eine Teilmenge der ersten Spalte (Bestimmte Artikel, die beobachtet werden sollen).
Im Übersichtsichtsbereic...
11.06.2009 14:56:03
Thread-ID: 1080747
5 Beiträge
Dateien Zählen mit VBA 2003 Mac
Jan

Hallo!
Wie erstellt mann einen Macro die die Anzahl an Dateien in einen Verzeichnis ermittelt. Dazu habe ich verschieden Beispiele gefunden die mit "FileSearch" arbeiten. Leider verwende ich Excel 2003 für Apple, wo dieser Funktion nicht vorhanden ist. Vielleicht kennt jemand einen Workarou...
23.06.2009 16:02:28
Thread-ID: 1083851
3 Beiträge
Anzeige
ArrayFormel zählenwenn mit VBA?
MBorn

Hallo,
ich versuche schon ein Weilchen, die Anzahl übereinstimmender Werte in Zeilen zu zählen.
mit
{=ZÄHLENWENN(INDIREKT("A"&I$1+1):INDIREKT("G"&I$1+1);$A2:$G2)}
klappt es.
Im blauen Bereich wird geprüft, wie viele Werte aus dem roten Bereich der selben Zeile mit<...
29.06.2009 12:15:01
Thread-ID: 1085034
6 Beiträge
Anzahl oder Zählen mit 2 Variablen
Holger

Hallo,
ich finde einfach keine Lösung, habe es mit Matrixformeln probiert, kriege es aber nicht hin.
Ich habe eine Liste mit einigen Städtenamen und einem dazugehörigen Datum. Alles andere in der Liste ist nicht ausschlaggebend.
Ich möchte gerne in einem anderen Register die Summe d...
10.07.2009 13:42:27
Thread-ID: 1087680
16 Beiträge
Zahlen mit VBA Aufsummieren
Beno

Hallo Leute,
habe folgende Situation:
in Tabellenbereich C5:C29 habe ich alle Zellen verknüpft mit eine andere Tabelle mit formel z.B
C5=Wert aus Q10, C6=Wert aus Q11 usw., ist immer pro Woche (Mo-SA) soweit alles ok. Nacher gebe ich die Wochenzahlen in eine zusätzliche Tabelle mit...
03.09.2009 08:15:48
Thread-ID: 1100224
9 Beiträge
Anzahl der Spalten aus RefEdit
Frank P

Hallo,leider komm ich bei folgenden Problem auf keinen Lösungsansatz.
Wie kann ich die Anzahl der spalten & der Zeilen des in einem RefEdit-feld erfassten Bereiches berechnen?vielen Dank im vorausFrank p


17.04.2002 08:34:34
Thread-ID: 113955
3 Beiträge
Anzeige
Anzahl der Spalten zu wenig?
Huber

Hallo,
ich habe eine Tabelle mit 91 Spalten. Wenn ich jetzt , z. B: 12 Spalten ausblenden will, kommt die Meldung "Objekte können nicht über das Blatt hinaus verschoben werden". Was ist da falsch, wenn ich 12 Spalten ausblenden, ist sdoch das Blattende nicht erreicht. Wer kann mir helfen?
16.02.2010 10:50:18
Thread-ID: 1138829
15 Beiträge
Anzeige
Lottozahlen mit VBA, Kontrollkästchen Frage
Niklas

Guten Tag,
ich muss einen Lottoschein erstellen.
Ich habe für díe 1-49 Zahlen jeweils Kontrollkästchen gemacht.
Nun möchte ich wissen, wie ich es machen kann, dass 6 Kästchen aktiviert werden können.. nicht mehr und nicht weniger.
Zudem würde ich gerne wissen wie ich den Kontrol...
25.02.2010 10:35:24
Thread-ID: 1141373
6 Beiträge
Anzahl von Textwerten in Spalte mit VBA
Textwerten

Hallo Forum,
ich muss aus einer (sehr) langen Liste von unterschiedlichen Text-Werten die Anzahl der einzigartigen Vorkommen ermitteln. Und zwar mit VBA.
Das sieht in etwa wie folgt aus:
AA
BB
CC
AA
AA
BB
Das Ergebnis wäre simple und einfach: 3
Es funktio...
27.04.2010 17:21:49
Thread-ID: 1154135
12 Beiträge
Zählenwenn mit 2 Bereichen mit VBA
Dietmar

Hallo zusammen,
mit einer Excelformel bekomme ich es hin, aber leider nicht mit VBA.
Wie lautet derIf-Code wenn ich 2 Bereiche darauf überprüfen möchte, ob in ihnen eine Zahl Wenn dies der Fall ist, dann soll eine msgbox darauf hinweisen.
Die Formel wäre z.B: =Zählenwenn(A2:A19;"...
12.07.2010 23:01:00
Thread-ID: 1166720
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige