Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckauftrag. Beitrag v. 30.05.2000

Forumthread: 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
Anzeige

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!!!!!

Anzeige
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
;

Forumthreads zu verwandten 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
immer auf die volle Zahl abrunden
Frank

Guten Abend,
Wie bekommt man in Excel es hin, das immer auf die nächst kleinere Zahl, ohne Komma, abgerundet wird?
zum Beispiel
10,14 auf 10
oder 15,99 auf 15
Gruß Frank
PS: unter welchem Suchkreterium kann ich es nachlesesn?
12.10.2008 20:37:00
Thread-ID: 1015905
6 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
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
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
Einen Feldnamen in Formel einbauen !?!??
Karlheinz

Hallo !
Vielleicht gab es diese odr ähnlich Frage schon habe aber leider nix gefunden daher stelle ich diese einfacvh mal !
Habe eine Liste die aus zZt. 12300 Zeilen besteht und ca. Spalten bis AU
jetzt variieren die Zeilen des öfteren und ich möchte nicht immer in jeder Spalte den...
30.03.2009 22:42:02
Thread-ID: 1065455
2 Beiträge
Anzeige
Koeffizienten in Formel einbinden
Kurt

Hallo Forum,
ich wende mich an Euch mit folgender Bitte.
Ich habe eine Formel in Spalte B. Diese Formel hat als EIngangsvariable die Werte der Spalte A.
Die Koeffizienten stehen in den Zeilen 1 bis 4 (a,b,c,d).
Ich suche nun einen Weg (Makro), die Koeffizienten per Makro in ein...
28.03.2010 22:06:00
Thread-ID: 1148981
3 Beiträge
zellen einfuegen aber ohne formeln
exxxes

Hallo,
weiss jemand zufaellig wie man zellen in excel einfuegen kann (e.g. "restlichen zellen nach unten verschieben"), aber ohne die komplette formel, sondern nur die werte, oder nur die werte und das format?
03.08.2010 11:08:11
Thread-ID: 1170147
2 Beiträge
Aufrunden / Abrunden Uhrzeit
amintire

Hallo liebe Excel Freunde,
ich benötige eine Mathematische Formel um Uhrzeiten auf- bzw. abzurunden.
z.B. Ungefähr so:
Tag von bis von bis
06.0...
08.11.2010 10:39:42
Thread-ID: 1185630
5 Beiträge
Datum "05.06.2011" aufbrechen
braleta

Hallo Excel-ianer,
wie kann ich mit VBA am "einfachsten" ein Datum in der Formatierung tt.mm.jjjj aufbrechen, dass ich drei Strings in der Form tt, mm und jjjj erhalte?
Am liebsten wäre mir eine Lösung mit einem Array, weil ich dieses dann als Parameter weitergeben kann/könnte.
Herz...
14.04.2011 01:58:11
Thread-ID: 1210326
4 Beiträge
Runden auf 0,5
Martin

Ich möchte Währungsbeiträge auf 5 Cent genau runden. Das heißt, 10,27 EUR soll Excel als 10,25 EUR anzeigen. 10,28 EUR sollen dagegen als 10,30 EUR angezeigt werden.
Und:
10,24 ==> 10,25
10,22 ==> 10,20
Gibt es dafür eine Funktion bzw. eine Formatierung in Excel?
16.05.2002 15:09:49
Thread-ID: 121394
3 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