Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckauftrag. Beitrag v. 30.05.2000

Druckauftrag. Beitrag v. 30.05.2000
08.07.2003 15:59:04
lars
hab da gerade was zu meinem problem bei ihnen in einem betrag vom 30.05.2000 gefunden
wer kann mir jetzt bei zwei kleinen problemen helfen:
1. der commandbutton befindet sich auf sheet "menü"; gedruckt werden soll sheet "Rechnung"
2. seiten ansicht ist überflüssig -es soll nur gedruckt werden, ohne eine weiter maske zu bestätigen....
wer kann mir den vba code so umschreiben?
ist sehr wichtig!
Vielen dank!!!!!!!!
lars

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckauftrag. Beitrag v. 30.05.2000
08.07.2003 16:00:57
RAnton
Hallo Lars,
und wo ist der Code?
Gruß
RAnton

AW: Druckauftrag. Beitrag v. 30.05.2000
08.07.2003 16:03:42
lars
der code:
Option Explicit

Sub Drucken()
Dim intRow As Integer, intTmp As Integer
For intRow = 1 To 4
If Cells(Rows.Count, intRow).End(xlUp).Row > intTmp Then
intTmp = Cells(Rows.Count, intRow).End(xlUp).Row
End If
Next intRow
ActiveSheet.PageSetup.PrintArea = Range("A1:F" & intTmp).Address
ActiveSheet.PrintPreview
End Sub

danke!!!!!

AW: Druckauftrag. Beitrag v. 30.05.2000
08.07.2003 16:50:23
RAnton
Hallo,

Sub Drucken(sh as string)
Dim intRow As Integer, intTmp As Integer
For intRow = 1 To 4
If Cells(Rows.Count, intRow).End(xlUp).Row > intTmp Then
intTmp = Cells(Rows.Count, intRow).End(xlUp).Row
End If
Next intRow
sheets(sh).PageSetup.PrintArea = Range("A1:F" & intTmp).Address
sheets(sh).PrintPreview
End Sub

Du kannst jetzt die Routine so aufrufen:
Drucken("Rechnung")
dann wird das Sheet Rechnung gedruckt.
Viel Glück
RAnton

Anzeige

306 Forumthreads zu ähnlichen Themen

Zellen- Inhalt auf Zahl 0 zurücksetzen
Lemmi

Hallo zusammen,
ich habe eine Arbeitsliste in der durch eine Drop- Down Menü Auswahl 0,1,2,3 sowie Leerstelle- Auswahl durchgeführt wird. (ab Spalte M6)
In der Spalte ab O6 wird eine Bewertung Durchgeführt. Diese wird auch durch Drop- Down umgesetzt!
Wird nun in der Spalte O di...
02.09.2008 17:35:00
Thread-ID: 1006885
12 Beiträge
Anzeige
Zellen füllen, ohne Formel zu überschreiben
m-andi

Hallo zusammen,
Folgendes Problem, ich möchte über ein Seperates Feld über die vorgaben "tags, nachts, immer" felder mit Ja oder nein füllen, hier sollen quasi immer profile eingesetzt werde, sprich nachts ist z.B. das ein "ja" von 22-5Uhr ist, der rest dann ein "nein".
Nun kann ich dem...
14.11.2008 09:23:00
Thread-ID: 1024423
4 Beiträge
Laufzeitfehler 1004 bei Formeleinfügen in Zelle
Werner

bei folgender Formel
ActiveCell.FormulaR1C1 = "=RC[-2]*100/RC[-1]"
erhalte ich Laufzeitfehler 1004. Woran kann es liegen?
Gruß Werner.
26.11.2008 14:31:29
Thread-ID: 1028037
7 Beiträge
Anzeige
Zahlen ohne Formeln !!
Wacker

Hallo,
ich habe diverse Berechnungen durchgeführt.
Ich benötige aber nur noch die Zahlen aus den Ergebniss, aber nicht die Formeln.
Wie kann ich die Zahlen die durch Formeln berechnet wurden nun als Feste Zahlen übernehmen.
Ich hoffe ich habe es richtig erklärt?
Vielen Dank!...
24.01.2009 09:41:17
Thread-ID: 1043269
4 Beiträge
Zahlen ohne Formeln !!
Wacker

Hallo,
ich habe diverse Berechnungen durchgeführt.
Ich benötige aber nur noch die Zahlen aus den Ergebniss, aber nicht die Formeln.
Wie kann ich die Zahlen die durch Formeln berechnet wurden nun als Feste Zahlen übernehmen.
Ich hoffe ich habe es richtig erklärt?
Vielen Dank!...
24.01.2009 09:41:23
Thread-ID: 1043270
5 Beiträge
Zeit auf 5 Minuten runden?
Hermann

Hallo Excel-ianer,
wie kann ich eine eingegebene Uhrzeit auf volle 5 Minuten runden?
Also 7:01 bis 7:02 auf 7:00 Uhr
und 7:03 bis 7:07 auf 7:05 Uhr
Meine selbstgebastelte Formel ist etwas länglich geraten.
In A2 stehe die Zeit, z.B. 07:03:00 ,
und die Formel soll dann...
16.02.2009 15:23:00
Thread-ID: 1051172
4 Beiträge
auf volle Euro aufrunden
Bernd

Hallo liebe Helferlein,
ich habe in der Recherche leider nichts gefunden.
Ich benötige eine Formel, die immer auf den nächst vollen Euro aufrundet.
aus z.B. 1.860,48 wird 1.861,00
vielen lieben Dank für Eure Hilfe
Gruss Bernd
23.02.2009 10:41:15
Thread-ID: 1052992
2 Beiträge
Laufzeitfehler 1004 Range für Objekt Global fehl..
Mette

Hallo zusammen,
ich erhalte die Fehlermeldung 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".
Kann damit schier nichts anfangen. Mit folgendem Code sollen in Zeile 1 die Spalten 1 bis 3, 4 bis 6 und 7 bis 9 verbunden werden:
Sub neu() Zeile = 1 For Spalte =...
23.03.2009 15:05:04
Thread-ID: 1062922
3 Beiträge

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
11
5
3
6
3
3
4
3
1
2
1
1
8
2
5
2
2
1
4
3
2
1
2
10
2