Worksheet_Change(ByVal Target As Excel.Range)
René
Ich habe folgenden Code auf dem Tabellenblatt.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$T$6" Then
Range("D7:J37").ClearContents
Range("A1").Select
End If
If Target.Address = "$J$7:$J$37" = "Ü" Then
Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
End If
End Sub
Der erste Teil (if) klappt problemlos.Bei dem zweiten if bekomme ich fehlerhaften Abbruch (Typenunverträglich).
Mir ist auch irgendwie klar, das der Code so Blödsinn ist.
Ich wollte mich halt rantesten, aber packe es nicht.
Es soll einfach die Nachbarzelle der aktiven Zelle ausgewählt werden, wenn ich in der aktiven Zelle ein "Ü" eintippe.
Die Range beschränkt sich aber auf D7:D37, in der ein Ü eingetippt werden könnte.
Wie kann man das lösen?
Liebe Grüße, René
Anzeige