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.
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
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.
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!