AW: Zwei CommandButton selbes Ergebnis
30.03.2015 16:44:27
Jan
Hallo,
leider ist meine Datei viel zu groß, auch wenn ich alles rauslösche, komme ich nicht mehr unter 2MB.
Ich poste hier einfachmal meine kompletten Formeln, vielleicht hilft das ja:
Im Tabellenblatt habe ich folgende Formel:
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")
Me.TextBox6.Value = Range("P22")
End Sub
In der UserForm habe ich folgende Formel:
Private Sub CalculateButton_1_Click()
Dim kommt As String
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")
Me.TextBox6.Value = Range("P22")
End Sub
.... im Anschluss kommt noch eine Suchfunktion-Formel (die sollte aber ja in diesem Fall unrelevant sein).
Gruß
Jan