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

Einzelne Zellen nicht ausdrucken

Einzelne Zellen nicht ausdrucken
12.09.2003 10:39:11
Tommy
Wie ist es möglich einzelne Zellen so zu formatieren, dass sie zwar angezeigt, aber nicht ausgedruckt werden?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelne Zellen nicht ausdrucken
12.09.2003 11:10:56
GraFri
Hallo



' Einzelne Zelle nicht drucken, in diesem Fall Zelle B1
Sub Zelle_nicht_Drucken()
Dim TMP         As String
      
    With Worksheets("Tabelle1")
        .[B1].Activate      ' Zelle B1 nicht drucken
        TMP = ActiveCell.NumberFormat
        ActiveCell.NumberFormat = ";;;"
        ActiveSheet.PrintOut
        ActiveCell.NumberFormat = TMP
    End With

End Sub

' Der markierte Bereich wird nicht ausgedruckt
Sub Bereich_nicht_Drucken()
Dim TMP()       As String
Dim Bereich     As Range
Dim n           As Integer

Set Bereich = ActiveWindow.RangeSelection

ReDim TMP(Bereich.Cells.Count)
For n = 1 To Bereich.Cells.Count
    Bereich.Cells(n).Select
    TMP(n) = ActiveCell.NumberFormat
    ActiveCell.NumberFormat = ";;;"
Next n

ActiveSheet.PrintOut

For n = 1 To Bereich.Cells.Count
    Bereich.Cells(n).Select
    ActiveCell.NumberFormat = TMP(n)
Next n

End Sub


     Code eingefügt mit Syntaxhighlighter 2.4


mfg, GraFri
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige