Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1740to1744
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
1740to1744
1740to1744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zu lang Wenn Dann

Makro zu lang Wenn Dann
17.02.2020 11:03:47
Andreas
Hallo Excelfreunde,
Ich habe in meiner UserForm mehrere MultipageSeiten in dieser sind TextBoxen und Comboboxen
Ich frage 2 ComboBoxen nach vorgegebener Auswahl ab wenn die beiden Werte Wahr sind dann soll Ereignis eintreten
kann mir jemand sagen ob man diesen Code kürzer bekommt.
Ich habe diesen Code 9x identisch gleich. für Gewerk 1-9 (jedes Gewerk ist auf einer anderen MultPage Seite.
alle 9 MultiPage Seiten haben exakt den gleichen Aufbau.
Ich kann die Datei leider nicht hochladen da sie bereits über 14MB besitzt.
Deshalb bin ich gerade dabei die Datei etwas kleiner zu gestalten. Vielleicht liegt es auch an meinen zu langen Makros.
Kann mir da vielleicht einer von Euch das Makro eventuell kürzer anpassen?
'Vergabeverfahren Gewerk1 
Private Sub ComboBox66_Change()
Call übertragen2(66, 214)
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "OLA_Planung" Then
Call VergabeGewerk1_AI_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "OLA_Planung" Then
Call VergabeGewerk1_AI_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "OLA_Planung" Then
Call VergabeGewerk1_AI_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "OLA_Planung" Then
Call VergabeGewerk1_AI_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "OLA_Planung" Then
Call VergabeGewerk1_AI_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "OLA_Planung" Then
Call VergabeGewerk1_AI_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "OLA_Planung" Then
Call VergabeGewerk1_AI_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "OLA_Planung" Then
Call VergabeGewerk1_AI_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "OLA_Bau" Then
Call VergabeGewerk1_Bau_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "OLA_Bau" Then
Call VergabeGewerk1_Bau_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "OLA_Bau" Then
Call VergabeGewerk1_Bau_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "OLA_Bau" Then
Call VergabeGewerk1_Bau_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "OLA_Bau" Then
Call VergabeGewerk1_Bau_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "OLA_Bau" Then
Call VergabeGewerk1_Bau_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "OLA_Bau" Then
Call VergabeGewerk1_Bau_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "OLA_Bau" Then
Call VergabeGewerk1_Bau_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "LST_Planung" Then
Call VergabeGewerk1_AI_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "LST_Planung" Then
Call VergabeGewerk1_AI_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "LST_Planung" Then
Call VergabeGewerk1_AI_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "LST_Planung" Then
Call VergabeGewerk1_AI_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "LST_Planung" Then
Call VergabeGewerk1_AI_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "LST_Planung" Then
Call VergabeGewerk1_AI_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "LST_Planung" Then
Call VergabeGewerk1_AI_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "LST_Planung" Then
Call VergabeGewerk1_AI_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "LST_Bau" Then
Call VergabeGewerk1_Bau_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "LST_Bau" Then
Call VergabeGewerk1_Bau_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "LST_Bau" Then
Call VergabeGewerk1_Bau_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "LST_Bau" Then
Call VergabeGewerk1_Bau_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "LST_Bau" Then
Call VergabeGewerk1_Bau_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "LST_Bau" Then
Call VergabeGewerk1_Bau_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "LST_Bau" Then
Call VergabeGewerk1_Bau_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "LST_Bau" Then
Call VergabeGewerk1_Bau_NoV_nat
Else
If ComboBox66.Text = "intern" Then
TextBox403.Text = "nicht erforderlich"
TextBox404.Text = "nicht erforderlich"
TextBox405.Text = "nicht erforderlich"
Else
If ComboBox66.Value = "RV" Then
TextBox403.Text = "nicht erforderlich"
TextBox404.Text = "nicht erforderlich"
TextBox405.Text = "nicht erforderlich"
Else
If ComboBox66.Value = "MV" Then
TextBox403.Text = "nicht erforderlich"
TextBox404.Text = "nicht erforderlich"
TextBox405.Text = "nicht erforderlich"
'1
End If
End If
End If
End If
End If
End If
End If
End If
'2
End If
End If
End If
End If
End If
End If
End If
End If
'3
End If
End If
End If
End If
End If
End If
End If
End If
'4
End If
End If
End If
End If
End If
End If
End If
End If
'5
End If
End If
End If
End If
End If
End If
End If
End If
'6
End If
End If
End If
End If
End If
End If
End If
End If
'7
End If
End If
End If
End If
End If
End If
End If
End If
'8
End If
End If
End If
End If
End If
End If
End If
End If
'9
End If
End If
End If
End If
End If
End If
End If
End If
'10
End If
End If
End If
End If
End If
End If
End If
End If
'11
End If
End If
End If
End If
End If
End If
End If
End If
'12
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub


Private Sub ComboBox65_Change()
Call übertragen2(65, 205)
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "Bau" Then
Call VergabeGewerk1_Bau_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "Sipo" Then
Call VergabeGewerk1_Sipo_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "Planung" Then
Call VergabeGewerk1_AI_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "BÜW" Then
Call VergabeGewerk1_Sipo_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "TK" Then
Call VergabeGewerk1_AI_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "50Hz" Then
Call VergabeGewerk1_AI_NoV_nat
Else
If ComboBox66.Value = "OV-EU" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_OV_EU
Else
If ComboBox66.Value = "OV-nat" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_OV_nat
Else
If ComboBox66.Value = "VVmöT-EU" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_VVmöT_EU
Else
If ComboBox66.Value = "VVmöT-nat" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_VVmöT_nat
Else
If ComboBox66.Value = "VVoT-EU" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_VVoT_EU
Else
If ComboBox66.Value = "VVoT-nat" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_VVoT_nat
Else
If ComboBox66.Value = "NoV-EU" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_NoV_EU
Else
If ComboBox66.Value = "NoV-nat" And ComboBox65.Value = "Fördertechnik" Then
Call VergabeGewerk1_AI_NoV_nat
Else
If ComboBox66.Text = "intern" Then
TextBox403.Text = "nicht erforderlich"
TextBox404.Text = "nicht erforderlich"
TextBox405.Text = "nicht erforderlich"
Else
If ComboBox66.Value = "RV" Then
TextBox403.Text = "nicht erforderlich"
TextBox404.Text = "nicht erforderlich"
TextBox405.Text = "nicht erforderlich"
Else
If ComboBox66.Value = "MV" Then
TextBox403.Text = "nicht erforderlich"
TextBox404.Text = "nicht erforderlich"
TextBox405.Text = "nicht erforderlich"
'1
End If
End If
End If
End If
End If
End If
End If
End If
'2
End If
End If
End If
End If
End If
End If
End If
End If
'3
End If
End If
End If
End If
End If
End If
End If
End If
'4
End If
End If
End If
End If
End If
End If
End If
End If
'5
End If
End If
End If
End If
End If
End If
End If
End If
'6
End If
End If
End If
End If
End If
End If
End If
End If
'7
End If
End If
End If
End If
End If
End If
End If
End If
'8
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

'hier wird das Datum entsprechend Baubeginn und VergabeGewerk1 OV-EU oder OV-national aus dem Tabellenblatt Rechner ausgelesen
'***
Sub VergabeGewerk1_Bau_OV_EU()
TextBox403.Text = Sheets("Bau_OV-EU").Range("Q13").Text
TextBox404.Text = Sheets("Bau_OV-EU").Range("Q24").Text
TextBox405.Text = Sheets("Bau_OV-EU").Range("Q45").Text
End Sub '***
Sub VergabeGewerk1_Bau_OV_nat()
TextBox403.Text = Sheets("Bau_OV-nat").Range("Q13").Text
TextBox404.Text = Sheets("Bau_OV-nat").Range("Q24").Text
TextBox405.Text = Sheets("Bau_OV-nat").Range("Q41").Text
End Sub '***
Sub VergabeGewerk1_Bau_VVmöT_EU()
TextBox403.Text = Sheets("Bau_VVmöT-EU").Range("Q12").Text
TextBox404.Text = Sheets("Bau_VVmöT-EU").Range("Q23").Text
TextBox405.Text = Sheets("Bau_VVmöT-EU").Range("Q58").Text
End Sub '***
Sub VergabeGewerk1_Bau_VVmöT_nat()
TextBox403.Text = Sheets("Bau_VVmöT-nat").Range("Q12").Text
TextBox404.Text = Sheets("Bau_VVmöT-nat").Range("Q23").Text
TextBox405.Text = Sheets("Bau_VVmöT-nat").Range("Q53").Text
End Sub '***
Sub VergabeGewerk1_Bau_VVoT_EU()
TextBox403.Text = Sheets("Bau_VVoT-EU").Range("Q13").Text
TextBox404.Text = Sheets("Bau_VVoT-EU").Range("Q23").Text
TextBox405.Text = Sheets("Bau_VVoT-EU").Range("Q45").Text
End Sub '***
Sub VergabeGewerk1_Bau_VVoT_nat()
TextBox403.Text = Sheets("Bau_VVoT-nat").Range("Q13").Text
TextBox404.Text = Sheets("Bau_VVoT-nat").Range("Q23").Text
TextBox405.Text = Sheets("Bau_VVoT-nat").Range("Q41").Text
End Sub '***
Sub VergabeGewerk1_Bau_NoV_EU()
TextBox403.Text = Sheets("Bau_NoV-EU").Range("Q12").Text
TextBox404.Text = Sheets("Bau_NoV-EU").Range("Q23").Text
TextBox405.Text = Sheets("Bau_NoV-EU").Range("Q56").Text
End Sub '***
Sub VergabeGewerk1_Bau_NoV_nat()
TextBox403.Text = Sheets("Bau_NoV-nat").Range("Q12").Text
TextBox404.Text = Sheets("Bau_NoV-nat").Range("Q22").Text
TextBox405.Text = Sheets("Bau_NoV-nat").Range("Q50").Text
End Sub '***
Sub VergabeGewerk1_Sipo_OV_EU()
TextBox403.Text = Sheets("Sipo_OV-EU").Range("Q13").Text
TextBox404.Text = Sheets("Sipo_OV-EU").Range("Q24").Text
TextBox405.Text = Sheets("Sipo_OV-EU").Range("Q45").Text
End Sub '***
Sub VergabeGewerk1_Sipo_OV_nat()
TextBox403.Text = Sheets("Sipo_OV-nat").Range("Q13").Text
TextBox404.Text = Sheets("Sipo_OV-nat").Range("Q24").Text
TextBox405.Text = Sheets("Sipo_OV-nat").Range("Q41").Text
End Sub '***
Sub VergabeGewerk1_Sipo_VVmöT_EU()
TextBox403.Text = Sheets("Sipo_VVmöT-EU").Range("Q12").Text
TextBox404.Text = Sheets("Sipo_VVmöT-EU").Range("Q23").Text
TextBox405.Text = Sheets("Sipo_VVmöT-EU").Range("Q58").Text
End Sub '***
Sub VergabeGewerk1_Sipo_VVmöT_nat()
TextBox403.Text = Sheets("Sipo_VVmöT-nat").Range("Q12").Text
TextBox404.Text = Sheets("Sipo_VVmöT-nat").Range("Q23").Text
TextBox405.Text = Sheets("Sipo_VVmöT-nat").Range("Q53").Text
End Sub '***
Sub VergabeGewerk1_Sipo_VVoT_EU()
TextBox403.Text = Sheets("Sipo_VVoT-EU").Range("Q13").Text
TextBox404.Text = Sheets("Sipo_VVoT-EU").Range("Q23").Text
TextBox405.Text = Sheets("Sipo_VVoT-EU").Range("Q45").Text
End Sub '***
Sub VergabeGewerk1_Sipo_VVoT_nat()
TextBox403.Text = Sheets("Sipo_VVoT-nat").Range("Q13").Text
TextBox404.Text = Sheets("Sipo_VVoT-nat").Range("Q23").Text
TextBox405.Text = Sheets("Sipo_VVoT-nat").Range("Q41").Text
End Sub '***
Sub VergabeGewerk1_Sipo_NoV_EU()
TextBox403.Text = Sheets("Sipo_NoV-EU").Range("Q12").Text
TextBox404.Text = Sheets("Sipo_NoV-EU").Range("Q23").Text
TextBox405.Text = Sheets("Sipo_NoV-EU").Range("Q56").Text
End Sub '***
Sub VergabeGewerk1_Sipo_NoV_nat()
TextBox403.Text = Sheets("Sipo_NoV-nat").Range("Q12").Text
TextBox404.Text = Sheets("Sipo_NoV-nat").Range("Q22").Text
TextBox405.Text = Sheets("Sipo_NoV-nat").Range("Q50").Text
End Sub '***
Sub VergabeGewerk1_AI_OV_EU()
TextBox403.Text = Sheets("A&I_OV-EU").Range("Q13").Text
TextBox404.Text = Sheets("A&I_OV-EU").Range("Q24").Text
TextBox405.Text = Sheets("A&I_OV-EU").Range("Q45").Text
End Sub
'***
Sub VergabeGewerk1_AI_OV_nat()
TextBox403.Text = Sheets("A&I_OV-nat").Range("Q13").Text
TextBox404.Text = Sheets("A&I_OV-nat").Range("Q24").Text
TextBox405.Text = Sheets("A&I_OV-nat").Range("Q41").Text
End Sub '***
Sub VergabeGewerk1_AI_VVmöT_EU()
TextBox403.Text = Sheets("A&I_VVmöT-EU").Range("Q12").Text
TextBox404.Text = Sheets("A&I_VVmöT-EU").Range("Q23").Text
TextBox405.Text = Sheets("A&I_VVmöT-EU").Range("Q58").Text
End Sub '***
Sub VergabeGewerk1_AI_VVmöT_nat()
TextBox403.Text = Sheets("A&I_VVmöT-nat").Range("Q12").Text
TextBox404.Text = Sheets("A&I_VVmöT-nat").Range("Q23").Text
TextBox405.Text = Sheets("A&I_VVmöT-nat").Range("Q53").Text
End Sub '***
Sub VergabeGewerk1_AI_VVoT_EU()
TextBox403.Text = Sheets("A&I_VVoT-EU").Range("Q13").Text
TextBox404.Text = Sheets("A&I_VVoT-EU").Range("Q23").Text
TextBox405.Text = Sheets("A&I_VVoT-EU").Range("Q45").Text
End Sub '***
Sub VergabeGewerk1_AI_VVoT_nat()
TextBox403.Text = Sheets("A&I_VVoT-nat").Range("Q13").Text
TextBox404.Text = Sheets("A&I_VVoT-nat").Range("Q23").Text
TextBox405.Text = Sheets("A&I_VVoT-nat").Range("Q41").Text
End Sub '***
Sub VergabeGewerk1_AI_NoV_EU()
TextBox403.Text = Sheets("A&I_NoV-EU").Range("Q12").Text
TextBox404.Text = Sheets("A&I_NoV-EU").Range("Q23").Text
TextBox405.Text = Sheets("A&I_NoV-EU").Range("Q56").Text
End Sub '***
Sub VergabeGewerk1_AI_NoV_nat()
TextBox403.Text = Sheets("A&I_NoV-nat").Range("Q12").Text
TextBox404.Text = Sheets("A&I_NoV-nat").Range("Q22").Text
TextBox405.Text = Sheets("A&I_NoV-nat").Range("Q50").Text
End Sub '***
wie gesagt dieses Makro habe ich jetzt 9x für jedes Gewerk 1-9 in 9 gleichen MultiPage Seiten.
funktioniert auch, nur denke ich das das bestimmt auch kürzer geht.
Danke schon mal für Eure Bemühungen

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zu lang Wenn Dann
17.02.2020 11:25:25
onur
1) EINE Sub stat -zig: 
Sub VergabeGewerk1(blatt as string)
TextBox403.Text = Sheets(blatt).Range("Q13").Text
TextBox404.Text = Sheets(blatt).Range("Q24").Text
TextBox405.Text = Sheets(blatt).Range("Q45").Text
End Sub

Aufruf z.B. mit: 
Call VergabeGewerk1("AI_NoV_EU")

Für mehr müsstest du die Logik hinter dem Ganzen erklären - ich habe weder Lust noch Zeit deine tausend Zeilen "Code" zu analysieren.
AW: Makro zu lang Wenn Dann
17.02.2020 11:43:39
Jürgen
Hallo,
die Felder einfach zusammenfassen zum Text:
über Select die "Falschen" Bezeichnungen zusammenfassen.
select case ComboBox65.Value
case "Bau"
Call VergabeGewerk1(ComboBox65.Value & "_" & ComboBox66.Value)
case "50Hz", "Fördertechnik"
Call VergabeGewerk1("A&I_" & ComboBox66.Value)
case
end select
dann 1 Sub je Gewerk:
Sub VergabeGewerk1(blatt as string)
TextBox403.Text = Sheets(blatt).Range("Q13").Text
TextBox404.Text = Sheets(blatt).Range("Q24").Text
TextBox405.Text = Sheets(blatt).Range("Q45").Text
End Sub

Gruß
Jürgen
Anzeige
AW: Makro zu lang Wenn Dann
17.02.2020 11:56:37
onur
Und wieso schreibst du MIR das?
AW: Makro zu lang Wenn Dann
17.02.2020 12:57:07
Jürgen
Hallo onur,
ich habe es in deinen Pfad gesetzt, da mir dein Ansatz mit den Untersubs sehr gut gefallen hat, und ich "nur" noch die ganzen Ifs ersetzen wollte.
Falls Du dies nicht möchtest einfach mit:
"Gruß Onur
Pfad bitte nicht beantworten!"
Deine Kommentare abschließen. ;-P
Gruß
Jürgen
AW: Makro zu lang Wenn Dann
17.02.2020 13:29:06
onur
Alles klar.
AW: Makro zu lang Wenn Dann
17.02.2020 11:29:16
Joachim
Hallo
Vielleicht hilft Dir select case
verteile Nummern für die Lösungen nach folgendem Schema
"A" erhält 100 und 1
"B" erhalt 200 und 2
"C" erhält 300 und 3 etc
Wenn Du A mit B vergleichs summierst Du 100 (die hohe Zahl) für A und 2 (die kleine Zahl) für B
Die Summe ist eindeutig 102 und vergleicht A mit B
Da kommt natürlich das selbe raus wenn du B mit A vergleichst, da musst Du aufpassen oder mit "or" arbeiten
dann
Case 102
Dein Code
Case 103
Dein Code
etc. pp
hilft Dir das?
Anzeige
AW: Makro zu lang Wenn Dann
17.02.2020 12:28:48
Andreas
Hallo,
Danke Euch beiden für die schnelle Antwort.
Muss mir eure Lösungsansätze erst mal genauer anschauen. Melde mich dann noch falls ich nicht weiter komme.
Danke Gruß Andreas
AW: Makro zu lang Wenn Dann
17.02.2020 12:41:42
onur
Wenn du 10 Brötchen schmieren musst, machst du es doch auch nicht so:
Kaufe 1 Brötchen
Nimm ein Messer
Schneide Brötchen Nr. 1 auf
Hole Butter aus dem Kühlschrank
Beschmiere Brötchen Nr. 1 mit Butter
Lege die Butter in den Kühlschrank
Spüle das Messer
Kaufe noch 1 Brötchen
Nimm ein Messer
Schneide Brötchen Nr. 2 auf
Hole Butter aus dem Kühlschrank
Beschmiere Brötchen Nr. 2 mit Butter
Lege die Butter in den Kühlschrank
Spüle das Messer
usw
usw
Sondern so:
Kaufe 10 Brötchen
Nimm ein Messer
Hole Butter aus dem Kühlschrank
Beschmiere Brötchen 1-10 mit Butter
Lege die Butter in den Kühlschrank
Spüle das Messer
Oder?
Anzeige
AW: Makro zu lang Wenn Dann
17.02.2020 12:56:57
Daniel
HI
wenn zu jeder Combobox-Kombination ein Makro existiert sich die Komboboxwerte in den Makronamen wiederfinden, dann kannst du das ganze auf eine Zeile komprimieren, indem du den Makronamen aus den Comboboxwerten als Textstring generierst und dann das Makro über Application.Run und diesem Textstring aufrufst.
Application.run Replace("VergabeGewerk1_" & Combobox65.value & "_" & Combobox66.value, "-", "_")
wenn du in den Comboboxen die Namensteile gleich richtig angibst (entsprechend des Makronamens mit Unterstrich), dann kannst du auch das Replace weglassen.
Gruß Daniel
Anzeige

302 Forumthreads zu ähnlichen Themen

Makro: Wenn dann
Julia

Hallo in meiner xls siehe:
https://www.herber.de/bbs/user/60693.xls
sind die Spalten A bis C gegeben
Wie kann ich den gelben Bereich (Spalte D) per Makro auffülen
Immer den letzten Status in Spalte C (nach...) in die entsprechende Zelle von Spalte D (Aktueller Status) zu schrei...
26.03.2009 12:47:12
Thread-ID: 1064207
12 Beiträge
Anzeige
Makro: Wenn Zelle Wert dann Spalten ausblenden
Herr

Hallo Zusammen,
ich habe folgendes Makro zum bedingten Ein-/Ausblenden von Spalten, bereits durch das Forum erhalten:
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address(0, 0) = "C7" Then Range("H:S").EntireColumn.Hidden = False Select Case .Value...
20.01.2016 11:12:14
Thread-ID: 1469954
4 Beiträge
Makro: Wenn Zelle Wert dann Spalten ausblenden
Herr

Hallo Zusammen,
ist es möglich in unten aufgeführten Makro eine Zeilenabhängigkeit zu integrieren? Sprich das Ein- und Ausklappen der u.a. Spalten soll nur für die Zeilen 9-214 stattfinden. Alle anderen Zeilen bleiben von dem Ein-/Ausklappen unberührt?
Und wie müsste dann der unten steh...
08.02.2016 17:11:04
Thread-ID: 1474134
2 Beiträge
Anzeige
Makro: Wenn schon geöffnet, dann nicht öffnen
Daniel

Halli-hallo!
Jeder hat es schon erlebt, vielleicht hat auch schon jemand einen Makro dafür!
Wenn man eine Excel Datei geöffnet hat, und will diese ausversehen nochmal öffnen, dann erscheint immer eine Fehlermeldung: "Datei ist schon geöffnet, es können keine Dateien zweimal geöffnet werde...
10.10.2002 09:42:10
Thread-ID: 167935
3 Beiträge
Zwei Makros starten mit Wenn Dann Sonst
mausi

Hallo Leute,
da ich ein richtiger Anfänger bin, brauch ich eure Hilfe.
Ich möcht in einer Tabelle mit der -Wenn- Funktion zwei Makros starten. Die Makros fügen jeweils ein Bild ein.
Es soll so funktionieren: Wenn Zahl in A1-gerade - Dann starte Makro(sack) - Sonst starte Makro( _
22.12.2018 02:02:49
Thread-ID: 1664231
2 Beiträge
Makro - Zeile einfügen/kopieren wenn dann Funktion
Timo

Hallo Zusammen,
ich möchte gerne in einem Wartungskalender mit dem Setzen des Häkchens in einer Checkbox/Kontrollkästchen eine neue Spalte im Tabellenblatt2 einfügen.

In der vierten Zeile im Tabellenblatt 2 sind bereits eine Inhalte mit einer Dropdown Funktion hinterlegt. Daher kan...
20.02.2019 15:59:05
Thread-ID: 1676768
2 Beiträge
Makro für wenn / dann
Thomas

Hallo,
leider bin ich kein VBA As. Könnte mir jemand helfen, folgenden Befehl zu schreiben ?
Wenn in Zeile 40 was steht, dann soll er nix machen.
Wenn nicht, dann solle er Zeie 1 löschen
Das wäre riesig nett.
Herzlichen Dank im Voraus
Thomas
15.11.2002 13:38:13
Thread-ID: 181821
3 Beiträge
makro bedingt ausführen (wenn, dann)
max

hallo,
folgendes problem. es geht haupsächlich um 2 makros und eine zelle. das 1 makro setzt beim ausführen die aktuelle zeit in zelle A1. makro 2 hat die selbe funktion trägt die zeit aber in zelle b2 ein.
nun ist meine frage, ob ich mit einer "wenn dann" funktion in einer zelle, wenn al...
13.02.2003 16:13:09
Thread-ID: 218742
2 Beiträge

Links zu Excel-Dialogen

TextBox UserForm

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
11
2
3
1
1
2
1
1
2
1
13
6
1
5
3
5
1
2
2
1
5
9
1
2
11