Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2000to2004
2000to2004
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Wenn in einer Zelle was steht soll eine Schaltfläche...

Forumthread: Wenn in einer Zelle was steht soll eine Schaltfläche...

Wenn in einer Zelle was steht soll eine Schaltfläche...
06.01.2025 08:46:23
Christian Vorderbrügge
Hallo VBA-Profis,

ich habe ein Bestellformular, dass über Excel ausgefüllt werden soll. Wenn es fertig ist, wird es über eine Schaltfläche die zu beschrifteten Felder wieder geleert und geschlossen. Damit Änderungen vorgenommen werden können, kann der Benutzer das Bestellformular vorher natürlich abspeichern. Da das Bestellformular jederzeit als E-Mail versendet werden soll, gibt es eine Schaltfläche "per E-Mail versenden". Wie kann ich dafür sorgen, dass in der abgespeicherten Version die Schaltfläche "Felder leeren und schließen" auf inaktiv steht?

D.h. ich habe dann also zwei Dateien mit Schaltflächen. Einmal das Original mit Schaltflächen die alle funktionieren und eine bis mehrer Kopien, in der die Schaltfläche "Felder leeren und schließen" nicht mehr aktiv ist oder im Besten Falle gar nicht mehr da ist.

Vielen Dank für Eure Hilfe...

Gruß Christian
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn in einer Zelle was steht soll eine Schaltfläche...
06.01.2025 09:25:12
MCO
Moin, Christian!

Du kannst die Boolean-Eigenschaft thisworkbook.saved = TRUE/FALSE nehmen um den gespeichert-Zustand abzufragen. 

Sub test()

    If ActiveWorkbook.Saved Then

        MsgBox "gespeichert"

    Else

        MsgBox "nicht gespeichert"

    End If

End Sub


Du könntest auch im dem Ereignis Workbook_save alle Schaltflächen aus dem Sheet löschen oder unsichtbar machen 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    For Each shp In ActiveSheet.Shapes

            'shp.Delete 'löschen

             shp.Visible = False 'unsichtbar

    Next shp   

End Sub


Gruß, MCO
Anzeige
AW: Wenn in einer Zelle was steht soll eine Schaltfläche...
06.01.2025 10:03:05
Christian
Hi MCO, und alle Anderen,

vielen Dank für die schnelle und vorallem super Antwort. Es geht nur darum, dass von drei Schaltflächen nur eine ausgeblendet wird. Der Anwender soll die Gelegenheit haben weiterhin die Datei in der Kopie über Schaltfläche " Speichern" zu speichern und über "E-Mail versenden" zu versenden. Jedoch soll er in der geöffneten "Kopie" die Schaltfläche "leeren und schließen" nicht mehr nutzen können. Also soll nur diese eine Schaltfläche in der neuen "kopierten Version" nicht mehr aktiv sein.
Anzeige
AW: Wenn in einer Zelle was steht soll eine Schaltfläche...
06.01.2025 12:38:28
MCO
Hallo Christian!

Dann würde ich vorschlagen, dass du in diesen einen Knopf mit einprogrammierst, dass er bei bestimmten Bedingung nicht weitermacht. 

Sub CommandButton1_Click()

    If ActiveWorkbook.Saved Then exit sub

     msgbox "Ansonsten gehts hier weiter",vbokonly

end sub


Gruß, MCO
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum