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

Nach Ende Makro Userform aufrufen

Nach Ende Makro Userform aufrufen
27.01.2006 23:43:58
Peter
Hallo,
Was ist bei meiner Syntax falsch, zum Aufrufen der userform4 beim Ablauf des Makros
Fehlermeldung: Fehler beim Kompilieren,Funktion oder Variable erwartet in der Zeile userform4.Show
&ltpre&gt
Sub Zzurück_zur_Information()
Application.ScreenUpdating = False
Range("a3").Select
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6
Windows("2006.xls").Activate
Sheets("Informationen").Select
Range("F5").Select
Application.ScreenUpdating = True
userform4.Show
End Sub&lt/pre&gt
Peter D

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach Ende Makro Userform aufrufen
27.01.2006 23:48:59
Putin
Hi,
das liegt am Code in der Userform, den du aber nicht gepostet hast.
mfg Putin
AW: Nach Ende Makro Userform aufrufen
28.01.2006 00:00:44
Peter
Hallo Putin
hier ist der Code der Userform4
Peter
Public Monatsname As String
Public KWL As String
Monatsname = Worksheets("Informationen").Cells(12, 17)
KWL = Worksheets("Informationen").Cells(4, 17)
&ltpre&gt
Private Sub CommandButton1_Click()
Unload Me
Sheets("Hawa").Select
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton10_Click()
Application.Run "HAWA_gesamt"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton11_Click()
Application.Run "Abrufe_laufende_Woche_76"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton12_Click()
Application.Run "Abrufe_Tata"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton13_Click()
Application.Run "Tü_Abrufe"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton14_Click()
Application.Run "Abrufe_Desenzano"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton15_Click()
Application.Run "Abrufe_Bradford"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton16_Click()
Application.Run "Automatisch_Aufträge"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton17_Click()
Application.Run "Automatisch_Aufträge2"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton18_Click()
Application.Run "LieferungenaußerDD"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton2_Click()
Application.Run "BS_gesamt"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton20_Click()
Application.Run "Aktuell_OME_Mahindra_gmt"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton21_Click()
Application.Run "AufträgeOME"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton22_Click()
Application.Run "Lieferungen"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton24_Click()
Application.Run "RR_anfragen"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton25_Click()
Application.Run "RR_anfragen_nächster_Monat"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton27_Click()
Application.Run "Senden"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton28_Click()
Application.Run "SendenFriedbergNeu"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton29_Click()
Application.Run "Start_Packliste"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton3_Click()
Application.Run "Abrufe_laufende_Woche_33"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton30_Click()
Application.Run "Aufträge_bilden"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton31_Click()
Application.Run "Aufträge_bilden_nächster_Monat"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton32_Click()
Application.Run "DatenEinfügen"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton33_Click()
Application.Run "DatenVergleichen"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton34_Click()
Application.Run "AM_Bestellbestand"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton35_Click()
Application.Run "Mengenabstimmung"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton36_Click()
Unload Me
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks("GMT2006.xls").Save
Workbooks("GMT2006.xls").Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton37_Click()
Sheets("HAWA").Select
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton4_Click()
Application.Run "FDG_gesamt"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton5_Click()
Application.Run "Abrufe_laufende_Woche_64"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton6_Click()
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton7_Click()
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton8_Click()
Application.Run "Dresden_gesamt"
Unload Me
End Sub&lt/pre&gt
&ltpre&gt
Private Sub CommandButton9_Click()
Application.Run "Abrufe_laufende_Woche_10"
Unload Me
End Sub&lt/pre&gt
Anzeige
AW: Nach Ende Makro Userform aufrufen
28.01.2006 00:09:34
Putin
Hi,
Public- Variable gehören in ein Stabdardmodul.
Public Monatsname As String
Public KWL As String
Die Zuweisung der Werte an die Variablen müssen in ein Sub oder Function, z.B.
Userform_Activate()
Monatsname = Worksheets("Informationen").Cells(12, 17)
KWL = Worksheets("Informationen").Cells(4, 17)
mfg Putin

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige