Thema Datum  Von Nutzer Rating
Antwort
Rot Ausgeblendete Spalten löschen
23.01.2023 14:03:36 Flo
NotSolved
23.01.2023 17:54:18 ralf_b
Solved
23.01.2023 19:28:06 Flo
NotSolved
23.01.2023 19:39:03 ralf_b
*****
Solved
23.01.2023 19:44:51 Flo
NotSolved

Ansicht des Beitrags:
Von:
Flo
Datum:
23.01.2023 14:03:36
Views:
24
Rating: Antwort:
  Ja
Thema:
Ausgeblendete Spalten löschen

Hallo liebe VBA-Freunde!

 

Ich würde gern das jeweils aktuelle Blatt kopieren in ein neues Blatt, jedoch sollen dabei die ausgeblendeten Zeilen und Spalten gelöscht werden.

Die Zeile kann ich ja noch mit meinem Code ausblenden, aber der Code-Teil um die ausgeblendeten Spalten zu löschen hat irgendeinen Fehler...

Danke für eure Hilfe!!!

 

CODE:

Sub BlattKopieren(control As IRibbonControl)

Application.ScreenUpdating = False

With ActiveSheet

    If Protect = True Then
    .Unprotect
    
    End If
      
End With


ActiveSheet.Copy After:=ActiveSheet

ActiveSheet.Activate


'Dimensionierung der Variablen

    Dim i As Long
    Dim letzteZeile As Long
    Dim letzteSpalte As Long


    letzteZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    letzteSpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column


'Alle ausgeblendeten Zeilen löschen
    
    For i = 1 To letzteZeile

    If Rows(i).Hidden = True Then
    
    Cells(i, 1).EntireRow.Delete
    i = i - 1
    
    End If

    Next i
    
    
'Alle ausgeblendeten Spalten löschen
    
    For i = 1 To letzteSpalte

    If Columns(i).Hidden = True Then

    Columns(i).EntireColumn.Delete

    End If

    Next i
    


Application.ScreenUpdating = True

End Sub


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
Rot Ausgeblendete Spalten löschen
23.01.2023 14:03:36 Flo
NotSolved
23.01.2023 17:54:18 ralf_b
Solved
23.01.2023 19:28:06 Flo
NotSolved
23.01.2023 19:39:03 ralf_b
*****
Solved
23.01.2023 19:44:51 Flo
NotSolved