Doppelklick werte kopieren
08.10.2019 19:08:44
speednetz
Brauche mal Hilfe für das folgende Problem.
Ich habe zwei Dateien 1. Rechnungsprogramm 2. Produktpalette
Ich möchte aus der Datei Produktpalette mit Doppelklick in eine beliebige Zeile die Werte aus den Zellen B bis F kopieren, und sie dann in die Datei Rechnungsprogramm ab Spalte B41 ein zufügen.
Beim nächsten Doppelklick sollen die Werte dann immer in die nächste freie Zeile eingefügt werden.
Das einfügen darf aber nur bis Zeile 63 gehen.
Es sind immer beide Dateien geöffnet.
Ich habe einen Code im Netz gefunden der auch läuft aber nur in einer Datei mit zwei Tabellenblättern (Rechnungsformular / Produktpalette)
Ich brauche es aber Datei übergreifend.
Vielleicht kann mir ja jemand diesen so ändern das das er übergreifend auf zwei Dateien läuft.
Hier der Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Produktpalette Doppelklick
'Sub sss()
Sheets("Rechnungsformular").Select
ActiveSheet.Unprotect
If Intersect(Target, Columns("B:F")) Is Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub ' wenn in Zeile 1 Überschriften stehen
With Sheets("Rechnungsformular")
ActiveSheet.Unprotect
If Not IsEmpty(Cells(Target.Row, 6)) Then
Range(Cells(Target.Row, 2), Cells(Target.Row, 6)).Copy .Cells(WorksheetFunction. _
Max(41, .Cells(Rows.Count, 2).End(xlUp).Row + 1), 2)
End If
End With
Cancel = True
Call Hintergrundfarbe
Sheets("Rechnungsformular").Select
'ActiveSheet.Protect
Sheets("Produktpalette").Select
End Sub
https://www.herber.de/bbs/user/132422.xlsm
Dateien sind hochgeladen.
Hoffe es knn mir jemand hier bei helfen
Danke speednetz