Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
452to456
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
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code für bestimmten Druckbereich

Code für bestimmten Druckbereich
11.07.2004 09:58:41
Thomas
Guten Morgen im Exel Forum,
ich benötige mal wieder EURE Hilfe.
Mit einem Meßgerät, werden in das vorgefertigte Protokoll Daten eingelesen.
https://www.herber.de/bbs/user/8350.xls
Dieses Protokoll wurde unausgefüllt ausgedruckt und Kopiert.
Nun benötige Ich einen Code, der mir nur die Daten von B12 bis U33 in das Protokoll ausdruckt.
Mit Druckbereich festlegenhabe ich es schon Probiert, aber das funktioniert nicht so wie ich das mir vorgestellt habe.
Für Eure Hilfe bedank ich mich schon im Voraus.
Gruß Thomas

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code für bestimmten Druckbereich
geri
Hallo Thomas
versuchs so sucht in U die letzte gefüllte Druckbereich()
Dim lz As Long
lz = Range("U65536").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$B$12:$U$" & lz
End Sub
gruss geri
AW: Code für bestimmten Druckbereich
11.07.2004 10:25:28
Thomas
Hallo Geri,
habe deinen Cod in Tabelle1 (QM-Protokoll) reingeschrieben.
Da ich aber von VBA keinerlei Ahnung habe, weiss ich nicht wie ich diesen abspeichern muß.
Kannst Du mir das bitte noch näher beschreiben?
Gruß Thomas
AW: Code für bestimmten Druckbereich
geri
Hallo Thomas

Sub Druckbereich()
Dim lz As Long
lz = Range("U65536").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$B$12:$U$" & lz
End Sub

öffne mit Alt+F11 den VBA Editor, einfügen Modul
kopiere Code in Modul, zurück zu Excel
Makro starten
gruss geri
Anzeige
AW: Code für bestimmten Druckbereich
11.07.2004 10:59:29
Thomas
Hy Geri,
ich bin am verzweifeln, den Code habe ich ja schon reingeschrieben, dann bin ich zurück zu Exel, aber wie starte ich jetzt das Makro?
Ich hoffe, Du hast ein nachsehen wenn ich soviel Fragen stelle aber mit VBA kenne ich mich nicht aus.
Gruß Thomas
AW: Code für bestimmten Druckbereich
geri
Hallo Thomas
kein Problem, man kann es nachher mit Tastaturcode auch starten
gehe zu EXTRAS-MAKROS
gruss geri
AW: Code für bestimmten Druckbereich
11.07.2004 11:30:24
Thomas
Hallo Geri,
nach einigen Fehlersuchen, habe ich es mit dem Makro hinbekommen.
Dies ist aber nicht das Resultat, das ich mir erhofft habe, da beim ausdruck die komplette Seite verschoben wird.
Es sollen auch nur die eingetragenen Werte ausgedruckt werden, da ja das Protokoll schon Kopiert wurde und in den Drucker eingelegt ist.
Ich hoffe, Du kannst mir noch weiter Hilfestellung leisten.
Gruß Thomas
Anzeige
AW: Code für bestimmten Druckbereich
Berai
Hallo Thomas,
hier noch eine andere Lösung.
Die Tabelle "QM-Protokoll" nimmst du als Druckvorlage und wählst im Druckassistenten entweder Seite 1 oder Seite 2.
Deine Werte trägst du in die Tabelle "Druckprotokoll" ein und verfährst im Druckassistenten analog wie oben.
Das Druckprotokoll hat das gleiche Spalten- u. Zeilenformat wie deine Vorlage nur keinerlei Einträge und Rahmen.
Damit du nichts im Blindflug ausfüllen mußt, habe ich über Spalte A und die Spaltenüberschriften ein transparentes Textfeld gelegt, welches nicht mit gedruckt wird.
https://www.herber.de/bbs/user/8353.xls
Mein Testversuch war o.k.
Gruß
Rainer
Anzeige
AW: Code für bestimmten Druckbereich
11.07.2004 13:02:04
Thomas
Hallo Berai,
Danke auch Dir für deine Hilfe.
Werde mich erst später nochmals melden, wenn ich deinen Lösungsvorschlag getestet habe.
Wünsche Dir derweil noch ein schönes Wochenende
Gruß Thomas
AW: Code für bestimmten Druckbereich
11.07.2004 13:32:05
Thomas
Hallo Raier,
ich komme einfach nicht weiter (einfach Laie).
Ich habe mich nun entschieden, einfach eine Kopie zu erstellen ohne Rahmen und so weiter und mit einer Formel(die ich noch suche) zu Arbeiten.
z.B. =WENN(Protokoll!B12)es soll dann aber nur ein Wert eingetragen werden wenn in Protokoll auch etwas drinsteht also auch keine 0.
Trotz allem Vielen Dank für deine Aufopferung.
Gruß Thomas
Anzeige

286 Forumthreads zu ähnlichen Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Code per VBA in "Diese Arbeitsmappe"
Timo

Hallo,
mir ist bekannt, wie ich per VBA ein neues Modul anlegen und eine Sub erzeugen kann.
Ich möchte nun aber per VBA eine sub in "Diese Arbeitsmappe" erzeugen und mit einer zweiten Prozedur wieder löschen.
Geht das?
Ich habe im Archiv nichts relevantes hierzu gefunden.
V...
29.10.2008 11:37:00
Thread-ID: 1020207
6 Beiträge
Anzeige
Zeilenumbruch bei Formel in VBA Code
Waven

Hallo Zusammen
Ist es irgendwie möglich im VBA Code innerhalb einer Formel einen Zeilenumbruch zu machen?
Als Beispiel:
aus
Range("A1").Formula = "=SUMPRODUCT((B23:B40=1)*(Q23:Q40=1)*(O23:O40))+SUMPRODUCT((B23:B40=1)*(Q23:Q401)*(R23:R40=1)*(O23:O40))"
soll sowas wie
Ran...
25.11.2008 12:08:00
Thread-ID: 1027662
3 Beiträge
Kleines VBA Code Problem
maxx_1985

Hi Leute
Beim Ausfuehren dieses Codes dauert es eine Ewigkeit bis Excel fertig ist. Und es ruckelt ebenso ne Ewigkeit. Wie kann man das anders loesen? hat jemand ne idee?
danke
Sub Step2() 'delete zeros Dim i As Long For i = Cells(Rows.Count, 9).End(xlUp).Row To 1 Step -1 If Cells...
26.11.2008 20:42:00
Thread-ID: 1028150
8 Beiträge
Brainfuck Code umsetzen in Vba-Code
Reinhard

Hallo Wissende, Brainfuck Code sieht so aus: >++++++++++[-]++++++[-].>++[-].>+++[-]+++[-]+++[-].>++[-].>++++[-]++++ usw. Wobei nur diese acht Regeln gelten: > Inkrementiert den Zellzeiger, quasi Activecell.offset(0,1) http://de.wikipedia.org/wiki/Brainfuck _ In dieser Mapp...
25.12.2008 18:17:00
Thread-ID: 1035219
7 Beiträge
Kleines VBA Code Problem
maxx_1985

Hi
Warum loescht mir Excel hier nur die ersten zwei Zeilen? Hat jemand eine Idee?
Danke!
Sub step9() Dim i, lz As Long lz = Cells(Rows.Count, 6).End(xlUp).Row For i = 1 To lz If Cells(i, 6) = "" Then Exit For End If Next i Range("A2", Cells(i - 1, 43)).Select Selection.SpecialCell...
16.01.2009 19:35:01
Thread-ID: 1040733
3 Beiträge
VBA > Text keinen Zeilenumbruch
Gopla

Hallo liebe Gemeinschaft,
ich habe ein Problem, dessen ich nicht Herr werde und welches schwer zu beschreiben ist:
Ich habe einen Text.txt, welcher in VBA durch
intHandle = FreeFile
Open "C:\test.txt" For Input As #intHandle
geöffnet wird und anschließend durch
Line In...
18.01.2009 01:55:08
Thread-ID: 1041037
6 Beiträge
Anzeige

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
7
4
12
5
12
2
7
6
2
5
2
23
7
4
2
4
3
6
3
4
1
10
4
7
1