Thema Datum  Von Nutzer Rating
Antwort
19.05.2020 10:30:37 Wasserträger
NotSolved
Blau Außerdruckbereich löschen
 19.05.2020 17:00:26 xlKing
*****
Solved
26.05.2020 12:47:42 Wasserträger
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
19.05.2020 17:00:26		 Views:
817		 Rating:
     
Antwort:
 Nein
Thema:
Außerdruckbereich löschen

Lieber Einer, :-)

Da musst du schon die vier Bereiche um den Druckbereich separat ansprechen. Das geht in etwa so:

Sub AußerDruckbereichLoeschen()
  
  Dim dbr As Range
  
  On Error GoTo Fehler
  Fehlernr = 1
  Set dbr = Range(ActiveSheet.PageSetup.PrintArea)
  Fehlernr = 2
  
  If dbr.Row > 1 Then
    Loeschen Rows("1:" & dbr.Row - 1)
  End If
  If dbr.Column > 1 Then
    Loeschen Columns("A:" & Left(Columns(dbr.Column - 1).Address, 2))
  End If
  If dbr.Column + dbr.Columns.Count - 1 < Columns.Count Then
    Loeschen Range(Columns(dbr.Column + dbr.Columns.Count), Columns(Columns.Count))
  End If
  If dbr.Row + dbr.Rows.Count - 1 < Rows.Count Then
    Loeschen Rows(dbr.Row + dbr.Rows.Count & ":" & Rows.Count)
  End If
  
Exit Sub
Fehler:
  If Fehlernr = 1 Then
    MsgBox "Es ist kein Druckbereich gesetzt!", vbInformation, "AußerDruckbereich löschen"
  ElseIf Fehlernr = 2 Then
    MsgBox "unbekannter Fehler!", vbCritical
  End If
End Sub
Sub Loeschen(abr As Range)
    abr.ClearFormats 'Formate löschen
    'abr.Borders.LineStyle = xlNone 'nur Rahmen löschen
    'abr.Interior.ColorIndex = xlNone 'nur Hintergrund löschen
    abr.ClearContents 'Inhalte löschen
    abr.ClearComments 'Kommentare löschen
End Sub

Gruß Mr. K.

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
19.05.2020 10:30:37 Wasserträger
NotSolved
Blau Außerdruckbereich löschen
 19.05.2020 17:00:26 xlKing
*****
Solved
26.05.2020 12:47:42 Wasserträger
NotSolved