Zelle teilweise kopieren

Bild

Betrifft: Zelle teilweise kopieren
von: Carsten
Geschrieben am: 26.10.2015 11:52:34

Hallo zusammen,
ich möchte per Doppelklick eine Zeile bzw. die Zellen aus den Spalten A-G in eine andere Tabelle kopieren. Das klappt auch soweit. Allerdings sollen die kopierten Daten in der Zieltabelle laufend durchnummeriert werden. Kopiere ich aber die ganze Zeile und füge sie in der neuen Tabelle ein fehlt mir die Nummerierung in Spalte A.
Ich schaffe es aber einfach nicht, nur die o.g. Zellen zu kopieren und diese dann zu nummerieren.
Ich hoffe jemand kann mir auf die Sprünge helfen.
Gruß
Carsten

Bild

Betrifft: AW: Zelle teilweise kopieren
von: Sepp
Geschrieben am: 26.10.2015 12:17:52
Hallo Carsten,
so?

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngRow As Long

If Application.CountA(Rows(Target.Row)) > 0 Then
  Cancel = True
  With Sheets("andere Tabelle") 'Zieltabelle - Name anpassen!
    lngRow = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
    .Cells(lngRow, 1) = Application.Max(.Columns(1)) + 1
    Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).Copy .Cells(lngRow, 2)
  End With
End If

End Sub

Gruß Sepp


Bild

Betrifft: AW: Zelle teilweise kopieren
von: Carsten
Geschrieben am: 26.10.2015 12:21:27
Super Sepp, genau so.
Vielen Dank

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zelle teilweise kopieren"