VBA erweitern
14.11.2002 22:52:37
Valentino
Ich habe einen folgenden Wunsch.
Meine aktuelle VBA bezieht sich wie unten aufgeführt nur auf die Spalte L.
Ich möchte die gleiche Prozedur auch für die Spalte "X" und "AJ" durchführen.
Der Abschnitt ab "Sheets("16-Stammzahlen"..." bleibt immer gleich.
Ich hoffe das die Erklärung ausreicht.
Gruß Valentino
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim intZ As Integer
intZ = Sheets("Ziehung 16").Cells(Rows.Count, 1).End(xlUp).Row
If Target.Column <> 12 Or Target.Row > intZ Then
Cells(1, 1).Activate
Exit Sub
End If
Sheets("16-Stammzahlen").Cells(2, 25).Value = Target.Cells.Offset(0, -11).Value
Calculate
Target.Cells.Value = Sheets("16-Stammzahlen").Cells(12, 26).Value
Cells(1, 1).Activate
End Sub