Hallo,
ich habe ein Makro mit dem ich aus einer Liste bestimmte Daten filtere und diese auf ein Hilfsblatt kopiere, als normales Makro funktioniert es
Sub Makro1()
wert = Left(ActiveCell.Value, 3)
Sheets("02_Objekt").Select
Selection.AutoFilter Field:=4, Criteria1:="=*" & wert & "*", Operator:=xlAnd
Range("J1:J100").Select
Selection.Copy
Sheets("Hilfsblatt").Select
Range("J1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("02_Objekt").Select
Selection.AutoFilter Field:=4
Sheets("Arbeitsblatt").Select
Range("G" & Range("F" & Rows.Count).End(xlUp).Row).Select
End Sub
Mit der Funktion worksheet_Change habe ich Probleme, ich bekomme die Funktion zwar gestartet, aber dann kommt eine Fehlermeldung
Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("F6:F1000")) Is Nothing Then
wert = Left(ActiveCell.Value, 3)
Sheets("02_Objekt").Select
Selection.AutoFilter Field:=4, Criteria1:="=*" & wert & "*", Operator:=xlAnd
Range("J1:J100").Select
Selection.Copy
Sheets("Hilfsblatt").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("02_Objekt").Select
Selection.AutoFilter Field:=4
Sheets("Arbeitsblatt").Select
Range("G" & Range("F" & Rows.Count).End(xlUp).Row).Select
End If
' Application.EnableEvents = True
End Sub
In der unterstrichenen Zeile meldet er den Fehler.
Da ich zum ersten Mal mit der Funktion arbeite habe ich noch meine Probleme mit dem Aufbau diese Makros, aber vielleicht kann einer von euch mir weiterhelfen.
Gruß und besten dank im voraus
Helmut