AW: Worksheet_Change Fehlermeldung
23.04.2019 15:12:46
Sebastian
Hallo Dieter,
danke schon mal. Der Code von dir funktioniert.
Komme mit meinem komplexeren Beispiel trotzdem nicht weiter. Es kommt eine Fehlermeldung ("Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen") bei der Zeile mit dem For-Statement ("For Each rngZelle In Range("rngFilterbezeichnungen")"):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strFilter As String
Dim rngZelle As Range
'Range("rngFilter") entspricht A4 auf Tabelle1
'Range("rngFilterbezeichnungen") A1 bis A20 in Tabelle2
'Range("rngZielzelle") entspricht A12 auf Tabelle1
If Not Intersect(Target, Range("rngFilter")) Is Nothing Then
Application.EnableEvents = False
strFilter = Target.Value
Worksheets("Tabelle2").Select
For Each rngZelle In Range("rngFilterbezeichnungen")
If strFilter = rngZelle Then
'Wert rechts von rngZelle kopieren und nur als Wert einfügen
rngZelle.Offset(0, 1).Select
Selection.Copy
Range("rngZielzelle").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next
Application.EnableEvents = True
End If
End Sub
Warum läuft die For-Schleife nicht los?
LG Sebastian