Thema Datum  Von Nutzer Rating
Antwort
25.08.2023 12:42:26 Max
NotSolved
Blau drucken - Druckansicht
 25.08.2023 15:32:20 Gast29355
NotSolved
30.08.2023 16:09:47 Max
NotSolved

Ansicht des Beitrags:
Von:
Gast29355		 Datum:
25.08.2023 15:32:20		 Views:
149		 Rating:
     
Antwort:
  Ja
Thema:
drucken - Druckansicht

Hallo,

das ginge per VBA folgender Code in ein Standardmodul, zum Anzeigen die PrintPreview Proc aufrufen, hinterher dann die Reset Proc, die kannst Du Dir auch in ein Event packen, dann geht der Reset per Zell-Klick:smiley

Code in Standardmodul:

Option Explicit

Private lavntArray As Variant
 
Public Sub PrintPreview_ColDelete()
    With ActiveSheet
        If IsEmpty(lavntArray) Then _
           lavntArray = .UsedRange.Value
        Call .Columns(3).ClearContents
        Call .PrintPreview
    End With
End Sub

Public Sub Reset()
If Not IsEmpty(lavntArray) Then
    ActiveSheet.UsedRange.Value = lavntArray
    lavntArray = Empty
End If
End Sub

Code in Tabellenblattmodul Deiner Tabelle(Rechtsklick auf Tabellenreiter >>> Code anzeigen)

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Reset
End Sub

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.08.2023 12:42:26 Max
NotSolved
Blau drucken - Druckansicht
 25.08.2023 15:32:20 Gast29355
NotSolved
30.08.2023 16:09:47 Max
NotSolved