Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilenbereich in zweite Tabelle Kopieren
12.12.2022 11:28:22 Daniel B
NotSolved
12.12.2022 12:11:37 Der Steuerfuzzi
NotSolved
12.12.2022 12:14:00 Der Steuerfuzzi
NotSolved
12.12.2022 12:21:53 Daniel B
NotSolved
12.12.2022 12:25:34 Der Steuerfuzzi
Solved
12.12.2022 12:30:09 Daniel B
NotSolved

Ansicht des Beitrags:
Von:
Daniel B
Datum:
12.12.2022 11:28:22
Views:
88
Rating: Antwort:
  Ja
Thema:
Zeilenbereich in zweite Tabelle Kopieren

Hallo zusammen,

Ich würde gerne in meiner Grundtabelle bei einem Doppelklick in der Spalte "B" einen bereich der betreffenden Zeile in eine zweite Tabelle (Historie) kopieren. Anschließend den Bereich in der Grundtabelle leeren für neue Einträge.

 

Beispiel:

Doppelklick in Zelle B12:

B12 bis H12 werden kopiert und in der nächsten freien Zeile in der Tabelle "Historie" eingefügt.

Anschließend wird B12 bis H12 in der Grundtabelle geleert.



Bisher habe ich folgendes:
 

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim lngZiel As Long
  ' Doppelklick in Spalte B
  If Target.Column = 2 Then
  Cancel = True
  With Worksheets("Historie")
  lngZiel = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count) + 1
  Target.EntireRow.Copy .Cells(lngZiel, 1)
  End With
  Rows(Target.Row).Clear
  End If
  End Sub

Es funktioniert an sich super, jedoch kopiert er mir die KOMPLETTE Spalte, fügt sie in die "Historie" ein und leert auch die komplette spalte im der Grundtabelle.
Ich bekomme es als Laie leider hin das EXCEL nach dem Doppelklick in der Grundtabelle lediglich in den Betreffenden Zeile den bereich B bis H kopiert, einfügt und leert. 

Kann hier jemand Helfen? Vielen Dank schonmal im voraus.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilenbereich in zweite Tabelle Kopieren
12.12.2022 11:28:22 Daniel B
NotSolved
12.12.2022 12:11:37 Der Steuerfuzzi
NotSolved
12.12.2022 12:14:00 Der Steuerfuzzi
NotSolved
12.12.2022 12:21:53 Daniel B
NotSolved
12.12.2022 12:25:34 Der Steuerfuzzi
Solved
12.12.2022 12:30:09 Daniel B
NotSolved