Wie und wo (Klassenmodul UserForm?) ist der Code einzugeben und welche Voraussetzungen müssen erfüllt sein, damit die Routine gestartet werden kann?
Danke vorab für die Unterstützung.
Roger
Wie und wo (Klassenmodul UserForm?) ist der Code einzugeben und welche Voraussetzungen müssen erfüllt sein, damit die Routine gestartet werden kann?
Danke vorab für die Unterstützung.
Roger
nicht alle hier im forum kennen das Beispiel 046499 oder wissen wo Sie es finden. Ich gehöre auch dazu.
Wie Du schreibst gehört der Code in die Userform.
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
ClassModule: frmBedingt
Private Sub cboa_Change()
With cbob
.Clear
If cboa.ListIndex < 25 Then
.AddItem Chr(cboa.ListIndex + 67)
.AddItem Chr(cboa.ListIndex + 68)
.ListIndex = 0
End If
End With
End Sub
Private Sub cmdContinue_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim iCounter As Integer
For iCounter = 1 To 26
cboa.AddItem Chr(iCounter + 64)
Next iCounter
cboa.ListIndex = 0
End Sub
StandardModule: basMain
Sub CallForm()
frmBedingt.Show
End Sub
wie Du das Einsetzt kann ich Dir auch nicht schreiben, da war doch bestimmt noch Text dazu. Aus dem Code lese ich folgendes
Eine Userform mit dem Namen frmBedingt
darauf befindet sich eine Combobox mit dem Namen cboa und ein CommandButton mit dem namen mdContinue
und wo der Code hinkommt steht doch da.
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
erstelle Dir eine Userform mit einer Combobox und Commandbutton. Benenne die Combobox um in "cboa", den Commandbutton1 in "cmdContinue". Kopiere den Code mit "cboa_change" und "Userform_Initialize" in die Userform (doppelklick auf die UF). die Sub CallForm in ein allgemeines Modul. Beachte bitte die Namenesänderung der Combobox/Button/Userform ! oder ändere den Code ab Das heißt auch die Userform1 in "frmBedingt" umbenennen.
Gruß Otto