BeforeClose CommandButton auf Ausgangsstellung

[Rabe]

Hi,

also bei meiner Beispieldatei funktioniert es. Ich habe aber die Verknüpfung der Buttons nicht drin, wie geht das?

  Test Caption ändern.xlsb (Größe: 21,93 KB / Downloads: 1)

[CaptainNemo]

@ Kuwer: Userform? Sorry, aber die paar VBA-Kenntnisse, die ich mir seit kurzem selber beibringe, reichen nicht aus um zu verstehen was du meinst.

[Kuwer]

Userform? Sorry, aber die paar VBA-Kenntnisse, die ich mir seit kurzem selber beibringe, reichen nicht aus um zu verstehen was du meinst.

http://www.clever-excel-forum.de/thread-14285.html  

[CaptainNemo]

Ok, Userform sagt mir natürlich doch was, ich dachte, du hast meinst was anderes, hab mich schon gewundert.

Zum Beispiel bleibt eine UF, bei der ShowModal auf False steht, auch "stehen", wenn der Anwender in eine andere Excel-Datei wechselt. Auch sonst ist die UF statisch, sie bleibt wie sie ist, auch wenn man das Fenster verkleinert, oder die Anzeige verkleinert/vergrößert... Für die Anwender, für die ich die Datei erstelle, ist diese Methode deshalb ungeeignet.

Hallo,

ThisWorkbook.Names("T_1").Comment

"geistert" vermutlich unverändert in Deinen Codes herum?

Welche gravierenden Nachteile hatte denn die Userformvariante?

Gruß Uwe

Was meinst du denn damit?

[CaptainNemo]

@Rabe: Mit diesem Code funktioniert es eben nicht. Der Hund liegt sicher in der Verknüpfung der Buttons begraben.

Der Code für die Synchronisierung von Buttons kommt von Fennek, der mir den Code für ToggleButtons gab. Auf CommandButtons angewendet, finde ich ihn allerdings noch besser für meine Zwecke.

In den Arbeitsblättern:

Code:

Private Sub CommandButton1_Click()
   CommandButton1.Caption = IIf(CommandButton1.Caption = "Eingabe", "Bearbeitung", "Eingabe")
   ThisWorkbook.Names("T_1").Comment = CommandButton1.Caption
End Sub

Private Sub Worksheet_Activate()
   CommandButton1.Caption = ThisWorkbook.Names("T_1").Comment
End Sub

Dieses Makro muss erst einmal von Hand gestartet werden, damit der Namen geschrieben wird.

Code:

Sub T_1()
  Debug.Print ActiveSheet.OLEObjects("CommandButton1").Object.Value, ActiveSheet.OLEObjects("CommandButton1").Object.Caption
   ThisWorkbook.Names.Add "T_1", "_", False
End Sub

[Fennek]

Hallo,

dann versuche auch ich mich mal im Raten:

Code:

Private Sub Workbook_Open()
For Each blaetter In ThisWorkbook.Sheets
 blaetter.CommandButton1.Caption = "Eingabe"
Next
End Sub

Generell  gilt, dass man nur Codes nutzen soll, die man zumindest nachvollziehen kann.

mfg

[Kuwer]

Hallo,

dann versuche auch ich mich mal im Raten:

Code:

Private Sub Workbook_Open()
For Each blaetter In ThisWorkbook.Sheets
 blaetter.CommandButton1.Caption = "Eingabe"
Next
End Sub

Generell  gilt, dass man nur Codes nutzen soll, die man zumindest nachvollziehen kann.

mfg

ich sehe da keinen Unterschied zu #9.

Gruß Uwe

[CaptainNemo]

Den habe ich schon zigmal probiert. Reaktion wie oben beschrieben. Der Button im beim Öffnen aktiven Blatt hat die gewünschte Beschriftung, die Buttons in den anderen Blättern nicht. Wechselt man zurück auf das erste Blatt, switcht dessen Button ebenfalls in diesselbe Beschriftung. Mit der Ilf-Funktion dasselbe (s.o.).

[Fennek]

zeige mal den ganzen aktuellen Code, wenn möglich die Datei.

Die CommandButtons haben auf jedem Blatt den gleichen Namen?

[CaptainNemo]

Hi, das ist ne Beispieldatei, da ich aushilfsweise in einem anderen Internatshaus eingesetzt bin. Die Codes sind aber original.