Registriert seit: 18.01.2016
Version(en): 2010
24.10.2016, 10:54
(Dieser Beitrag wurde zuletzt bearbeitet: 24.10.2016, 11:46 von technoente.)
Hallo Zusammen,
bei uns steht Inventur an und ich muss Inventurblätter drucken ( mit fortlaufender Nummerierung)
Diese sehen so aus
[url=
Dateiupload bitte im Forum! So geht es: Klick mich!]
Dort wo die Nummer steht soll z.B Nr. 1 - 50 mit dem Bereich FL_B
Dann wird der Bereich händisch geändert in z.B FL_G von 51- 70 etc.
Hoffe ihr könnt mir helfen
Registriert seit: 18.01.2016
Version(en): 2010
Und es wäre sehr gut wenn man z.B eine Visuelle Darstellung hat, da auch jemand davor gesetzt werden kann der nicht weiß wie es geht .
Z.B das in der Tabelle bzw nebendran steht :
Von Seite : Bis Seite :
1 50
und man dann druch änderndieser zahlen seine Nummerierung bekommt
Registriert seit: 13.04.2014
Version(en): 365
Hallo,
und es wäre sehr gut, wenn der, der Links im Beitrag einstellt, diese auch durchliest und danach handelt!!!!!!!!!
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 18.01.2016
Version(en): 2010
Danke für die Information , das hatte ich nicht gesehen ! Sorry.
Hoffe so passt es? Habe es per Attachments hinzugeüfgt nur der Link steht immernoch da ?!
Registriert seit: 13.04.2014
Version(en): 365
Hallo,
eine Excel-Tabelle wäre sinnvoller als ein Bild!
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 18.01.2016
Version(en): 2010
24.10.2016, 12:20
(Dieser Beitrag wurde zuletzt bearbeitet: 24.10.2016, 12:21 von technoente.)
TestFormular.xls (Größe: 59,5 KB / Downloads: 12)
Hoffe das ist so richtig?
LG
Registriert seit: 13.04.2014
Version(en): 365
Hallo,
eine Möglichkeit:
Code:
Sub Print_Seite()
Dim wert As String
Dim n As Long, i As Long
n = CLng(InputBox("Bitte geben Sie die Anzahl der Exemplare ein:", "Wie viele Exemplare:", "1"))
wert = InputBox("Nr. der Startseite?", "Startseite eingeben")
If wert = "" Then wert = 1
i = CLng(wert)
For i = 1 To n
[AR2] = i & " von " & n
ActiveSheet.Printout
Next i
End Sub
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 18.01.2016
Version(en): 2010
24.10.2016, 15:14
(Dieser Beitrag wurde zuletzt bearbeitet: 24.10.2016, 15:14 von technoente.)
Wow, super danke !
Nur steht nun oben 1 von 10 , 2 von 10 etc. kann man das noch abstellen, sodass man nur 1 , 2 , 3 stehen hat?
hat sich erledigt habs selbst gefunden :O=
Woher kannst dusowas? Gibts Lektüren wo man als blutiger Afnger in VBA einsteigen kann?
LG und vielen vielen Dank !!!
Registriert seit: 13.04.2014
Version(en): 365
Hallo,
Zitat:Woher kannst dusowas?
Ich habe 10Min. gegoogelt und dann probiert.
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 18.01.2016
Version(en): 2010
hallo
ich bins nochmal .
leider klappt das mit der vba doch nicht so .
wenn ich die zahlen eingebe zb. 2 seiten drucken und im 2. fenster dann startseite als 5 festlege druckt er immer ab seite 1
woran liegt das?