Wert per Doppelklick in andere Zellen
27.08.2019 16:05:30
speednetz
Ich hoffe das mir jemand bei meinem Problem helfen kann.
Also ich habe folgenden Code ( Code steht am Ende ) um per Doppelklick innerhalb der Tabelle den Zelleninhalt
aus einem Bereich 5 Zellen waagerecht zu kopieren. diese werden dann in einem vorgegebenen Bereich eingefügt.
Dieser Code läuft auch.
Nun habe ich aber aus der einen Tabelle zwei gemacht, wodurch nun mein Code nicht mehr
Läuft.
Wer kann mir meinen alten Code so ändern das er Tabellen übergreifend wieder läuft.
Die einzelnen Parameter müssten wenn möglich so bleiben.
Über positive antworten würde ich mich freuen.
Hier mein derzeitiger Code.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Produktpalette Doppelklick
If Intersect(Target, Columns("AO:BU")) Is Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub ' wenn in Zeile 1 Überschriften stehen
If Not IsEmpty(Cells(Target.Row, 41)) Then _
Range(Cells(Target.Row, 41), Cells(Target.Row, 73)).Copy _
Cells(WorksheetFunction.Max(41, Cells(Rows.Count, 2).End(xlUp).Row + 1), 2)
Cancel = True
End Sub
https://www.herber.de/bbs/user/131650.xlsm
Gruß speednetz