Aufruf Userform aus ausgeblendeter Datei

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Aufruf Userform aus ausgeblendeter Datei
von: Dieter(Drummer)
Geschrieben am: 14.11.2015 15:44:06

Guten Tag VBA Spezialisten,
in einen eigenen Menüpunkt, im eigenen Menüband, rufe ich eine Userform auf, die in einer ausgeblendeten Datei mit einigen Makros ist.
Hier mein Script:

  • 
    Sub MxReStart()
        ActiveWindow.Visible = False
    UserForm1.Show
    End Sub

  • Die Userform wird nicht angezeigt und das Makro bricht mit dem Fehler ab: "Fehler beim kompilieren: Variable micht definiert", in (s. fett im Script).
    Was ist da falsch?
    Mit der Bitte um Hilfe.
    Gruß, Dieter(Drummer)

    Bild

    Betrifft: AW: Nachtrag
    von: Dieter(Drummer)
    Geschrieben am: 14.11.2015 15:49:00
    Das augferufene Makro ist in der PersonL.xlsb Date.
    Gruß, Dieter(Drummer)

    Bild

    Betrifft: AW: Nachtrag
    von: Nepumuk
    Geschrieben am: 14.11.2015 16:27:00
    Hallo,
    ist das Userform auch in deiner PERSONL? Wenn nein, dann benötigst du in der Mappe in dem sich das Userform befindet eine kleine Prozedur:

    Public Sub ShowForm()
        Call UserForm1.Show
    End Sub

    In deiner PERSONL rufst du dann das Makro so auf:
    Sub MxReStart()
        ActiveWindow.Visible = False
        Call Application.Run("Mappe1.xlsm!Modul1.ShowForm")
    End Sub

    Den Namen der Mappe und des Moduls musst du natürlich anpassen.
    Gruß
    Nepumuk

    Bild

    Betrifft: AW:Danke Nepumuk, klappt prima. Weiteres ...
    von: Dieter(Drummer)
    Geschrieben am: 14.11.2015 16:48:51
    Hi Nepumuk,
    das Userform ist nicht in der PersonL.xlsb Datei. Deine Makros habe ich richtig installiert unde jetzt klappt es prima! Danke dir.
    Ein Zusatzfrage. In der Userform sind Commadbuttons, z.B. CommandButton1. Dieser löst bei Klick die Zahl 1, in der Textbox aus. Frage: Kann man sich din deisem Fall die Zahl aus aus dem Klick vorlesen lassen?
    Ein Makro zum vorlesen aus Text oder Zahl in einer Zelle eines Tab.blt. habe ich:

  • 
    Sub VorLesen() 'Alle markierten Zellen
    Dim Zelle As Range 'Anpassung von Herber: Daniel und Ransi 29.10.2015
    Dim objSpeaker As Object, x&
    MsgBox "Inhalte der markierten Zellen werden vorgelesen"
    Set objSpeaker = CreateObject("SAPI.SpVoice")
        objSpeaker.Volume = 100
        For Each Zelle In Selection.Cells 'Anpassung von Herber: Daniel und Ransi
        objSpeaker.Speak Zelle 'Anpassung von Herber: Daniel und Ransi
        'For x = 1 To 1
         'objSpeaker.Speak Range("A" & x)
        Next
    End Sub

  • Wäre toll, wenn ich bei Klick auf CommandButton, z,B, 1, die EINS vorgelsen würde.
    Danke für evtl weitere Hilfe und Gruß,
    Dieter(Drummer)


    Bild

    Betrifft: AW: AW:Danke Nepumuk, klappt prima. Weiteres ...
    von: Nepumuk
    Geschrieben am: 14.11.2015 16:55:38
    Hallo,
    so:

    Private Sub CommandButton1_Click()
        Dim objSpeaker As Object
        Set objSpeaker = CreateObject("SAPI.SpVoice")
        objSpeaker.Volume = 100
        objSpeaker.Speak 1
        Set objSpeaker = Nothing
    End Sub

    Gruß
    Nepumuk

    Bild

    Betrifft: AW: AW:Danke Nepumuk, klappt auch prima!
    von: Dieter(Drummer)
    Geschrieben am: 14.11.2015 17:08:38
    Danke dir Nepumuk. Alles klappt toll.
    Gruß und ein schönes Wochenende,
    Dieter(Drummer)

    Bild

    Betrifft: AW: AW: Hinweis für andere User
    von: Dieter(Drummer)
    Geschrieben am: 14.11.2015 17:44:11
    Falls andere auch daran interessiert sind, kann man auch Worte vorlesen lassen. Ich habe es dann so gemacht:

  • 
    Private Sub CommandButton12_Click()
    zahl1 = Text1
    rechenart = "multiplizieren"
    Dim objSpeaker As Object
        Set objSpeaker = CreateObject("SAPI.SpVoice")
        objSpeaker.Volume = 100
        objSpeaker.Speak "multipliziert mit"
        Set objSpeaker = Nothing
    Text1 = ""
    End Sub

  • Gruß und noch mal Dank an Nepumuk,
    Dieter(Drummer)

    Bild

    Betrifft: Kannst du dich noch erinnern, ...
    von: Luc:-?
    Geschrieben am: 16.11.2015 02:21:40
    …Dieter,
    dass es hier auch schon mal um sprechende Zellen ging…? ;-]
    (Die Vorlauf- und Nachfolge-Threads dürfen Interessenten selber raussuchen!)
    Morrn, Luc :-?

    Bild

    Betrifft: AW: Danke Luc:-? ...
    von: Dieter(Drummer)
    Geschrieben am: 16.11.2015 09:11:21
    Guten Morgen, Luc:-?,
    da hatte ich nicht mehr dran gedacht, Sorry! Den ganzen Thread werde ich mir abspeichern und entsprechendes für mich - bei anderen Gelegenheiten - natürlich verwenden.
    Einen schönen Tag und Danke an alle unermüdlichen Helfer des Forums.
    Gru, Dieter(Drummer)

     Bild

    Beiträge aus den Excel-Beispielen zum Thema "Aufruf Userform aus ausgeblendeter Datei"