Darstellungsfehler nach VBA Zeilen-Einblendung

Hallo,
vorab merci wie immer für die Hilfe! Vorab, ich nutze das aktuelle Excel am Mac.
Ich habe eine Schaltfläche gebaut und ein kleines Macro zugewiesen um Zeilen ein- und auszublenden:
---------------------------

Sub Zahlplan()
Rows("8:20").Hidden = Not Rows("8:20").Hidden
End Sub

---------------------------
Bei Klick auf die die Schaltfläche werden die Reihen nun eben entweder ein oder ausgeblendet.
Warum auch immer kommt es zu einem Darstellungsfehler (Upload hat leider nicht funktioniert):
https://dl.dropboxusercontent.com/u/32990230/Excel_Darstellungsfehler.jpg
...Es sieht aus als wären die aus und eingeblendeten Zellen noch immer markiert, sind sie aber nicht. Sobald ich die Scrolleiste bediene verschwindet der Fehler. Kann ich denn noch ein anderes Makro für die gleiche Funktion verwenden um den Fehler zu umgehen?
Ich danke vorab für die Hilfe!
LG Propman

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zahlplan() Sheets("Projekt").Rows("8:34").Hidden = Not Sheets("Projekt").Rows("8:34").Hidden End Sub Sub Ansprechpartner() Sheets("Projekt").Rows("35:39").EntireRow.Hidden = Not Sheets("Projekt").Rows("35:39"). _ EntireRow.Hidden End Sub

Sub Ansprechpartner() Application.ScreenUpdating = False Rows("35:39").EntireRow.Hidden = Not Rows("35:39").EntireRow.Hidden Application.ScreenUpdating = True Worksheets("Projekt").Cells(1, 1).Select End Sub

Sub Zahlplan() Dim i As Integer Application.ScreenUpdating = False For i = 8 To 34 If Cells(i, 13).Value = True Then Rows(i & ":" & i).Hidden = Not Rows(i & ":" & i).Hidden Else Rows(i & ":" & i).Hidden = True End If Next i Application.ScreenUpdating = True Worksheets("Projekt").Cells(1, 1).Select End Sub

Hey Yummi,
da stoße ich echt an meine Verständnis Grenzen :)
Ums es mir etwas einfacher zu machen wollte ich nun die "Meilensteine" und die "Monatliche Verrechnung", welche über C8 auswählbar sind einfach je nachdem was aktiv dazu befähigen andere Zellbereiche auf und zu zu klappen:
Heisst: Steht da Meilensteine in C8, dann blende Zeile 9 bis 34 ein und Zeile 35 bis 54 aus. Steht da drin "Monatliche Verrechnung" dann blende 9 bis 34 aus und 35 bis 54 ein.
Ich habe jetzt hier rumgewerkelt habe aber ganz sicher grundlegende VBA Verständnisprobleme bisher. So sieht der aktuelle Stand im Code aus (da ist das gleichzeitige Ausblenden noch nicht drin, habe es nur mal nach meinem Verständnis angefangen aufzubauen):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim varAusblend1 As Range
Dim varAusblend2 As Range
Dim varSchalter As Range
Set varAusblend1 = ActiveSheet.Rows("9:34")
Set varAusblend2 = ActiveSheet.Rows("15:34")
Set varSchalter = ActiveSheet.Cells(3, 8)
If varSchalter.Value = "Meilensteine" = True Then
varAusblend1.Hidden = False
ElseIf varSchalter.Value = "Monatliche Verrechnung" = True Then
varAusblend2.Hidden = False
Else
If varAusblend1.Hidden And varAusblend2.Hidden = False Then
varAusblend1.Hidden = True
End If
End If
End Sub

LG Propman

Beliebteste Forumthreads (12 Monate)

Darstellungsfehler nach VBA Zeilen-Einblendung

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Darstellungsfehler nach VBA Zeilen-Einblendung

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread