Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
696to700
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mit VBA Blatt kopieren und ausdrucken

mit VBA Blatt kopieren und ausdrucken
22.11.2005 17:39:07
volleybaerchen
Hallo,
ich habe eine eigene Menüleiste angelegt. Dort werden mir alle Tabellenblätter der Datei angezeigt. Nun möchte ich durch Anklicken eines Tabellenblattes erreichen, dass von diesem Blatt eine Kopie erstellt, alle bedingten Formatierungen gelöscht, das Blatt gedruckt und anschliessend die Kopie wieder gelöscht wird. Das kriege ich aber nicht hin, da ich noch keine grossen Kenntnisse mit VBA habe. Kann mir da jemand einen Code mitteilen?
mfg
volleybaerchen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit VBA Blatt kopieren und ausdrucken
22.11.2005 17:51:45
Worti
Hallo,
so geht's:

Sub volley()
Sheets("DeineTabelle").Copy Before:=Sheets(1)
ActiveSheet.UsedRange.FormatConditions.Delete
ActiveSheet.PrintOut
ActiveSheet.Delete
End Sub

Gruß Worti
AW: mit VBA Blatt kopieren und ausdrucken
22.11.2005 18:04:57
volleybaerchen
Hallo Worti,
vielen Dank für deine Hilfe. Ich werde das gleich mal ausprobieren.
mfg
volleybaerchen
AW: mit VBA Blatt kopieren und ausdrucken
22.11.2005 17:54:20
Josef
Hallo Baerchen!
Vieleicht so!
' **********************************************************************
' Modul: Modul3 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub CopySheetAndPrint(Tabelle As Worksheet)
Dim oldVisibility As XlSheetVisibility

With Tabelle
  oldVisibility = .Visible
  .Visible = xlSheetVisible
  .Copy after:=.Parent.Sheets(Sheets.Count)
  .Visible = oldVisibility
  With .Parent.Sheets(.Parent.Sheets.Count)
    On Error Resume Next
    .Cells.SpecialCells(xlCellTypeAllFormatConditions).FormatConditions.Delete
    On Error GoTo 0
    .PrintOut
    Application.DisplayAlerts = False
    .Delete
    Application.DisplayAlerts = True
  End With
End With

End Sub


Sub aufruf()
CopySheetAndPrint Sheets("Deine Tabelle")
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: mit VBA Blatt kopieren und ausdrucken
22.11.2005 18:03:00
volleybaerchen
Hallo Sepp,
vielen Dank für deine Hilfe. Ich habe noch eine 2. Info bekommen, die etwas kürzer ist. Ich werde aber beide Versionen ausprobieren.
mfg
volleybaerchen

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige