Ich habe folgendes Problem
Ich möchte in einem Tabellenblatt zwei Makros mit Doppelklick Funktion verwenden.
Leider bekomme ich es nicht hin das ich beide verwenden kann.
Einzel laufen alle beide.
Hier die beiden Makros einzeln.
Makro1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B7:F30")) Is Nothing Then
'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
'Arbeitsmappe mit Blatt "Rechnungsformular" suchen
For Each wbZ In Workbooks
On Error Resume Next
Set wsZ = wbZ.Worksheets("Rechnungsformular")
If Not wsZ Is Nothing Then Exit For
On Error GoTo 0
Next wbZ
letzteZeileZ = wsZ.Cells(wsZ.Rows.count, "B").End(xlUp).Row
If letzteZeileZ > 61 Then
MsgBox "Zeilenlimit im Rechnungsformular erreicht"
Exit Sub
End If
wsZ.Unprotect
If letzteZeileZ
Makro 2
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("H7:L30")) Is Nothing Then
Dim vntHeader, vntTmp
vntHeader = Range("H7:K50")
vntTmp = Range(Cells(Target.Row, 8), Cells(Target.Row, 12))
Cancel = True
With Sheets("Rechnungsformular")
.Range("C23:C26") = WorksheetFunction.Transpose(vntTmp)
.Activate
End With
vntHeader = Range("L7:L50")
vntTmp = Range(Cells(Target.Row, 12), Cells(Target.Row, 12))
Cancel = True
With Sheets("Rechnungsformular")
.Range("C30") = WorksheetFunction.Transpose(vntTmp)
.Activate
End With
Sheets("Produktpalette").Select
End if
Range("B7").Select
End Sub
Hier meine Datei
https://www.herber.de/bbs/user/138785.xlsm
Hoffe das mir hier jemand helfen kann.
Gruß speednetz