VBA - bedingte Schaltfäche

17/05/2016 - 19:07 von Jörg Burzeja | Report spam
Hallo zusammen,

ich möchte in VBA eine bedingte Schaltflàche hinzufügen:

Daten sollen in eine Datenbanktabelle hinzugefügt werden -> Schaltflàche
Daten speichern

Gespeicherte Daten sollen aus der Datenbanktabelle gelöscht werden ->
Schaltflàche löschen

Die Schaltflàche soll jeweils 'wechseln' - also nicht 2 Schaltflàchen
nebeneinander / Untereinander. Das würde nur verwirren.

Wie ist so etwas am besten umzusetzen? Etwas Beispielcode (für das
Wechseln der Schaltflàchen) wàre schön.

Vielen Dank schon einmal.
 

Lesen sie die antworten

#1 Claus Busch
17/05/2016 - 19:32 | Warnen spam
Hallo Jörg,

Am Tue, 17 May 2016 21:07:56 +0200 schrieb Jörg Burzeja:

Die Schaltflàche soll jeweils 'wechseln' - also nicht 2 Schaltflàchen
nebeneinander / Untereinander. Das würde nur verwirren.



dies ist nur reine Theorie, da ich nicht weiß was du genau vor hast. Im
Moment kannst du einmal übertragen, dann löschen. Wenn du etwas anderes
vorhast, musst du die Bedingungen àndern, eventuell abfragen, ob Daten
im Sheet sind:

Private Sub CommandButton1_Click()
'Button hat die Bezeichnung "Daten übertragen"

If CommandButton1.Caption = "Daten übertragen" Then
'Hier dein Code zum Übertragen der Daten
ActiveSheet.UsedRange.ClearContents
CommandButton1.Caption = "Daten löschen"
ElseIf CommandButton1.Caption = "Daten löschen" Then
'Hier dein Löschcode
CommandButton1.Caption = "Daten übertragen"
End If
End Sub


Mit freundlichen Grüßen
Claus
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Ähnliche fragen