VBA-Fragen

Forumthread: VBA-Fragen

VBA-Fragen

25.02.2004 13:09:58

Martin Breddemann

Hallo an alle!
1)Ich hab einen Button erstellt, den ich benannt habe "zeile kopieren". Jetzt möchte ich die Benennung so ergänzen "zeile kopieren und einfügen". Wobei ich das 'und einfügen' darunter haben will. Wie geht das, dass ich das darunter habe ?
2)Ich habe ein Tabellenblatt mit 38 Seiten. Die 38 Seiten werden mir angezeigt weil ich in jeder Zeile eine Vorgangsnummer drinstehen habe. So meine frage dazu: Ich muss immer wieder mal einen Ausdruck von den Seiten machen, die bisher beschrieben wurden. Das sind im moment 7 Seiten. In Spalte B wird immer eine Nummer eingetragen, sobald ein Auftrag gekommen ist. Ich möchte einen Button machen 'drucken', dass wenn ich den klicke auch nur alles ausgedruckt wird, wenn diese Nummer auch drinsteht. Also Vorgangsnummer sind in Spalte A bis Zeile 1500 oder so. Und die Nummer in Spalte B wird erst in jede Spalte mit Vorgangsnummer eingetragen, sobald der Auftrag auch gekommen ist. Und genau bis dahin möchte ich den Druckbefehl dann haben. Also spaltenbedingt sozusagen. Wenn in Spalte B was drinsteht - Ausdrucken.
Danke schonmal
mfg martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA-Fragen - 1.Teil - NOCH OFFEN

25.02.2004 13:14:52

Galenzo

AW: VBA-Fragen

25.02.2004 13:17:01

Bert

AW: VBA-Fragen

25.02.2004 13:17:59

Suppenhuhn

AW: VBA-Fragen

25.02.2004 13:25:44

xXx

AW: VBA-Fragen

25.02.2004 14:01:28

Martin Breddemann

AW: VBA-Fragen - 1.Teil - NOCH OFFEN

25.02.2004 13:14:52

Galenzo

Hallo Martin,
zunächst nur zu deiner 1. Frage:
der Zeilenumbruch wird mit der Konstanten vrLF erzeugt - also so:
CommandButton1.Caption = "zeile kopieren" & vbLf & "und einfügen"
mfg

AW: VBA-Fragen

25.02.2004 13:17:01

Bert

zu1: shift + enter
Bert

AW: VBA-Fragen

25.02.2004 13:17:59

Suppenhuhn

Zu Punkt 1:
Einfach den Zwischenraum zwischen 'kopieren' und 'und' mit Leerzeichen auffüllen, bis der Text in die zweite Zeile rutscht.
Zu Punkt 2 kann ich leider nichts sagen.
Gruß,
Suppi

AW: VBA-Fragen

25.02.2004 13:25:44

xXx

Hallo,
in DieseArbeitsmappe:


Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name="Tabelle1" Then
ActiveSheet.PageSetup.PrintArea = "A1:D" & Range("B65536").End(xlUp).Row
End If
End Sub

Wenn das aktuelle Blatt "Tabelle1" heißt wird der Druckbereich auf A1:Dxx festgelegt. xx=letzte in B gefüllte Zeile.
Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen an die Antworter!

AW: VBA-Fragen

25.02.2004 14:01:28

Martin Breddemann

Hallo und danke für die Antworten an alle :)
Shift+Enter klappt super. Danke
Und xXx der Druckbereich wird exakt angezeigt. Auch Danke dafür! Kann man es auch so machen, dass auch gleich das ausgewählte gedruckt wird, sobald ich auf den button drücke ? Das würde dann alles vereinfachen.
mfg martin

Beliebteste Forumthreads (12 Monate)

Forumthread: VBA-Fragen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread