Worksheet_Change bei löschen von Zellenwerten
23.02.2018 21:11:25
Zellenwerten
wenn ich in Spalte A ab der 9. Zeile einen Wert eintrage, dann sollen mir aus dem Worksheet " _ Leistungsbeschreibung" entsprechende Daten geholt werden und in die Spalte B und D geschrieben werden. Das funktioniert auch mit folgendem Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wkb As Workbook
Dim wks_Leist As Worksheet
Dim Zelle As Range
Dim Zahl As Integer
Dim Zeile As Variant
Dim Spalte As Variant
Dim Leistung As Variant
Dim Leistung1 As Variant
Set wkb = ThisWorkbook
Set wks_Leist = wkb.Worksheets("Leistungsbeschreibung")
Set Zelle = wkb.Worksheets("Eingabeformular").Cells(1, 1)
Zahl = Zelle.Value
Zeile = Selection.Address
Select Case Zahl
Case Is = 1
Spalte = 1
Case Is = 2
Spalte = 5
Case Is = 3
Spalte = 13
Case Is = 4
Spalte = 9
End Select
If Target.Column = 1 And Target.Row > 9 Then
lz = wks_Leist.Cells(Rows.Count, Spalte).End(xlUp).Row
For i = 3 To lz
Leistung = Target.Value
Leistung1 = wks_Leist.Cells(i, Spalte).Value
If Leistung = Leistung1 Then 'hier kommt der Fehler
Application.EnableEvents = False
ActiveSheet.Cells(ActiveCell.Row, 2) = wks_Leist.Cells(i, Spalte + 1)
ActiveSheet.Cells(ActiveCell.Row, 4) = wks_Leist.Cells(i, Spalte + 2)
Application.EnableEvents = True
End If
Next i
End If
End Sub
Wenn ich nun die Zellen markiere und lösche, ob per vba oder "von Hand", bekomme ich die Fehlermeldung: Typen unverträglich (siehe im Code die Stelle wo der Fehler auftaucht)
Wie bitt muss ich das ändern, bzw. warum kommt der Fehler?
Gruß Oisse
Anzeige