ich habe (mal wieder) ein Problem und brauche eure Hilfe.
In meiner UserForm habe ich ComboBoxen, TextBoxen etc., dessen Inhalt durch ein klicken auf den Button 'Speichern' auf meine Exceltabelle übertragen werden.
In meiner ComboBox5 kann man "Nov/HDL/MEX/CHN" auswählen.
Jetzt soll er machen:
Wenn NOV ausgewählt wird, dann alle KomboBoxen & Textboxen in Babellenblatt1 (Novaky) übertragen
Wenn HDL ausgewählt wird, dann alle KomboBoxen & Textboxen in Babellenblatt3 (Haldensleben) übertragen
Wenn MEX ausgewählt wird, dann alle KomboBoxen & Textboxen in Babellenblatt4 (Mexico) übertragen
Wenn CHN ausgewählt wird, dann alle KomboBoxen & Textboxen in Babellenblatt5 (China) übertragen
Ich hoffe Ihr versteht mein Problem und könnt mir vllt sogar helfen.
Hier mein bisheriger Code für den Speicherbutton:
Private Sub CommandButton1_Click()
If Trim(CStr(TextBox1.Text)) = "" Then
MsgBox "Sie müssen einen Kunden eingeben!", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If Trim(CStr(TextBox2.Text)) = "" Then
MsgBox "Sie müssen eine Bauteilbezeichnung eingeben!", vbCritical + vbOKOnly, "FEHLER! _
_
_
_
Exit Sub
End If
If Trim(CStr(ComboBox3.Text)) = "" Then
MsgBox "Sie müssen einen Status auswählen!", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If Trim(CStr(ComboBox2.Text)) = "" Then
MsgBox "Sie müssen eine Schaumart auswählen!", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
Dim bolFound As Long
Dim i As Long
For i = 12 To 143
bolFound = bolFound Or Controls("TextBox" & i) ""
Next i
If Not bolFound Then
MsgBox "Es müssen Stückzahlen eingegeben werden"
Exit Sub
End If
Dim ZeileMax As Long
Dim Zeile As Long
Dim loSpalte As Long
With Tabelle1
ZeileMax = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, . _
Rows.Count) 'letzte belegte Zeile in Spalte A (1)
Zeile = ZeileMax + 1
.Range("A" & Zeile).Value = Me.TextBox1.Value
.Range("B" & Zeile).Value = Me.TextBox2.Value
.Range("C" & Zeile).Value = Me.TextBox3.Value
.Range("D" & Zeile).Value = Me.ComboBox3.Value
.Range("E" & Zeile).Value = Me.TextBox4.Value
.Range("F" & Zeile).Value = Me.ComboBox5.Value
If OptionButton1.Value Then
.Range("G" & Zeile).Value = ""
End If
If OptionButton2.Value Then
.Range("G" & Zeile).Value = "Folie"
End If
.Range("H" & Zeile).Value = Me.ComboBox2.Value
.Range("I" & Zeile).Value = Me.ComboBox1.Value
.Range("J" & Zeile).Value = Me.ComboBox4.Value
.Range("K" & Zeile).Value = Me.TextBox6.Value
.Range("L" & Zeile).Value = Me.TextBox7.Value
.Range("M" & Zeile).Value = Me.TextBox8.Value
.Range("N" & Zeile).Value = Me.TextBox9.Value
.Range("O" & Zeile).Value = Me.TextBox10.Value
.Range("P" & Zeile).Value = Me.TextBox11.Value
'Jahr 2016 - 2026: eintragen der Monatsstückzahlen
For loSpalte = 18 To 149
.Cells(Zeile, loSpalte) = Me.Controls("TextBox" & loSpalte - 6).Value
Next loSpalte
.Range("A4:P4").Copy
.Range("A" & Zeile).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("R4:ES4").Copy
.Range("R" & Zeile).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("EU4:JV4").Copy
.Range("EU" & Zeile).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("EU4:JV4").Copy
.Range("EU" & Zeile).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("PF4:UG4").Copy
.Range("PF" & Zeile).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("PF4:UG4").Copy
.Range("EU" & Zeile).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
ThisWorkbook.Save
End Sub
Gruß
Jan