Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Befehlsschaltfläche beschriften via VB

Forumthread: Befehlsschaltfläche beschriften via VB

Befehlsschaltfläche beschriften via VB
06.02.2004 10:56:52
Hugo Wirz
Hallo Excelcracks
Ich habe folgendes
In einem Tabellenblatt (Tabelle1) habe ich ein Steuerelement/ Befehlsschaltfläche.
Dieses habe ich über Eigenschaften beschriftet (Caption).
Nun möchte ich wenn Fall A eintritt via VB diese Beschriftung der Befehlsschaltfläche ändern.
Ist dies möglich und wenn ja wie.
Danke und Gruss
Hugo
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Befehlsschaltfläche beschriften via VB
06.02.2004 11:00:43
Dirk
Hallo.
Bist doch auf'm richtigen Weg: CommandButton1.Caption = "neu"
Cheers
AW: Befehlsschaltfläche beschriften via VB
06.02.2004 13:04:59
Hugo Wirz
Hallo Cheers
Merci für Deine "Hilfe".
Nun habe ich alles wie folgt gelöst.
-------------------------------------------------------------
Buttonbeschriftung ((Workbook_NewsSheet resp. Workbook_Open)
-----------------------
Select Case GetSprache
Case 1
ActiveSheet.cmdKorein.Caption = "deutscher Text" 'deutsch
Case 2
ActiveSheet.cmdKorein.Caption = "franz Text" 'franz
Case 3
ActiveSheet.cmdKorein.Caption = "italy Text" 'ital.
Case Else
ActiveSheet.cmdKorein.Caption = "deutscher Text" 'German as default
End Select
----------------------------------------------------------------------------------
Sprachtyp auslesen (als Modul)
-----------------------------------
Public 

Function GetSprache() As Integer
On Error GoTo Err_GetSprache
Select Case Application.International(xlCountryCode)
Case 49
GetSprache = 1              'deutsch
Case 33
GetSprache = 2              'franz
Case 39
GetSprache = 3             'ital.
Case Else
GetSprache = 1  'German as default
End Select
Exit_GetSprache:
Exit Function
Err_GetSprache:
MsgBox Err & ": " & Err.Description, vbCritical, "Analysetool.GetSprache"
GetSprache = 1
Resume Exit_GetSprache
End Function

--------------------------------------------------------------------------------
Gruss Hugo
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