Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige