Office: (Office 2016) Aktive Zelle kopieren

Vielen Dank Exl121150,

so funktioniert es einwandfrei!

 

Was müsste ich dem Code noch hinzufügen bzw. daran ändern, damit nach einem Doppelklick der Cursor zu Tabelle2 springt?

 

Hallo,

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim lngLetzteZeile As Long
  
   If Target.Cells.Count = 1 Then
      With Worksheets("Tabelle2")
         lngLetzteZeile = WorksheetFunction.Max(.Cells(Rows.Count, 3).End(xlUp).Row + 1, 13)
         .Activate
         With .Cells(lngLetzteZeile, 3)
           .Value = Target.Value
           .Select
         End With
      End With
      Cancel = True
   End If
End Sub

 

Super Exl121150,

so ist es perfekt!
Nochmals vielen Dank für Deine tolle Unterstützung.

VG
Frank

 

Hallo ich hänge mich da jetzt mal dran. Das Makro funktioniert bei mir super. Ich brauche jedoch nicht eine koperet Zelle eingefügt sondern 4 . Wie kann ich das ändern?
Gruß Thomas (Neheimer)

 

sorry, hat sich schon erledigt. Einfach durch selektion erstezt. Manchmal ist man betriebsblind.