Code ohne Select
12.11.2004 14:41:58
Herbert
Mein heutiges Problem: Wie muß ich den Code umschreiben um ohne Select zu arbeiten? Ich möchte die sichtbare Auswahl der Spalte A verhindern. ScreenUpdating False und True bringt´s nicht (zumindest so, wie ich es gemacht habe), da die zum Schluß aufgerufene UF erst beim Schließen aktualisiert.
Hoffe mein Problem ist einigermaßen deutlich geworden.
Grüße Herbert
Sub menu2()
Dim Titel, zaehlalle, zaehlsichtbar
Titel = "Einblenden"
'Application.ScreenUpdating = False
Range("A:A").Select
zaehlalle = Selection.Cells.Count
zaehlsichtbar = Selection.SpecialCells(xlCellTypeVisible).Count
If zaehlalle = zaehlsichtbar Then
MsgBox "Alle Aktivitäten sind bereits eingeblendet", vbOKOnly, Titel
'Application.ScreenUpdating = True
Exit Sub
Else
Aktivaus.Show
End If
End Sub
Anzeige