Makro bei drop down (Intersect)
30.03.2009 10:26:43
Ryu
Problem 1) Wenn ich den code so lasse wie unten angegeben funktioniert das erste intersect mit Zelle "D5", aber das zweite nicht. Warum? Wie kann ich beides zum laufen bringen?
Problem 2) Wenn ich das erste Intersect deaktiviere wird das zweite ausgeführt allerdings kopiert es mir die falschen Daten. Es sind nicht die Zeilen an der Stelle i sondern er fängt von ganz Anfang an... Sieht jemand woran es liegt?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim zähler As Integer
Dim letzteZelle As Range
Application.ScreenUpdating = False
Set letzteZelle = Worksheets("F").Range("A2").End(xlDown)
If Intersect(Target, Range("D5")) Is Nothing Then Exit Sub
Range("D9").ClearContents
If Intersect(Target, Range("D9")) Is Nothing Then Exit Sub
zähler = 1
For i = 2 To letzteZelle.Row
If Trim(Worksheets("F").Cells(i, 2).Value) = Trim(Range("D9").Value) Then
zähler = zähler + 1
Worksheets("F").Rows(i).Copy Destination:=Worksheets("Daten").Cells(zähler, 1)
End If
Next i
Application.ScreenUpdating = True
End Sub
Ich danke in voraus für alle Tips
Grüße