Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Wenn dann Abfrage per VBA mit CommandButton
#1
Hallo Ihr Lieben,

habe ein Arbeitsblat in dem im Feld E18 ein Datum per Formel eingetragen wurde.
Wenn in diesem Feld ein Datum steht, soll ein Command-Button (auf Feld J18) dahinter erscheinen (Text: Termin löschen).
Das Makro, welches mit dem Button ausgelöst werden soll habe ich bereits fertig.
Wenn das Feld E18 jedoch einen Fehler beinhaltet (durch die Formel), soll gar nicht erst ein Button erscheinen.

Ich grüble und tüftle jetzt schon zwei Tage und bekomme es einfach nicht hin...
Hoffe wirklich sehr ihr könnt mir helfen.

Lg. Peggy
to top
#2
Hi Peggy,


hier mal ein Ansatz:

Code:
Sub test()
Dim Datum
Datum = Range("E18")
If IsDate(Datum) Then
ActiveSheet.Shapes("Button 3").Visible = True
Else
ActiveSheet.Shapes("Button 3").Visible = False
End If
End Sub
VG
Alexandra
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  WENN DANN mit Abfragewert < 1 einmalrund 4 77 13.01.2017, 15:23
Letzter Beitrag: Jockel
  Wenn-Dann in einer Summe Weylin 12 208 26.12.2016, 20:46
Letzter Beitrag: Jockel
  Wenn Dann Funktion trotz Dropdown Jenny Ring 2 108 19.12.2016, 16:31
Letzter Beitrag: Rabe
  Wenn in Zeile X steht dann in Zeile Y folgendes technoente 11 152 14.12.2016, 16:15
Letzter Beitrag: BoskoBiati
  Passswort Benutzername abfrage Jogaro 5 105 14.12.2016, 06:00
Letzter Beitrag: WillWissen
  Wenn-Dann funktion an Nachkommastellen einer Zahl knüpfen ako82 4 102 13.12.2016, 16:27
Letzter Beitrag: BoskoBiati
  Wenn dann Funktion Jenny Ring 2 80 13.12.2016, 15:47
Letzter Beitrag: BoskoBiati
Exclamation Problem:Zwei Spalten vergleichen wenn wahr dann bereich kopieren und einfügen CherryX 5 118 12.12.2016, 09:18
Letzter Beitrag: steve1da
  WENN DANN MITTELWERT stella_gen 5 102 07.12.2016, 15:01
Letzter Beitrag: stella_gen
  WENN 5 Zellen ISTLEER dann... Argre 7 183 03.12.2016, 22:48
Letzter Beitrag: schauan

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste