Office: zweiter Klick auf Button soll aktion rückgängig machen

Hallo zusammen,

ich habe folgenden VBA Code:


Sub Makro1()
'
' Makro1 Makro
'
Columns("E:G").Select
Selection.EntireColumn.Hidden = False
'
Range("F5").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND([@[1. Quartal 2016]]=""0"",[@[1. Quartal 2017]]""0""),1,IFERROR([@[1. Quartal 2017]]/[@[1. Quartal 2016]]-1,""+/-""))"
Range("F6").Select
End Sub


Dieser wird über eine Schaltfläche ausgelöst. Wie kann ich es nun machen, dass mir beim zweiten klick auf diese Schaltfläche die Aktion wieder rückgängig gemacht wird?

Also in dem Fall soll die Spalte wieder ausgeblendet werden und die Formel rausgelöscht werden, da es sich hier aber um eine Tabelle handelt, muss die Formel aus jeder Zelle innerhalb dieser Spalte gelöscht werden.

Liebe Grüße und vielen Dank

:)

 

Hallo Volker,

eine Anmerkung zu Deinem Beitrag "Schriftfarbe pro Anwender zuweisen".

Da hast Du einen Vorschlag von Hary, auf den Du bisher noch nicht reagiert hast !

Gruß
Aloys

 

Hi Aloys, doch habe ich, aber per privater Nachricht. Ich bin noch nicht dazu gekommen seinen Lösungsvorschlag zu testen, da es sich hierbei um eine andere Liste handelt.

Liebe Grüße

 

Hi,

eine hochgeladene Beispielmappe wäre hilfreich, damit man den genauen Aufbau deiner Tabelle sehen und daran testen kann.

 

Hallo Volker,

Stell doch mal eine solche Tabelle mit ein paar Datenzeilen zur Verfügung.

Wie soll man sich das vorstellen ?
Erfolgt der 2. Click zeitnah oder irgendwann, nachdem sonstige Änderungen an der Tabelle durchgeführt wurden ?

Gruß
Aloys

 

Hi zusammen, danke erst ein mal für die antworten.

Um es einfach zu halten: mir würde schon ein makro ausreichen, welches wir eine bestimmte spalte beim ersten klick auf einen button einblendet, und beim zweiten klick darauf wieder ausblendet.

Es sollen Makro 1 und Makro 2 halt über einen Button auslösbar sein, immer im Wechsel. In der Spalte selbst finden manuell keine Änderungen statt. Hier sind zukünftig Verweise abgelegt, zu einem externen Sheet. Hier noch zusätzlich die Frage, ob ich die Werte einer Tabelle, bzw. die Daten oder wie auch immer per VBA über einen zusätzlichen Button aktualisieren kann?

Ich habe zwar diverse codierungen im internet gefunden, allerdings will keine bei mir funktionieren.

Hier die Datei (ohne verweise):

 

Das "Problem ist nicht das Ein-/Ausblenden der Spalten sondern das Löschen der eingetragenen Formel, da man bei einer formatierten Tabelle einfach auf diese Tabellen-Spalte zugreifen kann - dazu sollte man aber den genauen Aufbau dieser formatierten Tabelle kennen.

 

Also mit dieser hochgeladenen Mappe funktioniert dein Code für das Eintragen der Formel schon mal nicht - die formatierte Tabelle sollte schon den Originalbedingungen entsprechen.

 

Hi Beverly, ignorier erst mal das mit den Formeln, das ist zweitrangig und ist kein muss in meiner Tabelle. Entscheidender wäre für mich das ein und ausblenden über einen button, sowie die Aktualisierung der Werte/Daten welche per Sverweis aus einem externen Sheet wiedergegeben werden, ebenfalls über einen zusätzlichen Button.

 

Hi,

welche Spalten sollen denn nun aus-/eingeblendet werden? Irgendwie widersprechen sich die beiden Makros in deiner Mappe...

Ich bin mal davon ausgegangen, dass es sich wie in deinem Eröffnungsbeitrag um die Spalten D:F handelt, die aus-/eingeblendet werden sollen - Beispiel für 1 Button

Code:

Wozu sollen Daten per Button aktualisiert werden, wenn sie per SVERWEIS-Formel berechnet werden?....

 

Erst mal vielen Dank, das ein und ausblenden klappt nun wunderbar. Mir ging es nicht um die genaue Spalte, ich brauchte lediglich die codierung, damit ich diese auf meine tabelle umbauen kann.

Mein code sieht nun so aus:

Sub AusEin()
Columns("J:J").EntireColumn.Hidden = Not Columns("J:J").EntireColumn.Hidden
Columns("L:L").EntireColumn.Hidden = Not Columns("L:L").EntireColumn.Hidden
Columns("N:N").EntireColumn.Hidden = Not Columns("N:N").EntireColumn.Hidden
Columns("P:P").EntireColumn.Hidden = Not Columns("P:P").EntireColumn.Hidden
Columns("V:V").EntireColumn.Hidden = Not Columns("V:V").EntireColumn.Hidden
Columns("X:X").EntireColumn.Hidden = Not Columns("X:X").EntireColumn.Hidden
Columns("Z:Z").EntireColumn.Hidden = Not Columns("Z:Z").EntireColumn.Hidden
Columns("AB:AB").EntireColumn.Hidden = Not Columns("AB:AB").EntireColumn.Hidden
End Sub


Warum möchte ich die Daten per VBA aktualisieren?
Meine Tabelle ist mittlerweile sehr sehr groß und wird immer größer. Ich habe nun ausgeschaltet, dass sich die WErte automatisch aktualisieren. Die normale Vorgehensweise wäre ja nun erst auf den Reiter Daten, dann Verknüpfungen bearbeiten und dann auf Werte aktualisieren klicken. Ich möchte das Ganze aber anwenderfreundlicher gestalten. Deshalb soll einfach nur hierfür auf einen Button geklickt werden. Dann werde ich versuchen den Code noch so umzubauen, dass nach Klick auf den Button zunächst eine Userform mit Hinweis erscheint, dass nach klick auf "okay" ein prozess gestartet wird, der mehrere minuten in anspruch nehmen kann.

Ergänzung: Ich glaube das war nicht die Antwort auf deine Frage. Warum die Daten sich aktualisieren sollen, wenn diese per SVERWeis entnommen werden: Das liegt daran, dass die Ursprungsdatei, aus welche sich meine Tabelle die WErte per SVERWEIS zieht, immer wieder überschrieben wird mit einer aktuellen.

 

Das kannst du einfacher haben:

Code:

Dann reicht doch einfach eine Neuberechnung, wenn die SVERWEIS-Ergebnisse nicht automatisch aktualisiert werden da die Berechnung auf Manuell gestellt wurde:

Code:

 

Cool, dein Code ist natürlich deutlich besser. Vielen Dank!

Wie genau würde denn der komplette code aussehen?

Wenn ich ihn wie folgt schreibe, tut sich leider nichts:

Sub daten_aktualisieren()
'
' daten_aktualisieren Makro
'

'
Application.Calculate
End Sub

(der code liegt bei mir in einem modul)

 

Application.Calculate ist dasselbe als wenn man F9 drückt - also Neuberechnung.

 

Hier macht er leider nichts bei mir, auch nicht wenn ich F9 drücke. Muss hierfür die Quelldatei geöffnet sein? Er aktualisiert einen wert bei mir erst dann, wenn ich in die Zelle klicke und die Funktion / die Formel noch einmal mit enter bestätige.