Makro auslösen mit Doppelklick
04.01.2017 09:58:55
Bianca
ich hab hier ein Makro, dass bei Doppelklick in einer Zeile, eben diese Zeile in ein Formular übernimmt. Es ist aktuell egal welche Zelle ich in dieser Zeile anklicke.
Ich will aber, dass das Makro nur auslöst wenn ich die Zelle der Spalte A in dieser Zeile anklicke. Geht das? und wenn ja, wie?
Besten Dank im Voraus!
lg Bianca
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 1 Then
If Not Intersect(Range("A:K"), Target) Is Nothing Then
Dim Z As Long
Cancel = True
Z = Target.Row
With Sheets("ANLBLATT")
.Range("AS5:BA5") = Cells(Z, 1)
.Range("N6") = Cells(Z, 2)
.Range("Z9") = Cells(Z, 3)
.Range("AM8") = Cells(Z, 4)
.Range("L8:AA8") = Cells(Z, 5)
.Range("Z5:AC5") = Cells(Z, 7)
.Range("O9") = Cells(Z, 8)
.Range("AD7") = Cells(Z, 9)
.Range("H7") = Cells(Z, 10)
'...usw.
End With
End If
End If
Call Speichern
End Sub
Anzeige