hainoon
May 22, 2018
view6078
view8
0
Goto Top

Per Button klick Wert in Zelle eintragen, erneutes klicken Wert wieder entfernen

GermansolvedQuestionVB for ApplicationsDevelopment
Hallo zusammen,

Ich Frage mich, ob es möglich ist mit dem selben Button einen Wert in eine Zelle einzutragen und beim erneuten klicken des Buttons, diesen Wert wieder zu löschen.

Mein kläglicher versuch:

Sub Makro_2()
Range("A3").ClearContents = Not ActiveSheet.Cells(3, 1).Value = 1  
End Sub

Ich bitte euch um eure Hilfe.
Danke im voraus.
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 374648

Url: https://administrator.de/contentid/374648

Printed on: April 25, 2024 at 00:04 o'clock

8 Comments
Latest comment
Goto Top
Mitglied: 136166
136166 May 22, 2018 updated at 08:30:59 (UTC)
Goto Top
Range("A3").Value = IIF(Range("A3").Value = "",Range("A5").Value,"")
Member: Hainoon
Hainoon May 22, 2018 at 08:20:49 (UTC)
Goto Top
Hi,
Und wo kann ich den Wert nun festlegen der in der Zelle "A3" stehen soll?

Gruß,
Hainoon
Mitglied: 136166
136166 May 22, 2018 updated at 10:17:33 (UTC)
Goto Top
Na in der IIF Funktion der zweite Parameter wenn man sich mal zumindest vorher die Doku angesehen hätte!!
https://support.office.com/en-us/article/iif-function-32436ecf-c629-48a3 ...

Copy n Paster ...
Member: Hainoon
Hainoon May 22, 2018 at 08:37:03 (UTC)
Goto Top
Pff muss mir sowas nicht anhören, woher soll ich denn wissen das es dafür ne Doku gibt, nen Forum ist nun mal dafür da Menschen die kein Plan haben solche Themen nahe zu legen.
Will ja auch nur lernen
Mitglied: 136166
136166 May 22, 2018 updated at 08:39:59 (UTC)
Goto Top
woher soll ich denn wissen das es dafür ne Doku gibt,
Der war gut, eine Programmiersprache ohne Doku face-big-smileface-big-smile.
Will ja auch nur lernen
Dann les als erstes die Doku :-P

Koppschüttel.
Member: Hainoon
Hainoon May 22, 2018 at 08:48:38 (UTC)
Goto Top
So habe mir nun die Doku angesehen, leider löst das nicht das Problem, es soll nämlich keine Abhängigkeit existieren.
Mitglied: 136166
Solution 136166 May 22, 2018 updated at 08:58:57 (UTC)
Goto Top
Na dann einfach globale Hilfsvariable, damit switcht das immer im Wechsel.
Dim clear as Boolean
Sub MyClick()
    If not clear then
        Range("A3").Value = Range("A5").Value   
        clear = true
    Else
        Range("A3").Clearcontents  
        clear = false
    End if
End Sub
Und das nächste mal vorher genau definieren was Sache sein soll.
Member: Hainoon
Hainoon May 22, 2018 at 09:02:44 (UTC)
Goto Top
Perfekt so klappt es, vielen Dank
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments