Doppelklick werte kopieren
22.10.2019 10:30:50
speednetz
Ich brauche mal Hilfe für das folgende Problem.
Ich habe ein Makro das Ich (von: Dieter Klemke) bekommen habe. Dieses läuft in meinem Original ohne Probleme.
Nun mein Problem.
Wenn ich meine Datei mit neuem Namen gespeichert habe und diese dann öffne um dann mit doppelklickt noch etwas einzufügen möchte, läuft das Makro logischer weise nicht mehr.
Es bezieht Sicht ja auf meine Originaldatei.
Nun meine Frage:
Kann mir vielleicht jemand das Makro so ändern, das es immer
die geöffnete Datei anspricht, also keinen festen Dateinamen verwendet.
Glaube das man die folgede Zeile ändern müsste.
Set wbZ = Workbooks("Rechnungsprogramm.xlsm")
Ich hoffe ich habe mich einiger maßen verständlich ausgedrückt.
Hoffe es kann mir jemand hier bei helfen
Danke speednetz
Hier der Code und die beiden Dateien.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Produktpalette Doppelklick
Dim letzteZeileZ As Long
Dim wbZ As Workbook
' Z steht jeweils für Ziel
Dim wsZ As Worksheet
If Intersect(Target, Me.Columns("B:F")) Is Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub ' wenn in Zeile 1 Überschriften stehen
If IsEmpty(Me.Cells(Target.Row, "F")) Then Exit Sub
Set wbZ = Workbooks("Rechnungsprogramm.xlsm")
Set wsZ = wbZ.Worksheets("Rechnungsformular")
letzteZeileZ = wsZ.Cells(wsZ.Rows.Count, "B").End(xlUp).Row
If letzteZeileZ > 63 Then
MsgBox "Zeilenlimit im Rechnungsformular erreicht"
Exit Sub
End If
wsZ.Unprotect
If letzteZeileZ https://www.herber.de/bbs/user/132422.xlsm