Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
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
Question Excel CommandButton Farbe ändern WENN BastiJT 4 55 Vor 2 Stunden
Letzter Beitrag: BastiJT
  wenn<->dann mit sverweis matty1970 10 90 22.03.2017, 08:45
Letzter Beitrag: shift-del
  Wenn dann Creami 2 41 20.03.2017, 17:07
Letzter Beitrag: WillWissen
  Wenn 3 Kriterien erfüllt, dann zeige alle Werte Dschules 11 125 15.03.2017, 14:11
Letzter Beitrag: Gast 123
  Userform Maximieren Text/CommandButton michel34497 6 101 15.03.2017, 13:29
Letzter Beitrag: DbSam
  Abfrage eines Ereignisses ExcelAnfänger17 5 87 14.03.2017, 14:31
Letzter Beitrag: ExcelAnfänger17
Question Doppelte If-Abfrage o0Julia0o 3 62 13.03.2017, 15:06
Letzter Beitrag: o0Julia0o
  wenn-dann ? composer 10 142 12.03.2017, 18:56
Letzter Beitrag: composer
  Wenn Dann Funktion dindu 4 101 09.03.2017, 18:11
Letzter Beitrag: dindu
  Wenn-Abfrage mit Und über Spalten abfragen weingummi 1 54 06.03.2017, 13:26
Letzter Beitrag: Ego

Gehe zu:


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