für die Tabelle("Vorauswahl") benutze ich ein Change- und ein SelcetionChange Ereignis und das Makro Auswahl_Liste_zeigen". Alles funktionierte gut. Die Change-Ereignisse, die ChangeSelect-ereignisse und auch das Makro "Auswahl_Liste_zeigen" funktoniert. Dabei wird eigentlich nur die Tabelle "Auswahl" aufgerufen, gefiltert (Autofilter) und dargestellt. Das Makro "Auswahl_Liste_zeigen" habe ich über einen Buttom in der Menueleiste gestartet.
Dann wollte ich erreichen, daß bei Änderung einer bestimmten Zelle der Tabelle("Vorauswahl") das Makro "Auswahl_Liste_zeigen"
startet.
So habe ich in Worksheet_Change eingetragen:
.
.
Cells (21,10).select
Auswahl_Liste_zeigen
.
.
Jetzt erhalte ich die Fehlermeldung Laufzeitfehler 1004
Die Select Methode des Range Objectes ist fehlerhaft und weiterhin wird in SelctionChange die Zeile:
Cells(ActiveCell.Row, 7).Select
gelb markiert. Wie kann ich den Fehler beseitigen, ohne einen kompletten Umbau.
mit freudlichen Grüssen aus Berlin
Rainer
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
.
.
.
end sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not (Target.Column = 3 Or Target.Column = 7 Or Target.Column = 10) Then
If ActiveCell.Column < 5 Then
Cells(ActiveCell.Row, 3).Select
Else
If ActiveCell.Column < 10 Then
Cells(ActiveCell.Row, 7).Select
Else
Cells(22, 10).Select
End If
End If
Else
If ActiveCell.Column = 10 And ActiveCell.Row <> 22 Then
Cells(22, 10).Select
End If
End If
If Target.Row > 30 Or Target.Row = 1 Then
If Target.Row = 1 Then
Cells(2, ActiveCell.Column).Select
Else
Cells(29, ActiveCell.Column).Select
End If
End If
End Sub