Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code aus UF ausführen

Forumthread: Code aus UF ausführen

Code aus UF ausführen
24.09.2006 08:35:19
Lorenz
Hallo u. guten Morgen!
Wie ist es möglich wenn mittels Code ein Worksheet aktiviert wird, durch dessen Private Sub Worksheet_Activate() eine frmUF geladen wird, ein bestimmtes Ereignis aus dieser frmUF (zB. Private Sub cmdCancel_Click) ausgeführt wird.
Gruss
Lorenz
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code aus UF ausführen
24.09.2006 08:40:10
Thomas
Hallo,
versuch's mal in etwa so ...


Option Explicit
Private Sub CommandButton1_Click()
    MsgBox "TEST"
End Sub
Private Sub UserForm_Initialize()
    CommandButton1_Click
End Sub


Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
Anzeige
AW: Code aus UF ausführen
24.09.2006 08:59:17
Lorenz
Hallo Thomas.
So ist´s OK!

Private Sub UserForm_Initialize()
CommandButton1_Click
End Sub

Wenn aber die UF mittels Code aufgerufen wird, so soll z.B.
If Target.Row = 5 Then
Select Case Target.Column
Case 3

Private Sub UserForm_Initialize()
CommandButton1_Click
End Sub

Case 7

Private Sub UserForm_Initialize()
CommandButton9_Click
End Sub

Case 15

Private Sub UserForm_Initialize()
CmdCancel_Click
End Sub

End select
End If
Grüsse Lorenz
Anzeige
AW: Code aus UF ausführen
24.09.2006 09:02:17
Thomas
Im Prinzip sollte es dann etwa so aussehen ...


Private Sub UserForm_Initialize()
    Select Case Target.Column
        Case 3: CommandButton1_Click
        Case 7: CommandButton9_Click
        Case 15: CmdCancel_Click
    End Select
End Sub


Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
Anzeige
AW: Code aus UF ausführen
24.09.2006 09:44:45
Lorenz
Hallo Thomas.
Scheinbar mangelt es an der Art wie ich das Problem erkläre.
Ein hoffentlich nicht lästiger neuer Versuch mein Problem zu schildern:
Beim Sheet("Daten") wird die "frmUF" mittels " 

Private Sub Worksheet_Activate"
mittels ".Show" die "frmUF" geladen. Wenn aber das Sheet "Daten" mittels Doppelklick von Sheet("Tabelle1") ausgewählt wird,
gibts das Problem mit "Target.Column", weil das UrsprungsSheet nicht mehr geladen ist.
Sub Wunsch()
Case 1
If aufgerufen durch Doppelklick von Sheet("Tabelle1").Range("A1") Then CommandButton1_Click
Case 3
If aufgerufen durch Doppelklick von Sheet("Tabelle1").Range("C1") Then CommandButton9_Click
End Sub

Anzeige
AW: Code aus UF ausführen
24.09.2006 13:36:02
Kurt
Hi,
falscher Ansatz, besser so:

Private Sub CommandButton1_Click()
Call Makro1_im_Modul
End Sub



Private Sub CommandButton2_Click()
Call Makro2_im_Modul
End Sub

Sub Makro1_im_Modul()
MsgBox "Hi!"
End Sub
Sub Makro2_im_Modul()
MsgBox "Hallo!"
End Sub
Sub Wunsch()
If Target.Row = 5 Then
Select Case Target.Column
Case 1: Call Makro1_im_Modul
Case 3: Call Makro2_im_Modul
End Select
End If
End Sub
mfg Kurt
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige