11.10.2013 Aufrufe

Excel aufmöbeln mit VBA

Excel aufmöbeln mit VBA

Excel aufmöbeln mit VBA

MEHR ANZEIGEN
WENIGER ANZEIGEN

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

CommandButton TextBox <br />

<br />

<br />

<br />

<br />

MSForms.CommandButton <br />

<strong>Excel</strong>.Workbook <br />

<br />

<br />

Long Double <br />

<br />

<br />

Dim <br />

<br />

Dim a as Long, b As Long<br />

a = 1<br />

b = a<br />

a = a + 1<br />

MsgBox "a = " & a & ", b = " & b<br />

<br />

a = 1 a <br />

a = b <br />

a <br />

<br />

<br />

<br />

<br />

<br />

Sub ChangeBtn()<br />

1. Application.Wait (Now + TimeValue("0:00:03"))<br />

2. Dim Btn As MSForms.CommandButton<br />

3. Dim Btndoppel As MSForms.CommandButton<br />

4. Set Btn = Userform1.CommandButton1<br />

5. Set Btndoppel = Btn<br />

6. Btn.Caption = "Sub<strong>mit</strong>"<br />

7. Btn.Font.Name = "Courier New"<br />

8. Btn.Font.Size = 12<br />

9. Btn.Font.Italic = True<br />

10. Userform1.CommandButton1.Font.Bold = True

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!