SelectionChange(

Forumthread: SelectionChange(

SelectionChange(

27.11.2006 12:38:01

egres

Hallo Leute
ich möchte mit Private Sub Worksheet_SelectionChange(oder ähnlich)
das wenn in der Zelle "Auswahl" TO geschrieben wird, das Makro nach Zelle "eingabe" geht und dessen Inhalt löscht!
Gruss un Danke
Egres

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: SelectionChange(

27.11.2006 12:45:37

UweD
Danke!

28.11.2006 09:08:00

Egres

AW: SelectionChange(

27.11.2006 12:45:37

UweD

Hallo
hier ein Beispiel.
Überwacht wird der Bereich A1 bis A10.
Das Feld Eingeabe darf dabei aber Nicht in diesem Bereich liegen..


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
If Target.Value = "TO" Then
Range("Eingabe").ClearContents
End If
End If
End Sub

Gruß UweD
(Rückmeldung wäre schön)

Danke!

28.11.2006 09:08:00

Egres

Hallo Uwe
ich konnte nicht schneller reagieren, da ich abwesend war!
Du hast mir geholfen, ich habe es angepasst und es klappt.
Danke und Gruss
Egres

Forumthread: SelectionChange(

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread