Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
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
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per Makro

Forumthread: Per Makro

Per Makro
30.04.2005 19:14:01
KH
Hi!
Ich würde gerne per Makro den Benutzer fragen, welchen Wohnort er hat. Zur Auswahl sollen fünf Orte gegeben sein. Der jeweils ausgewählte wird dann als Wert zurückgegeben. Wie kann ich dies programmieren?
Gruß,
KH
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per Makro
30.04.2005 19:22:09
Hajo_Zi
Hallo KH,
eigentlich ist da eine Userform besser geeignet. Ich habe mal in meinen Bücherm nachgeschaut und folgendes gefunden

Option Explicit
'#          Dieses Beispiel stammt aus:                  #'
'#          Das Excel-VBA-Codebook                       #'
'#          Autoren: Monika Weber und Bert Körn          #'
'#          ISBN: 3-8273-1979-X                          #'
'#             Alle Rechte Vorbehalten                   #'
'#       Anfragen unter:                                 #'
'#       Monika@jumper.ch oder Bert@bert-koern.de        #'
Sub Kontrollkaestchen2()
Assistant.On = True
With Assistant.NewBalloon
.Heading = "Kontrollkästchen anklicken"
.Text = "Spiel mit den Kästchen: " & Chr(10)
.Icon = msoIconTip
' Kontrollkästchen
.CheckBoxes(1).Text = "Ort 1"
.CheckBoxes(2).Text = "Ort 2"
.CheckBoxes(3).Text = "Ort 3"
If .Show = msoBalloonButtonOK Then
If .CheckBoxes(1).Checked And Not .CheckBoxes(2).Checked _
And Not .CheckBoxes(3).Checked Then
MsgBox "Du hast Box 1 angeklickt"
ElseIf .CheckBoxes(1).Checked And .CheckBoxes(2). _
Checked Then
MsgBox "Du hast Box 1 und 2 angeklickt"
ElseIf .CheckBoxes(1).Checked And .CheckBoxes(3). _
Checked Then
MsgBox "Du hast Box 1 und 3 angeklickt"
ElseIf .CheckBoxes(2).Checked And .CheckBoxes(3). _
Checked Then
MsgBox "Du hast Box 2 und 3 angeklickt"
ElseIf Not .CheckBoxes(1).Checked And Not _
.CheckBoxes(2).Checked _
And .CheckBoxes(3).Checked Then
MsgBox "Du hast Box 3 angeklickt"
ElseIf .CheckBoxes(2).Checked Then
MsgBox "Du hast Box 2 angeklickt"
End If
End If
End With
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
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