Funktion Rückgängig

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Funktion Rückgängig
von: Dirk
Geschrieben am: 17.05.2002 - 11:25:03

Ich habe in meine Exceltabelle ein Button "Befehlsschaltfläche"
eingefügt, der einen bestimmten Bereich ausblenden soll.

Private Sub CommandButton1_Click()
'
Rows("11:13").Select
Selection.EntireRow.Hidden = True
End Sub

Dies Funktioniert auch. Aber ich kann die Aktion nicht ohne weiteres Rückkängig machen. Ich muß immer erst die zwei Zeilen makieren und über Format Zeilen einblenden gehen, um diese wieder sichtbar machen zu können. Warum geht das nicht über die
Pfeiltaste "Rückgängig"?

Danke für Eure Hilfe.

Dirk

nach oben   nach unten

Re: Funktion Rückgängig
von: Andreas
Geschrieben am: 17.05.2002 - 11:28:48

Hallo Dirk,

Makroaktionen an sich sind nicht rückgängig zu machen.
Bei einfachen Makros, wie in Deinem Fall, kann man allerdings eine weiteres Makro schreiben, dass genau die entgegengesetzte Operation macht, also quasi den Vorgang wieder rückgängig macht.

Viel Spaß,
Andreas


nach oben   nach unten

Re: Funktion Rückgängig
von: Michael Scheffler
Geschrieben am: 17.05.2002 - 13:48:17

Hallo,

schau Dir mal "OnUndo-Methode" an.

Gruß

Micha


nach oben   nach unten

Re: Funktion Rückgängig
von: Mark
Geschrieben am: 17.05.2002 - 14:10:53

Genau das gleiche Problem hatte ich vorgestern auch, unten findest Du die Lsg mit einer Umschaltfläche zum ein, bzw. ausschalten.


Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "An"
Application.Run ("Spalte_F_ein")
Else
ToggleButton1.Caption = "Aus"
Application.Run ("Spalte_F_aus")
End If
End Sub


Sub Spalte_F_aus()
'
' Spalte_F_aus Makro
' Makro am 15.05.2002 von Kramer aufgezeichnet
'

'
' Columns("F:F").Select
Range("F1").Select
Selection.EntireColumn.Hidden = True
Range("A1").Select
End Sub
Sub Spalte_F_ein()
'


' Spalte_F_ein Makro
' Makro am 15.05.2002 von Kramer aufgezeichnet
'

'
' Columns("F:F").Select
Range("F1").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
End Sub

nach oben   nach unten

Re: Funktion Rückgängig
von: Dirk
Geschrieben am: 21.05.2002 - 09:10:08

An alle, die Lösungen mir gesendet haben. Vielen Dank.
An Andreas: Problem ist, dass der Button verschwinden soll und
Platz machen soll für den nächsten. Damit ist wiederum kein Platz für einen Button mit der Einblend-Funktion. Vielen Dank auch an Micha. Ich hoffe es klappt so.

Dirk

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Funktion Rückgängig"