title image


Smiley Excel verweigert Befehlsausführung
Hallo



Ich habe eine Userform mit einem Listenfeld bestückt, wähle daraus eine Option und aktiviere den Ablauf. Der Code wählt die gewünschte Option aus trägt sie auch weiter bis an die richtige Stelle überspringt aber dann die Anweisungen für die gewählte Option - hier die Eröffnung der drei notwendigen Dateien.



Ich habe eine andere Option eingebaut, wo ein fertiges funktionierendes Modul ausgeführt werden soll, mit dem gleichen Resultat. Auch hier wird der Ausführungsbefehl übersprungen.



Es wird kein Fehler angezeigt - nichts.



Ich hoffe, dass mir jemand helfen kann.



Danke schon mal und frdl. Gruß



Ernst















Private Declare Function SetCurrentDirectoryA Lib "kernel32" _

    (ByVal lpPathName As String) As Long



Private Sub CommandButton1_Click()

Dim frm As String

Dim name As String

Windows("Hauptmenü.xls").Activate

Sheets("Hintergrund").Select

Range("A1") = ListBox1.Value

frm = Range("A1")

Application.ScreenUpdating = False

If frm = "  TRANSFER REALDATEN" Then

    Workbooks.Open Filename:="realbab.XLS", UpdateLinks:=3

    Workbooks.Open Filename:="ergebnis.XLS", UpdateLinks:=3

    Workbooks.Open Filename:="persstat.XLS", UpdateLinks:=3

End If

End Sub





Private Sub Userform_initialize()

With ListBox1

    .AddItem "  TRANSFER  REALDATEN"

    .AddItem "  ALLG. DATEN"

    .AddItem "  VERKAUF"

    .AddItem "  GEBRAUCHTWAGEN"

    .AddItem "  TEILELAGER"

    .AddItem "  WERKSTATT"

    .AddItem "  RPG / TANKSTELLE"

    .AddItem "  VERWALTUNG"

    .AddItem "  SONSTIGE / ALLG. KOSTEN"

    .AddItem "  PERSONAL"

    .AddItem "  ZUSAMMENFASSUNG 'B' und andere"

    .AddItem "  --------------------"

    .AddItem "  SETUP"

End With

End Sub





Code eingefügt mit Syntaxhighlighter 4.0





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: