Hilfe weis niocht weiter
26.05.2014 07:27:43
sven
Hallo,
Mein Makro beleibt bei der mit x gekenzeichneten stelle immer stehen ich weis nich warum oder was ich falsch mache kann mir einer bitte weiter helfen.
Danke schon mal
Private Sub CommandButton9_Click()
Sheets("Mengen").Visible = True 'Sichtbar machen
Worksheets("Mengen").Select
ActiveSheet.Unprotect Password:="140278" 'Blatschutz aufheben
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
On Error Resume Next
l = Me.TextBox13.Value
i = Me.TextBox12.Value
If l > 1 And i > 1 Then
j = WorksheetFunction.Match(i, Sheets("Mengen").Range("A2:A65536"))
k = Sheets("Mengen").Cells(j, 5).Value
Sheets("Mengen").Cells(j, 5).Value = k + l
Else
MsgBox "Falsche oder fehlende Eingabe"
End If
ActiveSheet.Protect Password:="140278" 'Blatschutz setzen
Sheets("Mengen").Visible = False ' Versteken
Sheets("Auftäge").Visible = True 'Sichtbar machen
Worksheets("Auftäge").Select
ActiveSheet.Unprotect Password:="140278" 'Blatschutz aufheben
(x)Erste_freie_Zeile = Sheets("Auftäge").Range("A65536").End(xlUp).Offset(1, 0).Row 'In Blatt " _
Sonderpreise"
Sheets("Auftäge").Cells(Erste_freie_Zeile, 1) = TextBox14.Text 'Lieferschein Nr.
ActiveSheet.Protect Password:="140278" 'Blatschutz setzen
Sheets("Aufträge").Visible = False ' Versteken
TextBox1 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
ListBox1.Clear
ListBox2.Clear
UserForm8.Show
End If
End Sub
Anzeige