nur die vorher ausgeblendete Sheets wieder einblenden

  • Excel

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von mumpel.

    nur die vorher ausgeblendete Sheets wieder einblenden

    Hallo Community,

    ich habe ein kleines Problem mit einer Druckfunktion, wo ich nicht ganz weiterkomme.
    In dier Druckfunktionen muss man vorher auswählen was man konkret drucken möchte (relevante Maschinen etc.).
    Draufhin schaut die Funktion welche Zellen gefüllt sind in dem Bereich und blendet die anderen Spalten/Zeilen aus,
    dass der Druckbereich nicht so groß ist.
    Im Anschluss kommt eine Funktion, welche alle Zeilen/Spalten wieder einblenden und da liegt das Problem.
    Jede Nutzer kann, je nachdem was für Ihn relevant ist, Spalten ausblenden. Nach betätigten des Druckbuttons
    wird jedoch zum Schluss alle ausgeblendeten Spalten wieder eingeblenden und damit auch die Spalten, welcher er vorher manuell ausgeblendet hat.

    Da jeder Nutzer andere Spalten ausblendet, kann ich nicht vorher festlegen welche Spalten wieder ausgeblendet werden sollen.
    Ich hatte überlegt, ob es möglich ist, dass die Funktion sich merkt, welche Spalten Sie ausgeblendet hat und nur diese wieder einblendet?

    Hier die groben Funktionen in Kurz:
    Hoffe Ihr könnte mir helfen:


    Druck-Button

    Visual Basic-Quellcode

    1. Private Sub CommandButton_Drucken_Click()
    2. ' diese Methode wird ausgefuehrt, wenn der Benutzer auf "Drucken" geklickt hat
    4. ' schliesse UserForm
    5. UserForm1.Hide
    7. ' Startposition des Cursors merken
    8. Dim Start As String
    9. Start = ActiveCell.Address
    11. ' Ausblenden
    12. If Not Ausblenden Then
    13. GoTo Startposition_setzen
    14. End If
    16. ' Dateiname erstellen und in Zwischenablage kopieren/einfuegen
    17. Call Dateiname_Erstellen
    19. ' Ausdrucken markieren
    20. If Not Drucken Then
    21. GoTo Startposition_setzen
    22. End If
    24. ' Cursour auf Anfangsposition setzen
    25. GoTo Startposition_setzen
    27. Exit Sub
    29. Startposition_setzen:
    31. ' alle Zeilen und alle Spalten wieder einblenden
    32. Call Einblenden
    34. ' Cursour auf Anfangsposition setzen
    35. Range("J1").Select
    36. Range(Start).Select
    38. End Sub


    Funktion Ausblenden:

    Visual Basic-Quellcode

    1. Private Function Ausblenden() As Boolean
    2. ' mit dieser Funktion werden alle Zeilen und Spalten ausgeblendet, welche nicht benoetigt werden
    3. ' true -> kein Fehler , false -> Fehler
    5. On Error GoTo Fehler
    7. ' Zelle mit ausgewaehltem Verteilungsnamen markieren und merken
    8. Range("J8").Select
    9. ActiveCell.Offset(0, ComboBox_Verteilungen.ListIndex * 2).Select
    10. Verteilung = ActiveCell.Address
    12. ' alle Verteilungen links von der gewaehlten Verteilung ausblenden
    13. ActiveCell.Offset(1, 0).Select
    14. With ActiveCell
    15. Range(Cells(.Row, 4), Cells(.Row, .Column - 1)).Select
    16. End With
    17. Selection.EntireColumn.Hidden = True
    19. ' Zelle mit Verteilungsnamen wieder markieren
    20. Range(Verteilung).Select
    22. ' Zelle mit dem Preis der ersten Angebotsposition auswaehlen
    23. ActiveCell.Offset(3, 0).Select
    24. ActiveCell.Offset(0, 1).Select
    26. ' alle Zeilen des Angebots durchlaufen bis kein Wert mehr drin steht
    27. While ActiveCell.Value <> ""
    29. ' Zeilen ausblenden wenn Wert '0' ist
    30. If ActiveCell = "0" Then
    31. ActiveCell.EntireRow.Hidden = True
    32. End If
    34. ' nächste Zeile markieren
    35. ActiveCell.Offset(1, 0).Select
    37. Wend
    39. ' da die Zelle in der Zeile "Nachtraege" leer ist, muss diese uebersprungen werden
    40. ActiveCell.Offset(1, 0).Select
    42. ' alle Zeilen des Nachtrags durchlaufen bis kein Wert mehr drin steht
    43. While ActiveCell.Value <> ""
    45. ' Zeilen ausblenden wenn Wert '0' ist
    46. If ActiveCell = "0" Then
    47. ActiveCell.EntireRow.Hidden = True
    48. End If
    50. ' nächste Zeile markieren
    51. ActiveCell.Offset(1, 0).Select
    53. Wend
    55. ' === da es vorkommen kann, dass keine Nachtraege vorhanden sind, so kann die Zeile mit der Position "Nachtraege" auch ausgeblendet werden ==
    56. ' vorletzte Zeile wieder markieren
    57. ActiveCell.Offset(-2, 0).Select
    59. ' alle Zeilen des Nachtrags rueckwaerts durchlaufen, solange dort der Wert '0' drin steht (diese Zelle ist bereits ausgeblendet)
    60. While ActiveCell.Value = "0" And ActiveCell.Row > 8
    62. ' vorherige Zeile markieren
    63. ActiveCell.Offset(-1, 0).Select
    65. Wend
    67. ' wenn die aktuelle Zelle leer ist, ist dies die Zeile mit der Text "Nachtraege" und
    68. ' kann somit auch ausgeblendet werden, da keine Nachtragspositionen vorhanden sind
    69. If ActiveCell.Value = "" Then
    70. ActiveCell.EntireRow.Hidden = True
    71. End If
    73. ' letzte Zeile markieren
    74. ActiveCell.Offset(1, 0).Select
    75. While ActiveCell.Value <> ""
    77. ' nächste Zeile markieren
    78. ActiveCell.Offset(1, 0).Select
    80. Wend
    82. ' Rueckgabe der Funktion, true -> kein Fehler
    83. Ausblenden = True
    85. Exit Function
    87. Fehler:
    89. ' Rueckgabe der Funktion, false -> Fehler
    90. Ausblenden = False
    92. ' Fehlerausgabe fuer den Benutzer
    93. MsgBox "Beim Ausblenden ist ein Fehler aufgetreten.", VbMsgBoxStyle.vbCritical, "Fehler"
    94. End Function 'Ausblenden


    Funktion Einblenden

    Visual Basic-Quellcode

    1. Private Function Einblenden() As Boolean
    2. ' mit dieser Funktion werden alle Zeilen und alle Spalten wieder eingeblendet
    3. ' true -> kein Fehler , false -> Fehler
    5. On Error GoTo Fehler
    7. ' alle Spalten wieder einblenden
    8. Cells.EntireColumn.Hidden = False
    10. ' alle Zeilen wieder einblenden
    11. Cells.EntireRow.Hidden = False
    13. ' Rueckgabe der Funktion, true -> kein Fehler
    14. Einblenden = True
    16. Exit Function
    18. Fehler:
    20. ' Rueckgabe der Funktion, false -> Fehler
    21. Einblenden = False
    23. ' Fehlerausgabe fuer den Benutzer
    24. MsgBox "Beim Einblenden ist ein Fehler aufgetreten.", VbMsgBoxStyle.vbCritical, "Fehler"
    26. End Function 'Einblenden

    Eine Variante:

    Visual Basic-Quellcode

    1. Option Explicit
    2. Dim HiddenRange As Range
    4. Sub SaveHiddenRange()
    5. Dim c As Range
    6. Set HiddenRange = Nothing
    7. For Each c In UsedRange.Rows
    8. If c.EntireRow.Hidden Then
    9. If HiddenRange Is Nothing Then Set HiddenRange = c.EntireRow Else Set HiddenRange = Union(HiddenRange, c.EntireRow)
    10. End If
    11. Next
    12. For Each c In UsedRange.Columns
    13. If c.EntireColumn.Hidden Then
    14. If HiddenRange Is Nothing Then Set HiddenRange = c.EntireColumn Else Set HiddenRange = Union(HiddenRange, c.EntireColumn)
    15. End If
    16. Next
    17. End Sub
    19. Sub RestoreHiddenRange()
    20. Dim c As Range
    21. For Each c In Intersect(HiddenRange.Rows, UsedRange)
    22. If c.Columns.Count = UsedRange.Columns.Count Then c.EntireRow.Hidden = True
    23. Next
    24. For Each c In Intersect(HiddenRange.Columns, UsedRange)
    25. If c.Rows.Count = UsedRange.Rows.Count Then c.EntireColumn.Hidden = True
    26. Next
    27. End Sub

    Du kannst es noch etwas geschwindigkeitsoptimieren, wenn du dir Zeile und Spalten getrennt merkst.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Wenn ich aber die Funktionen im Sheet habe und diese dann im Modul aufrufen will,
    bekomme ich gleich die Fehlermeldung, dass die Sub oder Function nicht definiert ist.

    Ich habe die Funktion im Sheet eingefügt und könnte diese im Modul 1 aufrufen, aber dann kommt der Fehler

    Schon allein die Tatsache, dass du mit Modulen arbeitest, zeugt nicht von objektorientiertem Denken.

    Aber du kannst auch aus dem Modul aufrufen, indem du das Sheet-Objekt mit angibst.
    z.B. Tabelle1.SaveHiddenRange
    Wenn du jetzt das Sheet-Objekt noch vernünftig benennst, hast du sogar lesbaren Code.

    Ich lasse mich jetzt nicht darüber aus, dass Objekte wie ActiveCell oder ActiveSheet und Methoden wie .Activate oder .Select sowie GoTo Statements in brauchbarem Code eigentlich nichts verloren habe.
    Aber ich will jetzt nicht ein Fass aufmachen, sonst musst du deinen Code komplett neu schreiben.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Hmm also ich also egal ob ich es im Modul oder im Userform einbinde, die Funktion blendet die vorher ausgeblendeten Spalten nicht wieder aus.

    Hier ist die Funktion im Modul, welche die oben bereits aufgeführten Funktionen ausführt. --> Funktioniert nicht.
    Wenn ich in den oberen Funktionen die diese einbinde:
    - bei Funktion Ausblenden habe ich "Tabelle2.SaveHiddenRange"
    - bei Funktion Einlenden habe ich "Tabelle2.RestoreHiddenRange"
    eingebunden, aber auch das führt nicht zum Erfolg.

    Wo könnte der Fehler liegen?

    Vielen Dank für die Hilfestellung

    Aber ich muss die Funktionen doch irgendwie abrufen oder?
    Die komplette Funktion steht im entsprechenden Worksheet drin.
    Wenn ich nun in der Excel bin, dann ist oben ein Button für das drucken. Durch diesen wird das Userform
    zum drucken aufgerufen, wo ich entsprechend den Druckbereich wähle etc.) Dafür wird dann
    die Spalten zuerst ausgeblendet und nach dem Druck wieder alle eingeblendet.
    Hier habe ich doch aber nirgends die Funktionen aufgerufen die im Worksheet stehen.
    Ich muss doch irgendwo sagen, jetzt merken und jetzt wieder einblenden.
    Oder wie kann ich das verstehen?

    Hättest du hier den zielführenden Hinweis für die Umsetung, weil irgendwie funktioniert es nicht so recht.
    Habe schon alles mögliche versucht.

    Ich habe im Worksheet deinen Code eingebunden und darunter den Druckbefehl genacht und da deine Funktionen eingebunden,
    aber auch das funktioniert nicht. Die Spalten werden immer wieder eingeblendet.

    Visual Basic-Quellcode

    1. Sub Drucken()
    2. SaveHiddenRange
    3. Ausdrucken
    4. RestoreHiddenRange
    5. End Sub


    Visual Basic-Quellcode

    1. Public Sub Ausdrucken()
    2. ' Tastenkombination: Strg+d
    3. 'Blattschutz mit PW aufheben
    4. ActiveSheet.Unprotect "test"
    5. UserForm1.Show
    7. ActiveSheet.Protect "test", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
    8. End Sub


    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „TeamBob“ ()

    Ich habe deine Funktion direkt im Worksheet eingefügt und den Code zum Aufrufen auch direkt im Worksheet,
    somit bräuchte ich doch nicht den Objektnamen.
    Ich glaube um das Abzukürzen, habe ich mal ein Beispiel eingefügt.
    Hier ist die Datei relativ runtergebrochen. Im sheet "test" findest du den Button "Drucken"
    Dort wird die Funktion "Drucken in der selbigen Tabelle aufgerufen.
    vielleicht könntest du kurz reinschauen wo der Fehler liegt.
    Vielen Dank für deine Hilfe

    Datei von filehorst.de laden

    Hallo!

    petaod schrieb:

    Pack den Code in den Code-Bereich des entsprechende Sheets

    Man kann das auch in ein allgemeines Modul packen, muss dann aber richtig referenzieren.

    Visual Basic-Quellcode

    1. Option Private Module
    2. Option Explicit
    3. Public HiddenRange As Range
    5. Public Sub SaveHiddenRange(Optional strSheet As String = "Tabelle1")
    7. Dim c As Range
    8. Dim shSheet As Worksheet
    10. Set shSheet = Sheets(strSheet)
    12. Set HiddenRange = Nothing
    13. For Each c In shSheet.UsedRange.Rows
    14. If c.EntireRow.Hidden Then
    15. If HiddenRange Is Nothing Then Set HiddenRange = c.EntireRow Else Set HiddenRange = Application.Union(HiddenRange, c.EntireRow)
    16. End If
    17. Next
    18. For Each c In shSheet.UsedRange.Columns
    19. If c.EntireColumn.Hidden Then
    20. If HiddenRange Is Nothing Then Set HiddenRange = c.EntireColumn Else Set HiddenRange = Application.Union(HiddenRange, c.EntireColumn)
    21. End If
    22. Next
    23. End Sub
    25. Public Sub RestoreHiddenRange(Optional strSheet As String = "Tabelle1")
    27. Dim c As Range
    28. Dim shSheet As Worksheet
    30. Set shSheet = Sheets(strSheet)
    32. For Each c In Application.Intersect(HiddenRange.Rows, shSheet.UsedRange)
    33. If c.Columns.Count = shSheet.UsedRange.Columns.Count Then c.EntireRow.Hidden = True
    34. Next
    35. For Each c In Application.Intersect(HiddenRange.Columns, shSheet.UsedRange)
    36. If c.Rows.Count = shSheet.UsedRange.Rows.Count Then c.EntireColumn.Hidden = True
    37. Next
    38. End Sub


    Zum Aufrufen kann man den Namen der aktiven Tabelle übergeben. Übergibt man keinen Namen wird automatisch "Tabelle1" als Name genutzt.

    Visual Basic-Quellcode

    1. Sub Test()
    3. Call SaveHiddenRange ("Tabelle2")
    4. Call Ausdrucken
    5. Call RestoreHiddenRange("Tabelle2")
    7. End Sub


    TeamBob schrieb:


    (...) Jedoch erscheint zum Schluss doch wieder alle Spalten (...)

    Wenn Du es richtig machst dürfte das eigentlich nicht passieren. Bitte lade die Beispieldatei hier hoch, nicht extern ("Filehorst" wird von meinem AV-Programm als schädlich gemeldet).

    Gruß, René

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „mumpel“ ()

    Ich habe Deinen Code mal durchgeschaut. Wo der Fehler leigt weiss ich nicht.

    Aber mal etwas Grundsätzliches:
    Du hast zuviele überflüssige "Select" und "Activate" drin. M.E. muss Dein ganzer Code mal neu geschrieben werden.

    Das scheint an Deinen beiden Tabellen zu liegen. Irgendetwas daran/darin verhindert die Ausführung der beiden Prozeduren bzw. die Prozeduren zeigen auf Deine Tabellenblätter keine Wirkung, ich kann aber nicht herausfinden was und weshalb. Wenn Du ein neues Tabellenblatt einfügst und die Prozeduren darin testest müsste es funktionieren. Da wirst Du Deine Datei wohl komplett neu aufbauen müssen.

Facebook
Telefonspende