zurzeit wird beim ausführen meines CommandButtons folgender Fehler gemeldet: Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden
Nun habe ich eigentlich an der Formel nichts großartiges geändert, und diese hat auch in dieser _ Form bis vor kurzem nocht funktioniert. Vielleicht könnt ihr mir ja weiter helfen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "U8" Or Target.Address(0, 0) = "U14" Then
Application.EnableEvents = False
Range("X11") = Target
Application.EnableEvents = True
End If
End Sub
Private Sub CommandButton1_Click()
Dim kommt As String
If TextBox17.Value = "" And TextBox16.Value = "" Then
MsgBox "Bitte Artikel-Nr. oder EAN ausfüllen"
Exit Sub
End If
Me.TextBox5.Value = Range("W11")
Me.TextBox1.Value = Range("X14")
Me.TextBox15.Value = Range("W12")
Me.TextBox17.Value = Range("X11")
Me.TextBox16.Value = Range("X13")
Me.TextBox18.Value = Range("X12")
End Sub