Thema Datum  Von Nutzer Rating
Antwort
12.04.2021 15:11:05 Verzweifelter MAX
NotSolved
12.04.2021 15:59:29 Werner
NotSolved
12.04.2021 16:46:00 MAX
NotSolved
Blau Zeilen und Spalten ausblenden
12.04.2021 17:22:50 MRUTOR
NotSolved
12.04.2021 18:00:26 Gast39087
NotSolved
13.04.2021 10:50:36 MRUTOR
Solved

Ansicht des Beitrags:
Von:
MRUTOR
Datum:
12.04.2021 17:22:50
Views:
508
Rating: Antwort:
  Ja
Thema:
Zeilen und Spalten ausblenden

Hallo MAX,

ich vermute, dass das mit der Zufallszahl da ist, um das Worksheet_Calculate Ereignis unbedingt auszuloesen. Sonst kann es passieren dass der Code nicht startet.

Um den Code auf deine Matrix anzuwenden, die in Spalte W beginnt, muesstest du die Zufallszahl Formal halt in einer unbenutzten Spalte unterbringen. Wo ist eigentlich egal.

Dann den Code so anpassen. Klappt dann bis zur letzten benutzten Zeile (geprueft in Spalte W, also sollte dort ueberall was stehen):

Option Explicit

Private Sub Worksheet_Calculate()

Dim i As Long, Letzte As Long

Letzte = Cells(Rows.Count, 23).End(xlUp).Row

For i = 1 To Letzte
    Columns(i + 12).Hidden = Rows(i).Hidden
Next i

End Sub

Gruss Tor


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
12.04.2021 15:11:05 Verzweifelter MAX
NotSolved
12.04.2021 15:59:29 Werner
NotSolved
12.04.2021 16:46:00 MAX
NotSolved
Blau Zeilen und Spalten ausblenden
12.04.2021 17:22:50 MRUTOR
NotSolved
12.04.2021 18:00:26 Gast39087
NotSolved
13.04.2021 10:50:36 MRUTOR
Solved