Bei Doppelklick aktive Zeilennummer auslesen

[Ruletka23]

Hallo Zusammen,

ich möchte, dass bei einem Doppelklick auf eine beliebige Zelle der Spalte C des Tabellenblatts in Zelle A1 selbigen Blattes die Zeilennummer ausgeben wird.

Also wenn ich die Zelle C7 doppelklicke, soll in Zelle A1 eine "7" als Wert erscheinen. Das bekomme ich leider nicht hin.

Für eine Antwort vielen Dank im Voraus.

[00202]

Hallo, :19:

in den Codebereich des Tabellenblattes, in welchem du diese Funktion haben möchtest: :21:

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error GoTo Fin
    If Not Intersect(Target, Columns("C")) Is Nothing Then
        Cancel = True
        Application.EnableEvents = False
        Cells(1, 1).Value = Target.Row
    End If
Fin:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Error: " & Err.Number & " " & Err.Description
End Sub

[Ruletka23]

Hallo,

Vielen Dank! Das funktioniert ja Super, genau so wie ich mir das vorgestellt habe,

Kann man auf demselben Tabellenblatt noch eine zweites Ereignis beim Einfügen einer Zeile starten?
Also wenn ich eine Zeile einfüge, soll in Zelle A2 der Tabelle die Nummer der neuen Zeile ausgegeben werden.
Auf dem Blatt müssten dann aber beide Ereignisse (Doppelklick => Ausgabe in A1 + Zeile einfügen => Ausgabe in A2) funktionieren.
Wäre das möglich?

Für eine Antwort vielen Dank im Voraus.

[00202]

Hallo, :19:

probiere es mal so: :21:
[attachment=32674]

[Ruletka23]

Hallo,

bin jetzt erst dazu gekommen. Vielen, vielen Dank es funktioniert tadellos, ich bin jetzt wunschlos glücklich.

Ich habe an

Cells(2, 1).Value = rngRange.Row - 1

noch ein Makro angehängt, welches die Zeilennummer zur weiteren Bearbeitung verwendet, das läuft auch ohne Probleme.

Also noch einmal besten Dank!