Makros - Neuling!!!

[Nadine1006]

Hallo,

ich bin absoluter Neuling was Makros angeht. Folgende simple Makro habe ich aufgezeichnet. Wie bekomme ich die jetzt so hin, dass ich z.B. auch in Zeile B3 klicke und er es genauso macht wie in B2.
Kann ich die Makro in die Zeile kopieren? Wenn ja WIE???

Sub Schlüsselschrank()
'
' Schlüsselschrank Makro
'

'
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "X"
    Range("C2").Select
    Selection.ClearContents
    Range("C2").Select
   
End Sub


Vermutlich wird nun so mancher die Hände übern Kopf zusammenschlagen!  :16: 

LG Nadine

[BoskoBiati]

Hi,

Vermutlich wird nun so mancher die Hände übern Kopf zusammenschlagen!

Da könntest Du recht haben.

Was willst Du eigentlich machen? Um ein X in eine Zelle zu schreiben ist ein Makro Quatsch.

[chris-ka]

Hallo Nadine,

beschreibe in ganzen Sätzen was du vorhast!
z.B
Wenn in den Zellen Bxx bis Bxx der Zellinhalt auf ein X geändert wird soll in der Zelle daneben nichts stehen. Wird in den Zellen C ein X eingetragen, soll in B nichts stehen. usw....

So ähnlich sieht das jetzt für mich aus.
Aber dies ist jetzt mal geraten!

lg

[Nadine1006]

Hallo,

ich möchte gerne,

wenn ich die Zeile 2 anklicke, dass in Spalte B2 ein X gesetzt wird und in Spalte C2 das X (falls vorhanden) gelöscht wird.
Und so hätte ich es auch gerne wenn ich Zeile 3 etc anklicke. Aber dann nur für die jeweilige Zeile, die ich angeklickt habe.

Ich probiere gerade in einer einfachen Tabelle aus. Es geht mir einfach gerade darum das Programm erstmal zu verstehen, bevor ich die eigentlich größere Tabelle/"Baustelle" angehe.

LG

[chris-ka]

HI,

Code in dem jeweiligen Klassenmodul des Blattes:

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Range("B2:C20") 'Bereich ggf. anpassen
If Not Intersect(rng, Target) Is Nothing Then
    With Target
        .Value = IIf(.Value = "", "X", "")
        .Offset(0, IIf(.Column = 2, 1, -1)).Value = IIf(.Value = "", "X", "")
        Cancel = True
    End With
End If
End Sub

das würde jetzt per Doppelklick in C oder B ein X setzen bzw. entfernen.
anbei noch die Datei

  click_x.xlsb (Größe: 14,42 KB / Downloads: 5)

[Nadine1006]

So hab ich mir das vorgestellt!  :19:

Ich merke aber gerade, dass es für mich wohl immer böhmische Dörfer bleiben werden!

[BoskoBiati]

Hi,

genügt da nicht das:

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Range("A2:X20") 'Bereich ggf. anpassen
If Not Intersect(rng, Target) Is Nothing Then
    Cells(Target.row,2)="x"
   Cells(target.row,3).clearcontents
    End With
End If

vor dem Hintergrund:

wenn ich die Zeile 2 anklicke,