Excel stürzt ab
16.06.2016 09:31:29
Nermin
Ich versuche mittels vba eine Stückliste zu programmieren wo man möglichst wenige Eingaben vornehmen muss, sprich die Mengeneinheiten (ob St,Kg,m oder l) habe ich schon und eine Autovervollständigung bei Eingabe der richtigen Komponenten habe ich mit einer ComboBox hinbekommen. Jetzt habe ich einen Code hinzugefügt der die Positionen noch nummerieren soll. Alle Makros werden automatisch nach jeder Eingabe ausgeführt.
Jedoch stürzt Excel bei der dritten Eingabe ab :(
Hier nochmal der Code der die Mengeneinheiten und die Positionsnummer angibt, denn erst seit dem die Nummerierung hinzugefügt wurde stürzt die Anwendung ab:
Private Sub worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Dim SP%, Einheit$
SP = 4 ' Spalte D
If Not Intersect(Columns(SP), Target) Is Nothing And Target "" Then
If Target.Count = 1 Then
Select Case Target.Value
Case "Flansch", "Reduzierstück" '...
Einheit = "St"
Case "Rohr" '...
Einheit = "m"
Case "Farbe" '...
Einheit = "l"
Case "Segmentkrümmer" '...
Einheit = "kg"
'case Weitere
'Einheit = "me"
Case Else
MsgBox Target & ": noch nicht zugeordnet"
End Select
Else
MsgBox "nur einzeln eintragen"
End If
Application.EnableEvents = False
Target.Offset(0, -1) = Einheit
End If
Err.Clear
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
Dim i As Variant, n As Integer
n = 1
With Sheets("Tabelle1")
For i = 11 To .Cells(Rows.Count, "D").End(xlUp).Row
If .Cells(i, "D") "" Then
.Cells(i, "A") = n
n = n + 1
End If
Next
End With
End Sub
Vielen Dank!