Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Namen und Variablen

Forumthread: Namen und Variablen

Namen und Variablen
12.11.2007 11:21:00
Thomas
Hallo
Ich möchte gerne meinen VBA-Code so klein wie möglich halten und habe folgendes Problem.
Ich habe 40 Buttons welche alle durch nummeriert sind (Aktiv1 bis Aktiv 40) Dazu habe ich noch weitere 40 Buttons die durch die Aktivbuttons beeinflußt werden.
Das ganze sieht so aus:
If Print1.Enabled = False Then
Print1.Enabled = True
Aktiv1.Caption = "Deaktivieren"
ElseIf Print1.Enabled = True Then
Print1.Enabled = False
Aktiv1.Caption = "Aktivieren"
End If
Da ich diesen Code nicht 40zig mal schreiben will, suche ich nach einer Möglichkeit dies laufende Nummer durch eine Variable zu ersetzen. Ich dachte da an folgendes:
Print & number.Enabled
Aber das funktioniert so nicht. Was mach ich falsch?
Gruß Thomas

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Namen und Variablen
12.11.2007 11:29:58
Thomas
OK, habs selbst gefunden. Ich brauch ja nur den Namen des Buttons als Commandbutton übergeben.

Sub buttontoggle(button1 As CommandButton, button2 As CommandButton)
Worksheets("Wochendaten").Unprotect ("tkin")
If button2.Enabled = False Then
button2.Enabled = True
button1.Caption = "Deaktivieren"
ElseIf button2.Enabled = True Then
button2.Enabled = False
button1.Caption = "Aktivieren"
End If
Worksheets("Wochendaten").Protect ("tkin")
End Sub


Man lernt nie aus :)

Anzeige
AW: Namen und Variablen: kürzer
12.11.2007 15:15:45
Rudi
Hallo,

Sub buttontoggle(button1 As CommandButton, button2 As CommandButton)
Worksheets("Wochendaten").Unprotect ("tkin")
button2.Enabled = Not (button2.Enabled)
button1.Caption = IIf(button2.Enabled, "Deaktivieren", "Aktivieren")
Worksheets("Wochendaten").Protect ("tkin")
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige