Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1648to1652
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Application.ScreenUpdating = False?

Application.ScreenUpdating = False?
28.09.2018 15:24:56
arek
Hallo zusammen,
ich habe folgende Frage: Ich habe ein Makro, dass Stundenlisten automatisch aktualisert mit Projekten, wenn diese eingetragen werden. Jetzt möchte ich dass diese Aktaulisierung verschwindet und nicht mehr auf dem Bildschirm zu sehen ist. Ich habe gelesen, dass das mit Application.ScreenUpdating = False funktioniert. Nun wäre meine Frage, wie ich das genau platzieren muss im Makro? Das würde mir echt weiterhelfen danke für eure Unterstützung!
Das Makro wäre hier:
Private Sub ComboBox1_Change()
If UserForm1.ComboBox1.Value = "idea" Then
If UserForm1.OptionButton1.Value = True Then 'OCIP
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
ElseIf UserForm1.OptionButton2.Value = True Then 'R&D Process
UserForm1.Label8.Visible = False 'Customer
UserForm1.Frame3.Visible = False 'overall target
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
ElseIf UserForm1.OptionButton3.Value = True Then 'R&D
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
ElseIf UserForm1.OptionButton4.Value = True Then 'Customer Development
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
End If
ElseIf UserForm1.ComboBox1.Value = "active" Then
If UserForm1.OptionButton1.Value = True Then 'OCIP
UserForm1.Label8.Visible = True 'Customer
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
ElseIf UserForm1.OptionButton2.Value = True Then 'R&D Process
UserForm1.Label8.Visible = False 'Customer
UserForm1.Frame3.Visible = False 'overall target
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
ElseIf UserForm1.OptionButton3.Value = True Then 'R&D
UserForm1.Label8.Visible = True 'Customer
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
ElseIf UserForm1.OptionButton4.Value = True Then 'Customer Development
UserForm1.Label8.Visible = True 'Customer
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
End If
UserForm1.Label19.Visible = True 'probab. of success
UserForm1.TextBox10.Visible = True 'probab. of success
UserForm1.Label12.Visible = True 'SAP
UserForm1.TextBox4.Visible = True 'SAP
UserForm1.Label29.Visible = True 'AX
UserForm1.TextBox13.Visible = True 'AX
UserForm1.Frame4.Visible = True 'timing
UserForm1.Frame5.Visible = True 'Budget
UserForm1.Label7.Visible = True 'proj. leader
UserForm1.ComboBox4.Visible = True 'proj. leader
UserForm1.Label27.Visible = True 'File Path
UserForm1.ComboBox11.Visible = True 'Path
Else
End If
UserForm1.ComboBox3.Visible = True 'proj area resp.
UserForm1.Label22.Visible = True 'type-method
UserForm1.ComboBox9.Visible = True 'type-method
UserForm1.Label10.Visible = False 'target 2
UserForm1.ComboBox7.Visible = False 'target 2
UserForm1.Label11.Visible = False 'target 3
UserForm1.ComboBox8.Visible = False 'target 3
End Sub

Private Sub ComboBox12_Change()
End Sub


Private Sub ComboBox9_Change()
Dim i, j As Integer
With Workbooks(ThisWorkbook.Name).Worksheets("Set-up")
' ComboBox laden
i = 20 ' Reihe
j = 1 ' Spalte
If UserForm1.ComboBox9.Text  "" Then
Do
i = i + 1
Loop Until .Cells(i, j).Value = "TYPE_(METHOD)_" Or i = 300
While .Cells(i, j + 1).Value  UserForm1.ComboBox9.Text
i = i + 1
Wend
UserForm1.Label28.Caption = .Cells(i, j + 2).Value
Else
UserForm1.Label28.Caption = ""
End If
End With
End Sub


Private Sub CommandButton1_Click()
Dim Freigabe, Suche_Titel As String
Dim Adresse_ As String
Dim i, j, k, l As Integer
Freigabe = "0"
' Prüfung der Felder für IDEE
If UserForm1.OptionButton1.Value = True And _
UserForm1.TextBox1.Text  "" And _
UserForm1.ComboBox3.Text  "" And _
UCase(UserForm1.ComboBox1.Text) = "IDEA" And _
UserForm1.ComboBox9.Text  "" And _
UserForm1.ComboBox6.Text  "" Then
Freigabe = "1" ' Übertragung Daten in: IDEA + ohne Upd. Ressourcen- _
Projektstundenbuchung (Option OCIP) - MEI
ElseIf UserForm1.OptionButton2.Value = True And _
UserForm1.TextBox1.Text  "" And _
UserForm1.ComboBox3.Text  "" And _
UCase(UserForm1.ComboBox1.Text) = "IDEA" And _
UserForm1.ComboBox9.Text  "" Then
Freigabe = "2" ' Übertragung Daten in: IDEA + ohne Upd. Ressourcen- _
Projektstundenbuchung (Option R&D Process) - MEI
ElseIf UserForm1.OptionButton3.Value = True And _
UserForm1.TextBox1.Text  "" And _
UserForm1.ComboBox3.Text  "" And _
UCase(UserForm1.ComboBox1.Text) = "IDEA" And _
UserForm1.ComboBox9.Text  "" And _
UserForm1.ComboBox6.Text  "" Then
Freigabe = "3" ' Übertragung Daten in: IDEA + ohne Upd. Ressourcen- _
Projektstundenbuchung (Option R&D) - MEI
ElseIf UserForm1.OptionButton4.Value = True And _
UserForm1.TextBox1.Text  "" And _
UserForm1.ComboBox3.Text  "" And _
UCase(UserForm1.ComboBox1.Text) = "IDEA" And _
UserForm1.ComboBox9.Text  "" And _
UserForm1.ComboBox6.Text  "" Then
Freigabe = "4" ' Übertragung Daten in: IDEA + ohne Upd. Ressourcen- _
Projektstundenbuchung (Option Customer Development) - MEI
' Prüfung der Felder für AKTIVIERUNG
ElseIf UserForm1.OptionButton1.Value = True And _
UserForm1.TextBox1.Text  "" And _
UserForm1.TextBox3.Text  "" And _
UserForm1.TextBox4.Text  "" And _
UserForm1.TextBox7.Text  "" And _
UserForm1.TextBox8.Text  "" And _
UserForm1.TextBox9.Text  "" And _
UserForm1.TextBox10.Text  "" And _
UserForm1.TextBox13.Text  "" And _
UCase(UserForm1.ComboBox1.Text) = "ACTIVE" And _
UserForm1.ComboBox3.Text  "" And _
UserForm1.ComboBox4.Text  "" And _
UserForm1.ComboBox6.Text  "" And _
UserForm1.ComboBox11.Text  "" And _
UserForm1.ComboBox12.Text  "" And _
UserForm1.ComboBox13.Text  "" And _
UserForm1.ComboBox14.Text  "" And _
UserForm1.ComboBox15.Text  "" And _
UserForm1.ComboBox16.Text  "" And _
UserForm1.ComboBox17.Text  "" And _
UserForm1.ComboBox9.Text  "" Then
Freigabe = "5" ' Übertragung Daten in: ACTIVE + Upd. Ressourcen- _
Projektstundenbuchung (Option OCIP) - MEI
'OCIP
ElseIf UserForm1.OptionButton2.Value = True And _
UserForm1.TextBox1.Text  "" And _
UserForm1.TextBox3.Text  "" And _
UserForm1.TextBox4.Text  "" And _
UserForm1.TextBox7.Text  "" And _
UserForm1.TextBox8.Text  "" And _
UserForm1.TextBox9.Text  "" And _
UserForm1.TextBox10.Text  "" And _
UserForm1.TextBox13.Text  "" And _
UCase(UserForm1.ComboBox1.Text) = "ACTIVE" And _
UserForm1.ComboBox3.Text  "" And _
UserForm1.ComboBox4.Text  "" And _
UserForm1.ComboBox11.Text  "" And _
UserForm1.ComboBox12.Text  "" And _
UserForm1.ComboBox13.Text  "" And _
UserForm1.ComboBox14.Text  "" And _
UserForm1.ComboBox15.Text  "" And _
UserForm1.ComboBox16.Text  "" And _
UserForm1.ComboBox17.Text  "" And _
UserForm1.ComboBox9.Text  "" Then
Freigabe = "6" ' Übertragung Daten in: ACTIVE + Upd. Ressourcen- _
Projektstundenbuchung (Option R&D Process) - MEI
'R&D Process
ElseIf UserForm1.OptionButton3.Value = True And _
UserForm1.TextBox1.Text  "" And _
UserForm1.TextBox3.Text  "" And _
UserForm1.TextBox7.Text  "" And _
UserForm1.TextBox8.Text  "" And _
UserForm1.TextBox9.Text  "" And _
UserForm1.TextBox10.Text  "" And _
UCase(UserForm1.ComboBox1.Text) = "ACTIVE" And _
UserForm1.ComboBox3.Text  "" And _
UserForm1.ComboBox4.Text  "" And _
UserForm1.ComboBox6.Text  "" And _
UserForm1.ComboBox7.Text  "" And _
UserForm1.ComboBox11.Text  "" And _
UserForm1.ComboBox12.Text  "" And _
UserForm1.ComboBox13.Text  "" And _
UserForm1.ComboBox14.Text  "" And _
UserForm1.ComboBox15.Text  "" And _
UserForm1.ComboBox16.Text  "" And _
UserForm1.ComboBox17.Text  "" And _
UserForm1.ComboBox9.Text  "" Then
Freigabe = "7" ' Übertragung Daten in: ACTIVE + Upd. Ressourcen- _
Projektstundenbuchung (Option R&D) - MEI
'R&D
ElseIf UserForm1.OptionButton4.Value = True And _
UserForm1.TextBox1.Text  "" And _
UserForm1.TextBox3.Text  "" And _
UserForm1.TextBox4.Text  "" And _
UserForm1.TextBox7.Text  "" And _
UserForm1.TextBox8.Text  "" And _
UserForm1.TextBox9.Text  "" And _
UserForm1.TextBox10.Text  "" And _
UserForm1.TextBox13.Text  "" And _
UCase(UserForm1.ComboBox1.Text) = "ACTIVE" And _
UserForm1.ComboBox3.Text  "" And _
UserForm1.ComboBox4.Text  "" And _
UserForm1.ComboBox6.Text  "" And _
UserForm1.ComboBox11.Text  "" And _
UserForm1.ComboBox12.Text  "" And _
UserForm1.ComboBox13.Text  "" And _
UserForm1.ComboBox14.Text  "" And _
UserForm1.ComboBox15.Text  "" And _
UserForm1.ComboBox16.Text  "" And _
UserForm1.ComboBox17.Text  "" And _
UserForm1.ComboBox9.Text  "" Then
Freigabe = "8" ' Übertragung Daten in: ACTIVE + Upd. Ressourcen- _
Projektstundenbuchung (Option R&D) - MEI
'Customer Development
Else
Freigabe = "0" ' Keine Übertragung
' hier Programm mit Fehlermeldungen in der Eingabemaske
Modul1.Check_UserForm1_Errors
End If
' Kontrolle, ob bereits das Projekttitel registriert wurde - keine Übertragung bei Ü _
bereinstimmung 100%, bei  "0" Then
Suche_Titel = UserForm1.TextBox1.Text 'Project Titel
With Worksheets("ACTIVE")
i = 6 ' Reihe
j = 10 ' Spalte
k = 2
Do
If .Cells(i, j).Value = Suche_Titel Then
Worksheets("Errors").Cells(k, 1).Value = "(" & CStr(i) & " : " & CStr(j) & ")"
Worksheets("Errors").Cells(k, 2).Value = "ACTIVE"
Worksheets("Errors").Cells(k, 3).Value = Now()
Worksheets("Errors").Cells(k, 4).Value = "project already registered: " &  _
Suche_Titel
k = k + 1
End If
i = i + 1
Loop Until .Cells(i, j).Value = "" Or i = 1000
End With
If k > 2 Then
Freigabe = "0" ' Keine Übertragung
MsgBox "Creating project aborded. Pls see page ERRORS and fix the problem first.",  _
vbCritical, "Error"
End If
End If
'Datenübertragung für: IDEA + OCIP
If Freigabe = "1" Then
'Leere Reihe finden in: IDEA
With Worksheets("IDEA")
.Activate
i = 6 ' Reihe
j = 12 ' Spalte
Do
i = i + 1
Loop Until .Cells(i, j).Value = "" Or i = 1000
'Daten in IDEA speichern
Range(Cells(i, 1), Cells(i, 48)).Select
Selection.ClearContents
'Datenschaufel :-)
.Cells(i, 12).Value = UserForm1.TextBox1.Text 'Title
.Cells(i, 5).Value = UserForm1.ComboBox1.Text 'State
.Cells(i, 7).Value = UserForm1.ComboBox3.Text 'Proj area resp.
.Cells(i, 8).Value = UserForm1.ComboBox9.Text 'Type (method)
.Cells(i, 13).Value = UserForm1.ComboBox6.Text 'Overall target
.Cells(i, 31).Value = CDec(UserForm1.ComboBox12.Text) / 100 'Site MEI%
.Cells(i, 32).Value = CDec(UserForm1.ComboBox13.Text) / 100 'Site STZ%
If UserForm1.OptionButton1.Value = True Then
.Cells(i, 36).Value = "OCIP"
'.Cells(i, 21).Value = "Q" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date Quartal - Jahr
'.Cells(i, 22).Value = "Q" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  Quartal - Jahr
ElseIf UserForm1.OptionButton2.Value = True Then
.Cells(i, 36).Value = "R&D Process"
'.Cells(i, 21).Value = "CW" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date CW - Jahr
'.Cells(i, 22).Value = "CW" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  CW - Jahr
ElseIf UserForm1.OptionButton3.Value = True Then
.Cells(i, 36).Value = "R&D"
'.Cells(i, 21).Value = "CW" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date CW - Jahr
'.Cells(i, 22).Value = "CW" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  CW - Jahr
ElseIf UserForm1.OptionButton4.Value = True Then
.Cells(i, 36).Value = "Customer Development"
'.Cells(i, 21).Value = "CW" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date CW - Jahr
'.Cells(i, 22).Value = "CW" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  CW - Jahr
Else
.Cells(i, 36).Value = ""
End If
End With
End If
'Datenübertragung für: IDEA + R&D Process
If Freigabe = "2" Then
'Leere Reihe finden in: IDEA
With Worksheets("IDEA")
.Activate
i = 6 ' Reihe
j = 12 ' Spalte
Do
i = i + 1
Loop Until .Cells(i, j).Value = "" Or i = 1000
'Daten in IDEA speichern
Range(Cells(i, 1), Cells(i, 48)).Select
Selection.ClearContents
'Datenschaufel :-)
.Cells(i, 12).Value = UserForm1.TextBox1.Text 'Title
.Cells(i, 5).Value = UserForm1.ComboBox1.Text 'State
.Cells(i, 7).Value = UserForm1.ComboBox3.Text 'Proj area resp.
.Cells(i, 8).Value = UserForm1.ComboBox9.Text 'Type (method)
'.Cells(i, 9).Value = UserForm1.ComboBox5.Text 'Champion
.Cells(i, 13).Value = UserForm1.ComboBox6.Text 'Overall target
.Cells(i, 31).Value = CDec(UserForm1.ComboBox12.Text) / 100 'Site MEI%
.Cells(i, 32).Value = CDec(UserForm1.ComboBox13.Text) / 100 'Site STZ%
If UserForm1.OptionButton1.Value = True Then
.Cells(i, 36).Value = "OCIP"
'.Cells(i, 21).Value = "Q" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date Quartal - Jahr
'.Cells(i, 22).Value = "Q" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  Quartal - Jahr
ElseIf UserForm1.OptionButton2.Value = True Then
.Cells(i, 36).Value = "R&D Process"
'.Cells(i, 21).Value = "CW" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date CW - Jahr
'.Cells(i, 22).Value = "CW" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  CW - Jahr
ElseIf UserForm1.OptionButton3.Value = True Then
.Cells(i, 36).Value = "R&D"
'.Cells(i, 21).Value = "CW" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date CW - Jahr
'.Cells(i, 22).Value = "CW" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  CW - Jahr
ElseIf UserForm1.OptionButton4.Value = True Then
.Cells(i, 36).Value = "Customer Development"
'.Cells(i, 21).Value = "CW" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date CW - Jahr
'.Cells(i, 22).Value = "CW" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  CW - Jahr
Else
.Cells(i, 36).Value = ""
End If
End With
End If
'Datenübertragung für: IDEA + R&D
If Freigabe = "3" Then
'Leere Reihe finden in: IDEA
With Worksheets("IDEA")
.Activate
i = 6 ' Reihe
j = 12 ' Spalte
Do
i = i + 1
Loop Until .Cells(i, j).Value = "" Or i = 1000
'Daten in IDEA speichern
Range(Cells(i, 1), Cells(i, 48)).Select
Selection.ClearContents
'Datenschaufel :-)
.Cells(i, 12).Value = UserForm1.TextBox1.Text 'Title
.Cells(i, 5).Value = UserForm1.ComboBox1.Text 'State
.Cells(i, 7).Value = UserForm1.ComboBox3.Text 'Proj area resp.
.Cells(i, 8).Value = UserForm1.ComboBox9.Text 'Type (method)
.Cells(i, 13).Value = UserForm1.ComboBox6.Text 'Overall target
.Cells(i, 37).Value = UserForm1.ComboBox7.Text 'Target 2
.Cells(i, 31).Value = CDec(UserForm1.ComboBox12.Text) / 100 'Site MEI%
.Cells(i, 32).Value = CDec(UserForm1.ComboBox13.Text) / 100 'Site STZ%
If UserForm1.OptionButton1.Value = True Then
.Cells(i, 36).Value = "OCIP"
'.Cells(i, 21).Value = "Q" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date Quartal - Jahr
'.Cells(i, 22).Value = "Q" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  Quartal - Jahr
ElseIf UserForm1.OptionButton2.Value = True Then
.Cells(i, 36).Value = "R&D Process"
'.Cells(i, 21).Value = "CW" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date CW - Jahr
'.Cells(i, 22).Value = "CW" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  CW - Jahr
ElseIf UserForm1.OptionButton3.Value = True Then
.Cells(i, 36).Value = "R&D"
'.Cells(i, 21).Value = "CW" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date CW - Jahr
'.Cells(i, 22).Value = "CW" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  CW - Jahr
ElseIf UserForm1.OptionButton4.Value = True Then
.Cells(i, 36).Value = "Customer Development"
'.Cells(i, 21).Value = "CW" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date CW - Jahr
'.Cells(i, 22).Value = "CW" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  CW - Jahr
Else
.Cells(i, 36).Value = ""
End If
End With
End If
'Datenübertragung für: IDEA + Customer Development
If Freigabe = "4" Then
'Leere Reihe finden in: IDEA
With Worksheets("IDEA")
.Activate
i = 6 ' Reihe
j = 12 ' Spalte
Do
i = i + 1
Loop Until .Cells(i, j).Value = "" Or i = 1000
'Daten in IDEA speichern
Range(Cells(i, 1), Cells(i, 48)).Select
Selection.ClearContents
'Datenschaufel :-)
.Cells(i, 12).Value = UserForm1.TextBox1.Text 'Title
.Cells(i, 5).Value = UserForm1.ComboBox1.Text 'State
.Cells(i, 7).Value = UserForm1.ComboBox3.Text 'Proj area resp.
.Cells(i, 8).Value = UserForm1.ComboBox9.Text 'Type (method)
.Cells(i, 13).Value = UserForm1.ComboBox6.Text 'Overall target
.Cells(i, 31).Value = CDec(UserForm1.ComboBox12.Text) / 100 'Site MEI%
.Cells(i, 32).Value = CDec(UserForm1.ComboBox13.Text) / 100 'Site STZ%
If UserForm1.OptionButton1.Value = True Then
.Cells(i, 36).Value = "OCIP"
'.Cells(i, 21).Value = "Q" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date Quartal - Jahr
'.Cells(i, 22).Value = "Q" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  Quartal - Jahr
ElseIf UserForm1.OptionButton2.Value = True Then
.Cells(i, 36).Value = "R&D Process"
'.Cells(i, 21).Value = "CW" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date CW - Jahr
'.Cells(i, 22).Value = "CW" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  CW - Jahr
ElseIf UserForm1.OptionButton3.Value = True Then
.Cells(i, 36).Value = "R&D"
'.Cells(i, 21).Value = "CW" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date CW - Jahr
'.Cells(i, 22).Value = "CW" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  CW - Jahr
ElseIf UserForm1.OptionButton4.Value = True Then
.Cells(i, 36).Value = "Customer Development"
'.Cells(i, 21).Value = "CW" & UserForm1.TextBox11.Text & "-" & UserForm1.TextBox5. _
Text ' start date CW - Jahr
'.Cells(i, 22).Value = "CW" & UserForm1.TextBox6.Text & "-" & UserForm1.TextBox12. _
Text ' end date  CW - Jahr
Else
.Cells(i, 36).Value = ""
End If
End With
End If
'Neue fortlaufende Projektnummer finden
Modul1.Proj_ID_Calculate
'Datenübertragung für: ACTIVE + OCIP
If Freigabe = "5" Then
'Leere Reihe finden in: ACTIVE
With Worksheets("ACTIVE")
.Activate
ActiveSheet.Unprotect
i = 6 ' Reihe
j = 12 ' Spalte
Do
i = i + 1
Loop Until .Cells(i, j).Value = "" Or i = 1000
'Daten in ACTIVE speichern
Range(Cells(i, 1), Cells(i, 48)).Select
Selection.ClearContents
'Datenschaufel :-)
.Cells(i, 12).Value = UserForm1.TextBox1.Text 'Title
.Cells(i, 5).Value = UserForm1.ComboBox1.Text 'State
.Cells(i, 7).Value = UserForm1.ComboBox3.Text 'Proj area resp.
.Cells(i, 8).Value = UserForm1.ComboBox9.Text 'Type (method)
.Cells(i, 13).Value = UserForm1.ComboBox6.Text 'Overall target 1
.Cells(i, 10).Value = UserForm1.ComboBox4.Text 'Proj. leader
.Cells(i, 2).Value = CStr(UserForm1.TextBox3.Text) 'ID number
.Cells(i, 3).Value = UserForm1.TextBox4.Text 'SAP nummer
.Cells(i, 4).Value = UserForm1.TextBox13.Text 'AX nummer
.Cells(i, 24).Value = CDec(UserForm1.TextBox7.Text) 'cost
.Cells(i, 25).Value = CDec(UserForm1.TextBox8.Text) 'capex
.Cells(i, 26).Value = CDec(UserForm1.TextBox9.Text) 'benefit
.Cells(i, 31).Value = CDec(UserForm1.ComboBox12.Text) / 100 'Site MEI%
.Cells(i, 32).Value = CDec(UserForm1.ComboBox13.Text) / 100 'Site STZ%
.Cells(i, 33).Value = CDec(UserForm1.TextBox10.Text) / 100 ' probab of success
.Cells(i, 35).Value = UserForm1.ComboBox11.Text 'Pfad
If UserForm1.OptionButton1.Value = True Then
.Cells(i, 36).Value = "OCIP"
.Cells(i, 21).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date Quartal - Jahr
.Cells(i, 22).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  Quartal - Jahr
ElseIf UserForm1.OptionButton2.Value = True Then
.Cells(i, 36).Value = "R&D Process"
.Cells(i, 21).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date CW - Jahr
.Cells(i, 22).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  CW - Jahr
ElseIf UserForm1.OptionButton3.Value = True Then
.Cells(i, 36).Value = "R&D"
.Cells(i, 21).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date CW - Jahr
.Cells(i, 22).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  CW - Jahr
ElseIf UserForm1.OptionButton4.Value = True Then
.Cells(i, 36).Value = "Customer Development"
.Cells(i, 21).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date CW - Jahr
.Cells(i, 22).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  CW - Jahr
Else
.Cells(i, 36).Value = ""
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True,  _
AllowFiltering:=True
End With
End If
'Datenübertragung für: ACTIVE + R&D Process
If Freigabe = "6" Then
'Leere Reihe finden in: ACTIVE
With Worksheets("ACTIVE")
.Activate
ActiveSheet.Unprotect
i = 6 ' Reihe
j = 12 ' Spalte
Do
i = i + 1
Loop Until .Cells(i, j).Value = "" Or i = 1000
'Daten in ACTIVE speichern
Range(Cells(i, 1), Cells(i, 48)).Select
Selection.ClearContents
'Datenschaufel :-)
.Cells(i, 12).Value = UserForm1.TextBox1.Text 'Title
.Cells(i, 5).Value = UserForm1.ComboBox1.Text 'State
.Cells(i, 7).Value = UserForm1.ComboBox3.Text 'Proj area resp.
.Cells(i, 8).Value = UserForm1.ComboBox9.Text 'Type (method)
'.Cells(i, 9).Value = UserForm1.ComboBox5.Text 'Champion
.Cells(i, 13).Value = UserForm1.ComboBox6.Text 'Overall target 1
.Cells(i, 10).Value = UserForm1.ComboBox4.Text 'Proj. leader
.Cells(i, 2).Value = UserForm1.TextBox3.Text 'ID number
.Cells(i, 3).Value = UserForm1.TextBox4.Text 'SAP nummer
.Cells(i, 4).Value = UserForm1.TextBox13.Text 'AX nummer
.Cells(i, 24).Value = CDec(UserForm1.TextBox7.Text) 'cost
.Cells(i, 25).Value = CDec(UserForm1.TextBox8.Text) 'capex
.Cells(i, 26).Value = CDec(UserForm1.TextBox9.Text) 'benefit
.Cells(i, 31).Value = CDec(UserForm1.ComboBox12.Text) / 100 'Site MEI%
.Cells(i, 32).Value = CDec(UserForm1.ComboBox13.Text) / 100 'Site STZ%
.Cells(i, 33).Value = CDec(UserForm1.TextBox10.Text) / 100 'probab of success
.Cells(i, 35).Value = UserForm1.ComboBox11.Text 'Pfad
If UserForm1.OptionButton1.Value = True Then
.Cells(i, 36).Value = "OCIP"
.Cells(i, 21).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date Quartal - Jahr
.Cells(i, 22).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  Quartal - Jahr
ElseIf UserForm1.OptionButton2.Value = True Then
.Cells(i, 36).Value = "R&D Process"
.Cells(i, 21).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date CW - Jahr
.Cells(i, 22).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  CW - Jahr
ElseIf UserForm1.OptionButton3.Value = True Then
.Cells(i, 36).Value = "R&D"
.Cells(i, 21).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date CW - Jahr
.Cells(i, 22).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  CW - Jahr
ElseIf UserForm1.OptionButton4.Value = True Then
.Cells(i, 36).Value = "Customer Development"
.Cells(i, 21).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date CW - Jahr
.Cells(i, 22).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  CW - Jahr
Else
.Cells(i, 36).Value = ""
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True,  _
AllowFiltering:=True
End With
End If
'Datenübertragung für: ACTIVE + R&D
If Freigabe = "7" Then
'Leere Reihe finden in: ACTIVE
With Worksheets("ACTIVE")
.Activate
ActiveSheet.Unprotect
i = 6 ' Reihe
j = 12 ' Spalte
Do
i = i + 1
Loop Until .Cells(i, j).Value = "" Or i = 1000
'Daten in ACTIVE speichern
Range(Cells(i, 1), Cells(i, 48)).Select
Selection.ClearContents
'Datenschaufel :-)
.Cells(i, 12).Value = UserForm1.TextBox1.Text 'Title
.Cells(i, 5).Value = UserForm1.ComboBox1.Text 'State
.Cells(i, 7).Value = UserForm1.ComboBox3.Text 'Proj area resp.
.Cells(i, 8).Value = UserForm1.ComboBox9.Text 'Type (method)
.Cells(i, 13).Value = UserForm1.ComboBox6.Text 'Overall target
.Cells(i, 37).Value = UserForm1.ComboBox7.Text 'Target 2
.Cells(i, 10).Value = UserForm1.ComboBox4.Text 'Proj. leader
.Cells(i, 1).Value = UserForm1.TextBox3.Text 'ID number
.Cells(i, 2).Value = "R" & UserForm1.TextBox3.Text '"R" & ID number
.Cells(i, 3).Value = UserForm1.TextBox4.Text 'SAP nummer
.Cells(i, 4).Value = UserForm1.TextBox13.Text 'AX nummer
.Cells(i, 24).Value = CDec(UserForm1.TextBox7.Text) 'cost
.Cells(i, 25).Value = CDec(UserForm1.TextBox8.Text) 'capex
.Cells(i, 26).Value = CDec(UserForm1.TextBox9.Text) 'benefit
.Cells(i, 31).Value = CDec(UserForm1.ComboBox12.Text) / 100 'Site MEI%
.Cells(i, 32).Value = CDec(UserForm1.ComboBox13.Text) / 100 'Site STZ%
.Cells(i, 33).Value = CDec(UserForm1.TextBox10.Text) / 100 'probab of success
.Cells(i, 35).Value = UserForm1.ComboBox11.Text 'Pfad
If UserForm1.OptionButton1.Value = True Then
.Cells(i, 36).Value = "OCIP"
.Cells(i, 21).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date Quartal - Jahr
.Cells(i, 22).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  Quartal - Jahr
ElseIf UserForm1.OptionButton2.Value = True Then
.Cells(i, 36).Value = "R&D Process"
.Cells(i, 21).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date CW - Jahr
.Cells(i, 22).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  CW - Jahr
ElseIf UserForm1.OptionButton3.Value = True Then
.Cells(i, 36).Value = "R&D"
.Cells(i, 21).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date CW - Jahr
.Cells(i, 22).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  CW - Jahr
ElseIf UserForm1.OptionButton4.Value = True Then
.Cells(i, 36).Value = "Customer Development"
.Cells(i, 21).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date CW - Jahr
.Cells(i, 22).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  CW - Jahr
Else
.Cells(i, 36).Value = ""
End If
End With
End If
'Datenübertragung für: ACTIVE + Customer Development
If Freigabe = "8" Then
'Leere Reihe finden in: ACTIVE
With Worksheets("ACTIVE")
.Activate
ActiveSheet.Unprotect
i = 3 ' Reihe
j = 10 ' Spalte
Do
i = i + 4
Loop Until .Cells(i, j).Value = "" Or i = 1000
'Daten in ACTIVE speichern
Range(Cells(i, 1), Cells(i, 48)).Select
'Datenschaufel :-)
.Cells(i, 10).Value = UserForm1.TextBox1.Text 'Application
.Cells(i, 6).Value = UserForm1.ComboBox1.Text 'State
.Cells(i, 8).Value = UserForm1.ComboBox3.Text 'Customer
.Cells(i, 7).Value = UserForm1.ComboBox9.Text 'Type (method)
.Cells(i, 11).Value = UserForm1.ComboBox6.Text 'Project Scope
.Cells(i, 9).Value = UserForm1.ComboBox4.Text 'Project Manager
.Cells(i, 1).Value = UserForm1.TextBox3.Text 'ID number
.Cells(i, 4).Value = UserForm1.TextBox4.Text 'SAP nummer
.Cells(i, 5).Value = UserForm1.TextBox13.Text 'AX nummer
.Cells(i, 15).Value = CDec(UserForm1.TextBox7.Text) 'cost
.Cells(i, 16).Value = CDec(UserForm1.TextBox8.Text) 'capex
.Cells(i, 17).Value = CDec(UserForm1.TextBox9.Text) 'benefit
.Cells(i, 21).Value = CDec(UserForm1.ComboBox12.Text) / 100 'Site MEI%
.Cells(i, 22).Value = CDec(UserForm1.ComboBox13.Text) / 100 'Site STZ%
.Cells(i, 23).Value = CDec(UserForm1.TextBox10.Text) / 100 'probab of success
.Cells(i, 24).Value = UserForm1.ComboBox11.Text 'Pfad
If UserForm1.OptionButton1.Value = True Then
.Cells(i, 12).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date Quartal - Jahr
.Cells(i, 13).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  Quartal - Jahr
ElseIf UserForm1.OptionButton2.Value = True Then
.Cells(i, 12).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date CW - Jahr
.Cells(i, 13).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  CW - Jahr
ElseIf UserForm1.OptionButton3.Value = True Then
.Cells(i, 12).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date CW - Jahr
.Cells(i, 13).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  CW - Jahr
ElseIf UserForm1.OptionButton4.Value = True Then
.Cells(i, 12).Value = UserForm1.ComboBox14.Text & "-" & UserForm1.ComboBox15.Text '  _
start date CW - Jahr
.Cells(i, 13).Value = UserForm1.ComboBox16.Text & "-" & UserForm1.ComboBox17.Text '  _
end date  CW - Jahr
End If
End With
End If
' Aktualisierung HOURS_BOOKING
Project_Titel_ = UserForm1.TextBox1.Text
OCIP_Workbook_Name_ = ThisWorkbook.Name
Status_in_hours_booking = UserForm1.ComboBox1.Text
Proj_ID_in_hours_booking = "C" & CDec(UserForm1.TextBox3.Text)
' ** Listen Hours booking aktualisieren ** SOFTWARE-Link **
If Freigabe = "8" Or Freigabe = "7" Or Freigabe = "6" Or Freigabe = "5" Then
With Workbooks(ThisWorkbook.Name).Worksheets("Set-up")
i = 50 ' Reihe Adressfeld = 50..400
j = 1 ' Spalte
Switch_1 = ""
Switch_2 = ""
Do
If .Cells(i, j).Value = "PATH_HOURS_BOOKING_" Then
LINK_ = ThisWorkbook.Path & .Cells(i, j + 1).Value
Switch_1 = "1"
End If
i = i + 1
Loop Until .Cells(i, j).Value = "" Or i = 400
i = 50 ' Reihe Adressfeld = 50..400 in Set-up
o = 2   ' Reihe in Errors
Do
If .Cells(i, j).Value = "FILE_HOURS_BOOKING_" Then
File_Name_ = .Cells(i, j + 1).Value
Switch_2 = "1"
End If
OCIP_Workbook_Name_ = ThisWorkbook.Name
Path_ = LINK_ & File_Name_ & ".xlsm"
If File_Name_  "" Then
ChDir LINK_
Workbooks.Open Filename:=Path_, UpdateLinks:=0
ActiveWorkbook.RunAutoMacros xlAutoOpen
Hours_Workbook_Name_ = File_Name_ & ".xlsm"
m = 1 ' project title Row in hours booking
n = 1 ' project title column in hours booking
Do
Test = Workbooks(Hours_Workbook_Name_).Worksheets("Project_and_activity_list"). _
Cells(m, n).Value
If Workbooks(Hours_Workbook_Name_).Worksheets("Project_and_activity_list"). _
Cells(m, n).Value = Project_Titel_ Then
Workbooks(Hours_Workbook_Name_).Worksheets("Project_and_activity_list"). _
Cells(m, n + 1).Value = Status_in_hours_booking
Workbooks(Hours_Workbook_Name_).Worksheets("Project_and_activity_list"). _
Cells(m, n + 2).Value = Proj_ID_in_hours_booking
Exit Do
ElseIf CStr(Workbooks(Hours_Workbook_Name_).Worksheets(" _
Project_and_activity_list").Cells(m, n).Value) = "0" Then
Workbooks(Hours_Workbook_Name_).Worksheets("Project_and_activity_list"). _
Cells(m, n).Value = Project_Titel_
Workbooks(Hours_Workbook_Name_).Worksheets("Project_and_activity_list"). _
Cells(m, n + 1).Value = Status_in_hours_booking
Workbooks(Hours_Workbook_Name_).Worksheets("Project_and_activity_list"). _
Cells(m, n + 2).Value = Proj_ID_in_hours_booking
Exit Do
ElseIf CStr(Workbooks(Hours_Workbook_Name_).Worksheets(" _
Project_and_activity_list").Cells(m, n).Value) = "" Then
Workbooks(Hours_Workbook_Name_).Worksheets("Project_and_activity_list"). _
Cells(m, n).Value = Project_Titel_
Workbooks(Hours_Workbook_Name_).Worksheets("Project_and_activity_list"). _
Cells(m, n + 1).Value = Status_in_hours_booking
Workbooks(Hours_Workbook_Name_).Worksheets("Project_and_activity_list"). _
Cells(m, n + 2).Value = Proj_ID_in_hours_booking
Exit Do
End If
m = m + 1
Loop Until m = 2000  ' limit for item number in hours booking. searching range = 1.. _
2000
If m 

Private Sub Frame1_Click()
End Sub


Private Sub Frame2_Click()
End Sub


Private Sub Frame3_Click()
End Sub


Private Sub Frame4_Click()
End Sub


Private Sub Frame6_Click()
End Sub


Private Sub Frame6_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
End Sub


Private Sub Label32_Click()
End Sub


Private Sub OptionButton1_Click() ' OCIP options
If UserForm1.ComboBox1.Value = "idea" Then
If UserForm1.OptionButton1.Value = True Then 'OCIP
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton2.Value = True Then 'R&D Process
UserForm1.Label8.Visible = False 'Customer
UserForm1.Frame3.Visible = False 'overall target
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton3.Value = True Then 'R&D
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton4.Value = True Then 'Customer Development
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
End If
ElseIf UserForm1.ComboBox1.Value = "active" Then
If UserForm1.OptionButton1.Value = True Then 'OCIP
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = True 'proj. leader
UserForm1.ComboBox4.Visible = True 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = True 'probab. of success
UserForm1.TextBox10.Visible = True 'probab. of success
UserForm1.Label12.Visible = True 'SAP
UserForm1.TextBox4.Visible = True 'SAP
UserForm1.Label29.Visible = True 'AX
UserForm1.TextBox13.Visible = True 'AX
UserForm1.Label27.Visible = True 'File Path
UserForm1.ComboBox11.Visible = True 'Path
UserForm1.Frame4.Visible = True 'timing
UserForm1.Frame5.Visible = True 'Budget
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton2.Value = True Then 'R&D Process
UserForm1.Label8.Visible = False 'Customer
UserForm1.Frame3.Visible = False 'overall target
UserForm1.Label27.Visible = True 'File Path
UserForm1.ComboBox11.Visible = True 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton3.Value = True Then 'R&D
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = True 'proj. leader
UserForm1.ComboBox4.Visible = True 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = True 'probab. of success
UserForm1.TextBox10.Visible = True 'probab. of success
UserForm1.Label12.Visible = True 'SAP
UserForm1.TextBox4.Visible = True 'SAP
UserForm1.Label29.Visible = True 'AX
UserForm1.TextBox13.Visible = True 'AX
UserForm1.Label27.Visible = True 'File Path
UserForm1.ComboBox11.Visible = True 'Path
UserForm1.Frame4.Visible = True 'timing
UserForm1.Frame5.Visible = True 'Budget
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton4.Value = True Then 'Customer Development
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = True 'proj. leader
UserForm1.ComboBox4.Visible = True 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = True 'probab. of success
UserForm1.TextBox10.Visible = True 'probab. of success
UserForm1.Label12.Visible = True 'SAP
UserForm1.TextBox4.Visible = True 'SAP
UserForm1.Label29.Visible = True 'AX
UserForm1.TextBox13.Visible = True 'AX
UserForm1.Label27.Visible = True 'File Path
UserForm1.ComboBox11.Visible = True 'Path
UserForm1.Frame4.Visible = True 'timing
UserForm1.Frame5.Visible = True 'Budget
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
End If
Else
End If
If UserForm1.OptionButton1.Value = True Then 'OCIP
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton2.Value = True Then 'R&D Process
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton3.Value = True Then 'R&D
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton4.Value = True Then 'Customer Development
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
End If
clear_combos
With Workbooks(ThisWorkbook.Name).Worksheets("Set-up")
' ComboBox laden
i = 24 ' Reihe
j = 1 ' Spalte
Do
If .Cells(i, j).Value = "STATE_" Then
UserForm1.ComboBox1.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "PROJ_AREA_RESP_OCIP" Then
UserForm1.ComboBox3.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "PROJECT_LEADER_MANAGER_OCIP" Then
UserForm1.ComboBox4.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TARGET_1_OCIP" Then
UserForm1.ComboBox6.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TARGET_2_OCIP" Then
UserForm1.ComboBox7.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TARGET_3_OCIP" Then
UserForm1.ComboBox8.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TYPE_(METHOD)_" Then
UserForm1.ComboBox9.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "PATH_PROJECT_ACTIVITY_FILES_" Then
UserForm1.ComboBox11.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "SITE_MEI_%" Then
UserForm1.ComboBox12.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "SITE_STZ_%" Then
UserForm1.ComboBox13.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "MONTH" Then
UserForm1.ComboBox14.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "YEAR" Then
UserForm1.ComboBox15.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "MONTH" Then
UserForm1.ComboBox16.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "YEAR" Then
UserForm1.ComboBox17.AddItem .Cells(i, j + 1).Value
End If
i = i + 1
Loop Until .Cells(i, j).Value = "" Or i = 400
End With
UserForm1.ComboBox3.Visible = True 'proj area resp.
UserForm1.Label22.Visible = True 'type-method
UserForm1.ComboBox9.Visible = True 'type-method
UserForm1.Label10.Visible = False 'target 2
UserForm1.ComboBox7.Visible = False 'target 2
UserForm1.Label11.Visible = False 'target 3
UserForm1.ComboBox8.Visible = False 'target 3
End Sub


Private Sub OptionButton2_Click() 'R&D process options
If UserForm1.ComboBox1.Value = "idea" Then
If UserForm1.OptionButton1.Value = True Then 'OCIP
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton2.Value = True Then 'R&D Process
UserForm1.Label8.Visible = False 'Customer
UserForm1.Frame3.Visible = False 'overall target
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton3.Value = True Then 'R&D
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton4.Value = True Then 'Customer Development
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
End If
ElseIf UserForm1.ComboBox1.Value = "active" Then
If UserForm1.OptionButton1.Value = True Then 'OCIP
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = True 'proj. leader
UserForm1.ComboBox4.Visible = True 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = True 'probab. of success
UserForm1.TextBox10.Visible = True 'probab. of success
UserForm1.Label12.Visible = True 'SAP
UserForm1.TextBox4.Visible = True 'SAP
UserForm1.Label29.Visible = True 'AX
UserForm1.TextBox13.Visible = True 'AX
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
UserForm1.Frame4.Visible = True 'timing
UserForm1.Frame5.Visible = True 'Budget
ElseIf UserForm1.OptionButton2.Value = True Then 'R&D process
UserForm1.Label8.Visible = False 'Customer
UserForm1.Frame3.Visible = False 'overall target
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton3.Value = True Then 'R&D
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = True 'proj. leader
UserForm1.ComboBox4.Visible = True 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = True 'probab. of success
UserForm1.TextBox10.Visible = True 'probab. of success
UserForm1.Label12.Visible = True 'SAP
UserForm1.TextBox4.Visible = True 'SAP
UserForm1.Label29.Visible = True 'AX
UserForm1.TextBox13.Visible = True 'AX
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
UserForm1.Frame4.Visible = True 'timing
UserForm1.Frame5.Visible = True 'Budget
ElseIf UserForm1.OptionButton4.Value = True Then 'Customer Development
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = True 'proj. leader
UserForm1.ComboBox4.Visible = True 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = True 'probab. of success
UserForm1.TextBox10.Visible = True 'probab. of success
UserForm1.Label12.Visible = True 'SAP
UserForm1.TextBox4.Visible = True 'SAP
UserForm1.Label29.Visible = True 'AX
UserForm1.TextBox13.Visible = True 'AX
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
UserForm1.Frame4.Visible = True 'timing
UserForm1.Frame5.Visible = True 'Budget
End If
Else
End If
If UserForm1.OptionButton1.Value = True Then 'OCIP
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton2.Value = True Then 'R&D Process
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton3.Value = True Then 'R&D
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton4.Value = True Then 'Customer Development
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
End If
clear_combos
With Workbooks(ThisWorkbook.Name).Worksheets("Set-up")
' ComboBox laden
i = 24 ' Reihe
j = 1 ' Spalte
Do
If .Cells(i, j).Value = "STATE_" Then
UserForm1.ComboBox1.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "PROJ_AREA_RESP_RDP" Then
UserForm1.ComboBox3.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "PROJECT_LEADER_MANAGER_RDP" Then
UserForm1.ComboBox4.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TARGET_1_RDP" Then
UserForm1.ComboBox6.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TARGET_2_RDP" Then
UserForm1.ComboBox7.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TARGET_3_RDP" Then
UserForm1.ComboBox8.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TYPE_(METHOD)_" Then
UserForm1.ComboBox9.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "PRIORITY_" Then
UserForm1.ComboBox10.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "PATH_PROJECT_ACTIVITY_FILES_" Then
UserForm1.ComboBox11.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "SITE_MEI_%" Then
UserForm1.ComboBox12.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "SITE_STZ_%" Then
UserForm1.ComboBox13.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "MONTH" Then
UserForm1.ComboBox14.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "YEAR" Then
UserForm1.ComboBox15.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "MONTH" Then
UserForm1.ComboBox16.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "YEAR" Then
UserForm1.ComboBox17.AddItem .Cells(i, j + 1).Value
End If
i = i + 1
Loop Until .Cells(i, j).Value = "" Or i = 400
End With
UserForm1.ComboBox3.Visible = True 'proj area resp.
UserForm1.Label22.Visible = True 'type-method
UserForm1.ComboBox9.Visible = True 'type-method
UserForm1.Label10.Visible = False 'target 2
UserForm1.ComboBox7.Visible = False 'target 2
UserForm1.Label11.Visible = False 'target 3
UserForm1.ComboBox8.Visible = False 'target 3
End Sub


Private Sub OptionButton3_Click() 'R&D options
If UserForm1.ComboBox1.Value = "idea" Then
If UserForm1.OptionButton1.Value = True Then 'OCIP
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton2.Value = True Then 'R&D Process
UserForm1.Label8.Visible = False 'Customer
UserForm1.Frame3.Visible = False 'overall target
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton3.Value = True Then 'R&D
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton4.Value = True Then 'Customer Development
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
End If
ElseIf UserForm1.ComboBox1.Value = "active" Then
If UserForm1.OptionButton1.Value = True Then 'OCIP
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = True 'proj. leader
UserForm1.ComboBox4.Visible = True 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = True 'probab. of success
UserForm1.TextBox10.Visible = True 'probab. of success
UserForm1.Label12.Visible = True 'SAP
UserForm1.TextBox4.Visible = True 'SAP
UserForm1.Label29.Visible = True 'AX
UserForm1.TextBox13.Visible = True 'AX
UserForm1.Label27.Visible = True 'File Path
UserForm1.ComboBox11.Visible = True 'Path
UserForm1.Frame4.Visible = True 'timing
UserForm1.Frame5.Visible = True 'Budget
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton2.Value = True Then 'R&D Process
UserForm1.Label8.Visible = False 'Customer
UserForm1.Frame3.Visible = False 'overall target
UserForm1.Label27.Visible = True 'File Path
UserForm1.ComboBox11.Visible = True 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton3.Value = True Then 'R&D
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = True 'proj. leader
UserForm1.ComboBox4.Visible = True 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = True 'probab. of success
UserForm1.TextBox10.Visible = True 'probab. of success
UserForm1.Label12.Visible = True 'SAP
UserForm1.TextBox4.Visible = True 'SAP
UserForm1.Label29.Visible = True 'AX
UserForm1.TextBox13.Visible = True 'AX
UserForm1.Label27.Visible = True 'File Path
UserForm1.ComboBox11.Visible = True 'Path
UserForm1.Frame4.Visible = True 'timing
UserForm1.Frame5.Visible = True 'Budget
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton4.Value = True Then 'Customer Development
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = True 'proj. leader
UserForm1.ComboBox4.Visible = True 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = True 'probab. of success
UserForm1.TextBox10.Visible = True 'probab. of success
UserForm1.Label12.Visible = True 'SAP
UserForm1.TextBox4.Visible = True 'SAP
UserForm1.Label29.Visible = True 'AX
UserForm1.TextBox13.Visible = True 'AX
UserForm1.Label27.Visible = True 'File Path
UserForm1.ComboBox11.Visible = True 'Path
UserForm1.Frame4.Visible = True 'timing
UserForm1.Frame5.Visible = True 'Budget
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
End If
Else
End If
If UserForm1.OptionButton1.Value = True Then 'OCIP
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton2.Value = True Then 'R&D Process
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton3.Value = True Then 'R&D
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton4.Value = True Then 'Customer Development
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
End If
clear_combos
With Workbooks(ThisWorkbook.Name).Worksheets("Set-up")
' ComboBox laden
i = 24 ' Reihe
j = 1 ' Spalte
Do
If .Cells(i, j).Value = "STATE_" Then
UserForm1.ComboBox1.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "PROJ_AREA_RESP_RD" Then
UserForm1.ComboBox3.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "PROJECT_LEADER_MANAGER_RD" Then
UserForm1.ComboBox4.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TARGET_1_RD" Then
UserForm1.ComboBox6.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TARGET_2_RD" Then
UserForm1.ComboBox7.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TARGET_3_RD" Then
UserForm1.ComboBox8.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TYPE_(METHOD)_" Then
UserForm1.ComboBox9.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "PATH_PROJECT_ACTIVITY_FILES_" Then
UserForm1.ComboBox11.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "SITE_MEI_%" Then
UserForm1.ComboBox12.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "SITE_STZ_%" Then
UserForm1.ComboBox13.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "MONTH" Then
UserForm1.ComboBox14.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "YEAR" Then
UserForm1.ComboBox15.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "MONTH" Then
UserForm1.ComboBox16.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "YEAR" Then
UserForm1.ComboBox17.AddItem .Cells(i, j + 1).Value
End If
i = i + 1
Loop Until .Cells(i, j).Value = "" Or i = 400
End With
UserForm1.ComboBox3.Visible = True 'proj area resp.
UserForm1.Label22.Visible = True 'type-method
UserForm1.ComboBox9.Visible = True 'type-method
UserForm1.Label10.Visible = False 'target 2
UserForm1.ComboBox7.Visible = False 'target 2
UserForm1.Label11.Visible = False 'target 3
UserForm1.ComboBox8.Visible = False 'target 3
End Sub


Private Sub OptionButton4_Click() 'Customer Development options
If UserForm1.ComboBox1.Value = "idea" Then
If UserForm1.OptionButton1.Value = True Then 'OCIP
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton2.Value = True Then 'R&D Process
UserForm1.Label8.Visible = False 'Customer
UserForm1.Frame3.Visible = False 'overall target
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton3.Value = True Then 'R&D
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton4.Value = True Then 'Customer Development
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = False 'proj. leader
UserForm1.ComboBox4.Visible = False 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = False 'probab. of success
UserForm1.TextBox10.Visible = False 'probab. of success
UserForm1.Label12.Visible = False 'SAP
UserForm1.TextBox4.Visible = False 'SAP
UserForm1.Label29.Visible = False 'AX
UserForm1.TextBox13.Visible = False 'AX
UserForm1.Frame4.Visible = False 'timing
UserForm1.Frame5.Visible = False 'Budget
UserForm1.Label27.Visible = False 'File Path
UserForm1.ComboBox11.Visible = False 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
End If
ElseIf UserForm1.ComboBox1.Value = "active" Then
If UserForm1.OptionButton1.Value = True Then 'OCIP
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = True 'proj. leader
UserForm1.ComboBox4.Visible = True 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = True 'probab. of success
UserForm1.TextBox10.Visible = True 'probab. of success
UserForm1.Label12.Visible = True 'SAP
UserForm1.TextBox4.Visible = True 'SAP
UserForm1.Label29.Visible = True 'AX
UserForm1.TextBox13.Visible = True 'AX
UserForm1.Label27.Visible = True 'File Path
UserForm1.ComboBox11.Visible = True 'Path
UserForm1.Frame4.Visible = True 'timing
UserForm1.Frame5.Visible = True 'Budget
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton2.Value = True Then 'R&D Process
UserForm1.Label8.Visible = False 'Customer
UserForm1.Frame3.Visible = False 'overall target
UserForm1.Label27.Visible = True 'File Path
UserForm1.ComboBox11.Visible = True 'Path
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton3.Value = True Then 'R&D
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = True 'proj. leader
UserForm1.ComboBox4.Visible = True 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = True 'probab. of success
UserForm1.TextBox10.Visible = True 'probab. of success
UserForm1.Label12.Visible = True 'SAP
UserForm1.TextBox4.Visible = True 'SAP
UserForm1.Label29.Visible = True 'AX
UserForm1.TextBox13.Visible = True 'AX
UserForm1.Label27.Visible = True 'File Path
UserForm1.ComboBox11.Visible = True 'Path
UserForm1.Frame4.Visible = True 'timing
UserForm1.Frame5.Visible = True 'Budget
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton4.Value = True Then 'Customer Development
UserForm1.Label8.Visible = True 'Customer
UserForm1.Label7.Visible = True 'proj. leader
UserForm1.ComboBox4.Visible = True 'proj. leader
UserForm1.Frame3.Visible = True 'overall target
UserForm1.Label9.Visible = True 'target 1
UserForm1.ComboBox6.Visible = True 'target 1
UserForm1.Label30.Visible = True 'Site MEI%
UserForm1.ComboBox12.Visible = True 'Site MEI%
UserForm1.Label31.Visible = True 'Site STZ%
UserForm1.ComboBox13.Visible = True 'Site STZ%
UserForm1.Label19.Visible = True 'probab. of success
UserForm1.TextBox10.Visible = True 'probab. of success
UserForm1.Label12.Visible = True 'SAP
UserForm1.TextBox4.Visible = True 'SAP
UserForm1.Label29.Visible = True 'AX
UserForm1.TextBox13.Visible = True 'AX
UserForm1.Label27.Visible = True 'File Path
UserForm1.ComboBox11.Visible = True 'Path
UserForm1.Frame4.Visible = True 'timing
UserForm1.Frame5.Visible = True 'Budget
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
End If
Else
End If
If UserForm1.OptionButton1.Value = True Then 'OCIP
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton2.Value = True Then 'R&D Process
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton3.Value = True Then 'R&D
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
ElseIf UserForm1.OptionButton4.Value = True Then 'Customer Development
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
End If
clear_combos
With Workbooks(ThisWorkbook.Name).Worksheets("Set-up")
' ComboBox laden
i = 24 ' Reihe
j = 1 ' Spalte
Do
If .Cells(i, j).Value = "STATE_" Then
UserForm1.ComboBox1.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "CUSTOMER_" Then
UserForm1.ComboBox3.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "PROJECT_LEADER_MANAGER_CD" Then
UserForm1.ComboBox4.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "PROJECT_SCOPE" Then
UserForm1.ComboBox6.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TARGET_2_CD" Then
UserForm1.ComboBox7.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TARGET_3_CD" Then
UserForm1.ComboBox8.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "TYPE_(METHOD)_" Then
UserForm1.ComboBox9.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "PATH_PROJECT_ACTIVITY_FILES_CD" Then
UserForm1.ComboBox11.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "SITE_MEI_%" Then
UserForm1.ComboBox12.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "SITE_STZ_%" Then
UserForm1.ComboBox13.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "MONTH" Then
UserForm1.ComboBox14.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "YEAR" Then
UserForm1.ComboBox15.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "MONTH" Then
UserForm1.ComboBox16.AddItem .Cells(i, j + 1).Value
End If
If .Cells(i, j).Value = "YEAR" Then
UserForm1.ComboBox17.AddItem .Cells(i, j + 1).Value
End If
i = i + 1
Loop Until .Cells(i, j).Value = "" Or i = 400
End With
UserForm1.ComboBox3.Visible = True 'proj area resp.
UserForm1.Label22.Visible = True 'type-method
UserForm1.ComboBox9.Visible = True 'type-method
UserForm1.Label10.Visible = False 'target 2
UserForm1.ComboBox7.Visible = False 'target 2
UserForm1.Label11.Visible = False 'target 3
UserForm1.ComboBox8.Visible = False 'target 3
End Sub


Private Sub UserForm_Initialize()
Dim i, j As Integer
Dim Proj_ID_new As Integer
UserForm1.Label22.Visible = False 'proj area resp.
UserForm1.ComboBox9.Visible = False 'proj area resp.
UserForm1.Label21.Caption = Format(Now, "dd.mm.yyyy")
'UserForm1.Label15.Caption = ""
UserForm1.OptionButton1.Value = True
UserForm1.Label15.Caption = "Month"
UserForm1.Label24.Caption = "Month"
Modul1.Proj_ID_Calculate
End Sub
Sub clear_combos()
ComboBox1.Clear
ComboBox3.Clear
ComboBox4.Clear
ComboBox6.Clear
ComboBox7.Clear
ComboBox8.Clear
ComboBox9.Clear
ComboBox11.Clear
ComboBox12.Clear
ComboBox13.Clear
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Application.ScreenUpdating = False?
28.09.2018 15:30:17
Torsten
hallo,
das Application.ScreenUpdating = False wird am Anfang des jeweiligen Codes gesetzt.
Aber am End des Codes ist es wichtig wieder auf True zu setzen.
Application.ScreenUpdating = True
AW: Application.ScreenUpdating = False?
28.09.2018 16:16:02
Luschi
Hallo Torsten,
so ganz stimmt Deine Aussage nicht. Solange eine einmal gestartete Routine läuft,
bleibt diese Einstellung auch in den Sub-Routinen erhalten.
Nach dessen Beendigung stellt Excel sie aber automatisch wieder auf True: 

Sub test1()
Debug.Print Application.ScreenUpdating '--> immer True
Call test2
Debug.Print Application.ScreenUpdating ' --> False
Call test3
End Sub
Sub test2()
Application.ScreenUpdating = False
End Sub
Sub test3()
Debug.Print Application.ScreenUpdating
End Sub
Sub test4()
Debug.Print Application.ScreenUpdating  'immer True
End Sub
Starte test1 und danach test4
Gruß von Luschi
aus klein-Paris
Anzeige

127 Forumthreads zu ähnlichen Themen

ScreenUpdating=false - gibt es da Ausnahmen?
Jörg-HH

Guten Morgen zusammen,
in diesem Code habe ich ja am Anfang das ScreenUpdating ausgeschaltet, damit der Bildschirm so bleibt, wie er grad ist. Trotzdem wird weiter unten bei Application.CutCopyMode = False (also vor dem Wiedereinschalten) plötzlich das letzte Blatt der durchlaufenen Schleif...
17.08.2009 12:32:07
Thread-ID: 1096376
22 Beiträge
Anzeige
Application.ScreenUpdating = False
Michael

Hallo,
bei mir "flackert" der Bildschirm wenn ich den Wert einer Zelle ändere trotz Verwendung der Funktion Application.ScreenUpdating = False. Die automatische Berechnung ist aktiviert und auch gewollt.
16.11.2009 16:47:28
Thread-ID: 1117693
13 Beiträge
Application.ScreenUpdating = False
Sophie

Hallo zusammen,
habe eine Frage bezüglich "Application.ScreenUpdating = False".
Habe mehrere verschiedene Excel-Dateien die alle Makros enthalten.
Da ich mir ersparen möchte, jede einzelne Datei zu öffnen und das darin befindliche Makro zu starten habe ich hierfür eine eigene Exceld...
13.05.2010 13:51:04
Thread-ID: 1156897
8 Beiträge
Anzeige
Apllication.Screenupdating = False geht nicht
Rainer Quaas

Hallo Excel-User,um ein Makro schneller durchzuführen, habe ich gleich am Anfang des Codes Application.ScreenUpdating = False geschrieben.Leider reagiert das Programm aber darauf nicht. Führe ich den Code im Einzelschrittmodus aus, so zeigt mir der Tooltiptext, nachdem ich die Befehlszeiele "Ap...
04.05.2002 11:04:15
Thread-ID: 118398
3 Beiträge
Screenupdating und enable events. trotz False wahr
chris

Hallo VBA Experten,wie kann das sein ?
Ich führe einen Code aus.Während der Ausführung Schalte ich Screenupdating auf false.
Wenn ich mit der Maus drüber fahre zeigt er mir trotzdem Wahr an.
Was kann das sein ?
trotz:
Application.ScreenUpdating = False
ist Anzeige wenn...
25.08.2010 10:12:30
Thread-ID: 1174093
6 Beiträge
ScreenUpdating = false funktioniert nicht
Memphis

Hallo,
ich habe das Problem, dass ich am Anfang meines Codes Screenupdating = false setze und am Ende wieder auf true. Das hat auch die ganze Zeit funktioniert, nur ab einer Version des Sheets nicht mehr - obwohl ich meiner Meinung nach keine dies betreffende Änderung vorgenommen habe.
...
03.03.2011 12:09:09
Thread-ID: 1204020
3 Beiträge
ScreenUpdating = false funktioniert nicht
Memphis

Ich habe natürlich application.screenupdating = true(false) im code stehen.
@ luc: welche umstände sind das denn? wonach muss ich suchen bzw. wovon hängt das ab? Ich kann den quellcode hier nicht reinstellen.
04.03.2011 12:31:05
Thread-ID: 1204217
2 Beiträge
screenupdating=false funkt nicht
Uwe

Hallo Experten,ich öffne in einem Makro ein Workbook (workbook.open ...) und
möchte verhindern, das das WB auf dem Moni angezeigt wird.
Also habe ich Application.ScreenUpdating = False vor den OPEN-Befehl gesetzt.
Dummerweise zeigt Excel das dann geöffnete Workbook trotzdem munter an.W...
27.05.2002 12:05:59
Thread-ID: 123904
2 Beiträge

Links zu Excel-Dialogen

OptionButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
21
5
12
7
3
2
5
2
1
1
5
2
1
5
3
8
6
2
3
1
5
1
11
17
7