Doppelklick zwei Bereiche ansprechen
24.08.2020 20:22:20
speednetz
Ich brauche mal eure Hilfe.
Die zwei nachfolgenden Makros mit Doppelklick laufen einzeln beide ohne Probleme.
Nun sollen sie aber in einem Tabellenblatt laufen.
Ich bekomme es aber leider nicht hin, das beide im Tabellenblatt zusammen laufen.
Hier die beiden Makros.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim letzteZeileZ As Long
If Intersect(Target, Me.Columns("AO:AS")) Ist Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub ' wenn in Zeile 1 Überschriften stehen
If IsEmpty(Me.Cells(Target.Row, "AO")) Then Exit Sub
letzteZeileZ = Cells(Rows.count, "B").End(xlUp).Row
If letzteZeileZ > 63 Then
MsgBox "Zeilenlimit im Rechnungsformular erreicht."
Exit Sub
End If
If letzteZeileZ '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address "$J$7" And Target.Address "$J$14" Then Exit Sub
With ActiveCell
.WrapText = True
.Value = Date
End With
End Sub
Gruß Ralf