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
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ziffern per Userform ausdrucken

Forumthread: Ziffern per Userform ausdrucken

Ziffern per Userform ausdrucken
29.03.2003 10:24:25
Lucien
Hallo alle miteinander.
Also ich habe eine Userform und einen Bouton mit dem bereits angegebenen Code.

Ich möchte folgendes.
Wenn ich in die Textbox Zahl 5 eingebe und den Bouton drücke ,dann soll Excel die Nummer 5 schreiben und ausdrucken.
Bei Zahl 7 soll er die 7 ausdrucken. u.s.w
Es sollte aber auch möglich sein in die Textbox die z.B. die Zahlen 1-5 einzugeben und dann die Zahlen 1,2,3,4,5, audgedruckt werden.
Ich brauche dies um Palletten zu numeriern

Vielen Dank im voraus
Lucien

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Ziffern per Userform ausdrucken
29.03.2003 11:37:08
ChrisL

Hallo Lucien

If Me.Textbox1.Value = "1" Then go to a:
A:Sheets("Stock").select
Range ("B4").Select
ActiveCell.FormulaR1C1 ="1"
ActiveWindow.SelectedSheets.printOut Copies:=1,Collate:=True


versuch es mal so...

Sheets("Stock").Range("B4") = TextBox1
Sheets("Stock").PrintOut Copies:=1, Collate:=True

Gruss
Chris


Anzeige
Re: Ziffern per Userform ausdrucken
29.03.2003 11:41:58
Lucien

Hallo ChrisL

Das funktioniert gut, aber ich möchte auch z.B. wenn ich in die Textbox 1-10 eingebe, dass dann Excel Jeweils eine Seite mit nachfolgender Zifferausdruckt also ein Blatt mit der ziffer 1
ein Blatt mit der Ziffer 2 u.s.w.
Gruss Lucien

Re: Ziffern per Userform ausdrucken
29.03.2003 11:58:42
ChrisL

Hallo Lucien

Aha jetzt versteh ich... Ist denn der Bereich 1-10 fix oder kann es auch ein 1-100 geben? ginge evtl. eine Listbox mit der Option Multiselect? Oder 10 Checkboxen oder so...

Chris

Anzeige
Re: Ziffern per Userform ausdrucken
29.03.2003 12:53:45
gordon

Hallo,

alternativ auch den String in der Textbox auslesen und in eine Schleife basteln

a = "10-70"
Max = Mid(a, InStr(1, a, "-") + 1)
Min = Left(a, InStr(1, a, "-") - 1)

Gruß
gordon

Re: Ziffern per Userform ausdrucken
29.03.2003 13:43:53
Lucien

Hallo ChrisL

Es kann auch eine 1-100 geben oder 1-20 u.sw.

Dqnke im voraus

Anzeige
Re: Ziffern per Userform ausdrucken
29.03.2003 20:39:38
gordon

Hallo Lucien,

a = "10-70" war nur ein Beispiel - Baue den Code mal ein und setze a=Textbox.value und Du wirst sehen, daß Max und Min unabhängig von der Zahlenlänge richtig belegt werden.

Gruß
gordon

Re: Ziffern per Userform ausdrucken
30.03.2003 13:09:40
ChrisL

Hallo Lucien

Versuchs mal mit nachfolgendem Code... Könnte man sicher noch etwas besser programmieren, aber z.B. 1-20 sollte funktionieren und auch wenn du ne einzelne Zahl eingibts, das mit dem Komma ist im Moment aber noch unberücksichtigt.

Option Explicit

Private Sub CommandButton1_Click()
Dim Bereich As String
Dim Max As Long, Min As Long, i As Long
On Error GoTo errorhandler

Bereich = InputBox("Bitte Zahl eingeben: ")

Max = Mid(Bereich, InStr(1, Bereich, "-") + 1)
Min = Left(Bereich, InStr(1, Bereich, "-") - 1)

For i = Min To Max
Sheets("Stock").Range("B4") = i
Sheets("Stock").PrintOut Copies:=1, Collate:=True
Next i

Exit Sub
errorhandler:
Sheets("Stock").Range("B4") = Bereich
Sheets("Stock").PrintOut Copies:=1, Collate:=True
End Sub


Gruss
Chris

Anzeige
;

Forumthreads zu verwandten Themen

Einzelne Zeilen markiert ausdrucken
Urmila

Hallo gemeinsam,
ich habe eine Liste mit verschidenen Personen, soetwas wie eine Verteilerliste.
Da die Liste umfangreich ist und ich nicht immer wieder die einzelne Person markieren muss und ausdrucken muss, gibts da sicherlich was dazu....
Fall:
In den Spalten A bis E stehen I...
22.09.2008 10:01:00
Thread-ID: 1011388
3 Beiträge
fixierte Zeile beim Ausdrucken anzeigen
skuehmichel

Hallo.
Ich habe eine Tabelle in der ich eine Zeile fixiert habe so das ich beim scrollen immer den Überblick hab welche beschriftung diese spalte nun hat. Beim Ausdrucken bekomme ich diese Zeile allerdings nur einmal angezeigt und zwar als erstes. möchte aber das sie auf jedem neuen Blatt o...
30.09.2008 16:43:00
Thread-ID: 1013448
2 Beiträge
Spalte nicht ausdrucken
Edwin

Hallo,
ich möchte in einem Sheet, dass eine bestimmte Spalte nicht ausgedruckt wird.
Ich weiß, dass ich Spalten ausblenden kann und dass diese dann nicht ausgedruckt werden.
Kann ich aber auch der Spalte die Eigenschaft zuweisen, dass sie nicht ausgedruckt wird?
Gruß
Edwin
05.11.2008 10:42:43
Thread-ID: 1021789
4 Beiträge
Outlook 2007-erste Seite ausdrucken
Susanne

Hallo zusammen,
ich weiß, dass ich die Frage nicht hier stellen sollte, da es sich lediglich um Outlook und nicht Excel Fragen handelt. Nun ich habe schon überall im Google auf die Lösungen gesucht und alle sind verzweifeln! Da ihr aber VBA Profi seid, versuche ich mal die Frage Euch zu ste...
16.11.2008 15:30:36
Thread-ID: 1024918
2 Beiträge
Anzeige
bestimmte PDF-Seite ausdrucken
sepp

Hallo
habe aus dem Forum ein Programm zum Ausdrucken
von Pdf Dateien:
Public Product
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal...
18.11.2008 20:15:18
Thread-ID: 1025777
3 Beiträge
Tabelle auf DIN A 4 ausdrucken
Kathryn

Hallo,
ich habe eine Excel Tabelle, die ich nun ausdrucken möchte. Leider passt die Tabelle beim ausdrucken nicht auf ein DIN A 4 Blatt. Kann ich das irgendwie konfigurieren oder muss ich die Schrift noch kleiner machen?
Gruß.
01.12.2008 17:06:00
Thread-ID: 1029307
3 Beiträge
Mit Excel Macro Powerpoint Datei ausdrucken.
DirkR

Hallo zusammen,
ich habe ein Problem mit einem Makro und bin leider bei der Recherche nicht fündig geworden:
Über ein VBA Makro in Excel möchte ich gerne eine Powerpointdatei welche bereits geöffnet ist ausdrucken,
und zwar achtmal auf einem bestimmten Drucker.
Habt Ihr einen Ti...
22.12.2008 16:34:48
Thread-ID: 1034802
2 Beiträge
Clipboardinhalt ausdrucken
gröbi

Hallo,
ich möchte den Inhalt einer Listbox mit PDF-Creator ausdrucken. Der Inhalt der Listbox ist größer als die Maße der Listbox, weshalb der Ausdruck des Formulares nicht in Erwägung kommt. Ich habe den Inhalt in eine Texdatei (.txt) transportiert. Doch dort kann eine Schriftart vorgegebe...
15.02.2009 14:33:00
Thread-ID: 1050877
3 Beiträge
Website per makro ausdrucken
meixner

Hallo zusammen,
möchte per makro aus dem Excel eine Website automatisch ausdrucken?
Pfad der Datei ist:
http://www.stoxx.com/download/data/change_files/corporate_actions_tmi_components.txt
Kann mir jemand mit dem Makro helfen? Habe noch keine Idee.
Vielen Dank
Dani
27.04.2009 15:17:24
Thread-ID: 1071397
2 Beiträge
Zähler für Ausdrucke
Ralf

Hallo Zusammen,
ich habe da wieder mal ein Problem.
Ich habe eine Datei in der Aufträge erfasst werden. Ein Eingabeblatt mit einer Zeile pro Auftrag und 3 Ausgabeblätter in denen die Daten per Sverweis unter Angabe der Auftragsnummer übertragen werden. Ich möchte jetzt einen Zähler pro...
20.05.2009 14:42:54
Thread-ID: 1076382
16 Beiträge
Anzeige
Chart Filter mit dem Chart ausdrucken
Markus

Hallo zusammen,
Ich hoffe irgendwer kann mir weiterhelfen. Ich habe ein Pivot Chart und möchte dieses ausdrucken.
Soweit so gut, allerdings wie bekomme ich die eingestellten Filter mit auf den Ausdruck?
Wenn ich die Charts jetzt drucke, habe ich keine Ahnung mehr was im Filter einge...
11.09.2009 11:36:27
Thread-ID: 1101812
4 Beiträge
WebBrowser -> ausdrucken
Holger

Hallo zusammen,
wie kann ich den Inhalt des WebBrowser ausdrucken. Möchte das Programmiertechnisch anstossen.
Gruss
Holger
11.09.2009 14:20:33
Thread-ID: 1102027
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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