Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Es soll nur der Druckbereich abgespeichert werden

Es soll nur der Druckbereich abgespeichert werden
05.02.2006 12:23:37
Mark
Hallo,
ich habe eine Excel Datei mit später komplexen Userformen. In diesen Userformen werden später Zahlen eingegeben die dann in Excel verarbeitet werden. Natürlich soll man die Datei später auch speichern können, wobei eigentlich nur der Druckbereich interessant ist. Alle anderen Nebenrechnungen sollen nicht abgespeichert werden. Nur der Druckbereich!
Zur besseren Verständnis des Problems habe ich ein Beispiel auf den Server gelegt.
Hier der Link:
https://www.herber.de/bbs/user/30683.xls
Danke für jede Antwort
-Mark-

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Es soll nur der Druckbereich abgespeichert werden
05.02.2006 12:59:55
Gerd
Hi,
es wird immer min. ein Blatt gespeichert. Ev. musst du die nicht gewünschten Zellen löschen. es bleibt aber immer ein ganzes Blatt.
mfg Gerd
AW: Druckbereich automatisch festlegen
05.02.2006 13:00:16
Franz
Hallo Mark!

Sub Bereich_ermitteln()
'Letzte Zelle markieren
ActiveSheet.Unprotect' falls du diese Option planst
Range("A1").SpecialCells(xlCellTypeLastCell).Select
Selection.Name = "aLetzteZelle"
lngLZeile = ActiveCell.Row      'Letzte Zeile
intLSpalte = ActiveCell.Column  'Letzte Spalte
Range(Cells(2, 1), Cells(lngLZeile, intLSpalte)).Select 'why not mit select
Selection.Name = "Druckbereich"
Range("A3").Select
End Sub

See you later!
Franz D.
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige