Office: Zelle anklicken --> Automatisch ein X setzen

Hallo zusammen,
ich brauche wiedermal eure freundliche Unterstützung.
Ich möchte eine Zelle zwischen "C20:G20" anklicken und automatisch in der entsprechende Zelle darunter "C21:G21" ein "x" eingetragen bekommen.
Habe diverse Makros gebastelt und ausprobiert aber ohne nennenswerten Erfolg.
Vieln Dank
Gruß Norbert

 

Hallo Norbert,

Code:

Option Explicit                             ' Variablendefininition erforderlich

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    '**************************************************
    '* H. Ziplies                                     *
    '* 17.08.10                                       *
    '* erstellt von [email]HajoZiplies@web.de[/email]                *
    '* [url]http://Hajo-Excel.de/[/url]                          *
    '**************************************************
    Dim RaBereich As Range                  ' Variable für Bereich
    Dim RaZelle As Range                    ' Variable für Zelle
    ' Bereich der Wirksamkeit
    Set RaBereich = Range("C20:G20")
    ' Zelle die in dem Bereich liegen auf die Varible schreiben
    ' damit werden nur noch die Zellen bearbeitet die im vorgegeben Bereich liegen
    ' jede Zelladresse ist einzeln angegeben
    Set RaBereich = Intersect(RaBereich, Range(Target.Address))
    If Not RaBereich Is Nothing Then
        'ActiveSheet.Unprotect ("Passwort")
        For Each RaZelle In RaBereich
            RaZelle.Offset(1, 0) = "X"
        Next RaZelle
        'ActiveSheet.protect ("Passwort")
    End If
    Set RaBereich = Nothing                 ' Variable leeren
End Sub

Gruß Hajo

 

Hallo Hajo,
zunächst vielen Dank für deine Hilfe, aber leider ist das noch nicht so richtig das was ich brauche - meine Schuld.
Das mit dem "x" setzen klappt nur in einem leeren Blatt. Ich hätte erwähnen müssen, dass in "C20:G20" die Zellen nicht leer sind. Es stehen Prozentangeben darin (80%;90%;100%.....). Dann funktioniert das Makro nicht.
Als zweites hatte ich verschwiegen, dass immer nur ein "x" gesetzt sein soll, quasi als Indikator um welche Prozentangabe es sich handelt.

Sorry für die mangelhafte Bewschreibung.

Mit deinem Makro setzte ich mich aus LErnzwecken trotzdem auseinander.
Gruß Norbere

 

Hallo Norbert,

für mein Makro ist es Egal ewas in der Zelle steht, wird eine Zelle im Bereich ausgewählt, wird in die Zelle darunter ein X geschrieben.
Ich sehe Deine Datei nicht und darum komme ich wahrscheinlich auch nicht mit Deiner Beschreibung klar. Da mußt Du es wohl selber anpassen.

Gruß Hajo

 

Hallo!

Mach's doch per Doppelklick, dann reicht ein Einzeiler:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C20:G20")) Is Nothing Then Target.Offset(1, 0) = "x"
End Sub

 

Hallo Hajo,
keine Ahnung wo das Problem ist. Bei funktioniert es nur wenn dei Zellen leer sind.
Hänge die Datei mal an.
Gruß Norbert
P.s. Mittlerweile ist die Range "C18:G18"

 

Hallo Schatzi,
das mit dem Doppelclick funktioniert. Nun muß das Makro nur erweitert werden, dass die "x" links und rechts wieder verschwinden. Also nur "x" möglich ist.
Danke
Gruß Norbert

 

Hallo!

 

Hallo Schatzi,
vielen Dank so funktioniert es tipp topp.
Gruß Norbert