Ich habe ein Problem, und zwar wird mir das Label11 nicht angezeigt. Was mache ich falsch?
Private Sub OKButton3_Click()
Dim i, k
Dim sap, bed As String
If TextBoxPreis.Value <> "" Then
If ComboBoxPreis.Value = "" Then
MsgBox ("Geben Sie eine Währung für den Preis an!")
Exit Sub
End If
End If
Label11.Visible = True
sap = Eigenschaften.TextBoxSAP.Value
For k = 2 To 1500
If Workbooks("Materialbedarf").Worksheets("Tabelle1").Cells(k, 1).Value = sap Then
bed = Workbooks("Materialbedarf").Worksheets("Tabelle1").Cells(k, 8).Value
End If
Next k
i = 1
Do
i = i + 1
Loop Until Worksheets("Akustik").Cells(i, 1) = ""
Worksheets("Akustik").Cells(i, 1).Value = Eigenschaften.TextBoxSAP.Value
Worksheets("Akustik").Cells(i, 2).Value = Eigenschaften.TextBoxESN.Value
Worksheets("Akustik").Cells(i, 3).Value = Eigenschaften.TextBoxSNR.Value
Worksheets("Akustik").Cells(i, 4).Value = Eigenschaften.TextBoxBEZ.Value
Worksheets("Akustik").Cells(i, 7).Value = bed
Worksheets("Akustik").Cells(i, 8).Value = TextBoxLNR.Value
Worksheets("Akustik").Cells(i, 9).Value = TextBoxLKürzel.Value
Worksheets("Akustik").Cells(i, 10).Value = TextBoxLName.Value
Worksheets("Akustik").Cells(i, 11).Value = TextBoxLOrder.Value
If CheckBoxAktuell = True Then
Worksheets("Akustik").Cells(i, 12).Value = "x"
End If
If TextBoxPreis.Value <> "" Then
If ComboBoxPreis.Value = "Euro" Then
Worksheets("Akustik").Cells(i, 16).Value = TextBoxPreis.Value
ElseIf ComboBoxPreis.Value = "USD" Then
Worksheets("Akustik").Cells(i, 17).Value = TextBoxPreis.Value
ElseIf ComboBoxPreis.Value = "JPY" Then
Worksheets("Akustik").Cells(i, 18).Value = TextBoxPreis.Value
End If
End If
Application.Run ("Sortieren_der_Masterdatei")
Eigenschaften.TextBoxSAP.Value = ""
Eigenschaften.TextBoxESN.Value = ""
Eigenschaften.TextBoxSNR.Value = ""
Eigenschaften.TextBoxBEZ.Value = ""
TextBoxLNR.Value = ""
TextBoxLKürzel.Value = ""
TextBoxLName.Value = ""
TextBoxLOrder.Value = ""
ComboBoxPreis.Value = ""
TextBoxPreis.Value = ""
Label11.Visible = False
Hide
End Sub
Ich hoffe ihr könnt mir helfen.
Nora