Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
616to620
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
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Print....?

Print....?
01.06.2005 22:19:55
Aida
Hallo,
ich würde gern NUR folgende Spalten drucken: C,D,G,M
Wie mache ich das per VBA?
Dankeschön vorab....
Gruß Aida

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Print....?
01.06.2005 22:33:02
Kurt
Hi,
restliche Spalten ausblenden, mit Rekorder aufzeichnen.
mfg Kurt
AW: Print....?
01.06.2005 22:35:24
Aida
Hallo Kurt,
geht es ohne die Spalten auszublenden?
Gruß
Aida
AW: Print....?
01.06.2005 22:38:04
Kurt
Hi,
Spalten nebeneinander in anderes Blatt kopieren.
mfg Kurt
AW: Print....?
02.06.2005 00:11:48
Aida
das ist noch komplizierter....
AW: Print....?
02.06.2005 06:50:56
Willie
Hallo Aida
eigentlich ganz einfach! Versuche es einfach mal so:

Sub SplatendruckenfuerAida()
Range("C:C,D:D,G:G,M:M").Select
ActiveWindow.Selection.PrintOut Copies:=1, Collate:=True
End Sub

Rückmeldung nicht vergessen!
Gruß
Willie
AW: Print....?
02.06.2005 17:10:41
Aida
Hallo Willie,
gewünschte Spalten werden auf 4 Blätter gedruckt und nicht auf ein Blatt.
Hast eine andere Lösung?
Gruß
AIDA
Anzeige
AW: Print....?
03.06.2005 14:54:49
Willie
Hallo Aida
Wenn du ein zusätzliches Tabellenblatt mit dem Namen tmp anlegst,
dann kannst du das Makro benutzen.
Gruß
Willie

Sub SplatendruckenfuerAida()
Sheets("tmp").Select
Cells.Select
Selection.ClearContents
Sheets("Tabelle1").Select
Columns("C:D").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("tmp").Select
Columns("A:B").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Columns("G:G").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("tmp").Select
Columns("C:C").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Columns("M:M").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("tmp").Select
Columns("D:D").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("A:D").Select
ActiveWindow.Selection.PrintOut Copies:=1, Collate:=True
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige