Netz-Treff

Nachricht aus dem Archiv

keksbaecker schrieb am 02.September.2010, 17:16:17 in der Kategorie pc.software

Befehlsschaltfläche Excel

> Hallo!
>
> Bei einer Schaltfläche aus der Formularsymbolleiste könntest Du das mit
> einem Makro realisieren, das vom Grundaufbau her folgendermaßen aussieht:
>
> Sub Schaltfläche1_BeiKlick()
> Static int_Befehl As Integer
> int_Befehl = int_Befehl + 1
> Select Case int_Befehl
> Case 1
> MsgBox \"Befehl 1\"
> Case 2
> MsgBox \"Befehl 2\"
> Case 3
> MsgBox \"Befehl 3\"
> int_Befehl = 0
> End Select
> End Sub
>
> Da, wo die Msgbox-Befehle stehen, müsstest Du die gewünschten Befehle
> reinschreiben oder zumindest einen entsprechenden Befehlsaufruf.
>
> Gruß
> Manes

Hallo
Danke für die Antwort.
Mit einem einfachen Klick habe ich das z.B. so zum Testen gemacht. Wie würde das dann aussehen, wenn ich das mit einem weiteren Klick rückgängig machen müsste?

Private Sub CommandButton1_Click()
Range(\"J17:J24\").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 3
Range(\"I21\").Select

End Sub

Befehlsschaltfläche Excel keksbaecker - 02.September.2010, 16:04:21 - (pc.software)
- Befehlsschaltfläche Excel manes - 02.September.2010, 16:24:23
  - Befehlsschaltfläche Excel keksbaecker - 02.September.2010, 18:39:03
    - Befehlsschaltfläche Excel Jörg Lorenz - 02.September.2010, 18:50:14
      - Befehlsschaltfläche Excel keksbaecker - 02.September.2010, 19:24:26
        Befehlsschaltfläche Excel Jörg Lorenz - 02.September.2010, 19:52:49
        Befehlsschaltfläche Excel keksbaecker als [Gast] - 02.September.2010, 21:29:28
        Befehlsschaltfläche Excel Jörg Lorenz - 02.September.2010, 21:48:34
        Befehlsschaltfläche Excel keksbaecker - 02.September.2010, 23:58:27
  - Befehlsschaltfläche Excel keksbaecker - 02.September.2010, 17:16:17