Hilfe bei Excel VBA - Buttons
22.10.2016 21:18:29
alberto
Ich habe zwei Buttons:
1 --> WennDann_Button(), das den unteren Code ausführt.
2 --> Löschen_Button() , das den Inhalt von C1 löscht.
Zuerst drücke ich das WennDann_Button() dann das Löschen_Button() um den Inhlat von C1 zu löschen.
Das Problem, dass ich manchmal vergesse und den Inhalt von C1 lösche bevor ich das WennDann_Button() ausführe.
Ich möchte folgendes machen --> wenn ich das Löschbutton zuerst drücke, dann soll der Code geprüft werden, ob das WennDann_Button() gedrückt wurde, ansonst soll ein MsgBox erschienen werden WennDann_Button() wurde nicht gerückt.
Für jede Hilfe bin ich sehr dankbar.
1)-
Sub WennDann_Button()
Dim rcell As Range
For Each rcell In Range("A4:A100")
If rcell.Value = "JA" Then
rcell.Offset(0, 1).Value = "JA"
rcell.Value = rcell.Value
Else
rcell.Offset(0, 1).Value = ""
End If
Next
End Sub
2)-Sub Löschen_Button()
' Löschen_Button Makro
Range("C1").ClearContents
End Sub