Sheet bedingt aktivieren

Morgen zusammen,
ich hab folgendes Problem:
Mit einem click auf einen Button, werden in einem sheet bestimmte Zeilen ausgeblendet. Das sind Daten, die nicht Bestandteil eines Diagramms sein sollen. Das funktioniert auch alles soweit. Jetzt gibt es aber in diesem Datenbestand Prozentzahlen, Monetäre Zahlen und noch andere, so dass diese jeweils in einem anderen Diagramm ausgespuckt werden sollen. Auch das ist kein Problem. Es wäre nur schön, wenn nach dem Ausblenden der nicht benötigten Daten, automatisch das sheet aktiviert wird, in welchen gerade das Diagramm erstellt wurde. Dafür hab ich jedem Datensatz eine Nummer in Spalte B gegeben (0, 1, 2), je nachdem, welches das Zieldiagramm ist. Es ist auch so angelegt, dass nur eine dieser Zahlen in Spalte B nach dem Ausblenden vorkommen kann. Nur leider funktioniert das Wechseln auf das jeweilige sheet nicht. Der Code lautet wie folgt:


Private Sub CommandButton1_Click()
Dim i As Long
Dim Column As Range
For i = 1 To ActiveSheet.UsedRange.Rows.Count
Range("A" & i).Select
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Hidden = True
Else
End If
Next i
'bis hierher funktioniert alles ohne Probleme
Range("B:B").Select
For Each cell In Selection
If cell.Value = 0 Then
Sheets("Graph").Activate
End If
If cell.Value = 1 Then
Sheets("Graph2").Activate
End If
If cell.Value = 2 Then
Sheets("Graph3").Activate
End If
Next
End Sub

Das Diagramm wird zwar erstellt, aber das Flackern des Bildschirms hört nicht auf. Ich weiß, dass man dafür Application.ScreenUpdating = True/False setzen kann, aber dann funktioniert gar nix mehr.
Aber vielleicht liegt der Fehler auch einfach am Wochentag. Ist jemand munterer als ich an diesem verschneiten Montagmorgen? Danke schon jetzt für jede Hilfe!!!
Madeleine

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Madeleine,
da sind ein paar grundsätzliche Fehler drin.
1. Dim Column as Range
Column ist ein Schlüsselwort und sollte nicht als Varialble benutzt werden!-->Dim rngCol as Range
2. Select und Activate sind in 99% aller Fälle überflüssig und verlangsamen nur den Code.
For i=1 to activesheet.usedrange.rows.count
if Range("A" &i)="" then
Rows(i).entirerow.hidden=true
next i
3.Range("B:B").select; For each Cell in....
Damit durchläufst du die komplette Spalte B! Auch die ausgeblendeten Zeilen=65536 Zellen.
Und jedesmal wird das Blatt aktiviert. Du solltest die Bedingung setzen, dass die Zeile sichtbar ist und bei einem Treffer die Schleife verlassen.
For each Cell in Range("B:B")
If Cell.Row.Hidden=False Then
select case cell
case 0
Sheets("Graph").select
exit for
case 1
sheets("Graph2").select
exit for
case 2
sheets("Graph3").select
exit for
end select
end if
next cell
Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen an die Antworter!

Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim i As Long For i = 1 To ActiveSheet.UsedRange.Rows.Count If Range("A" & i) = "" Then Rows(i).EntireRow.Hidden = True Else End If Next i For Each Cell In Columns(2).Cells If Cell.RowHeight > 0 Then Select Case Cell Case 0 Sheets("Graph").Select Exit For Case 1 Sheets("Graph2").Select Exit For Case 2 Sheets("Graph3").Select Exit For End Select End If Next Cell Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread