ich möchte, wenn zum Beispiel der Curser in der Zeile 10 (irgendwo) steht die Zellen b10 und c10 und d10 an anderer Stelle anzeigen.
MfG
heim
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row <> 10 Then Exit Sub
Range("A23").Value = Range("B10").Value
Range("B23").Value = Range("C10").Value
Range("C23").Value = Range("D10").Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Row < 10 Or Target.Row > 19 Then Exit Sub
Range("A23").Value = Range("B" & Target.Row).Value
Range("C23").Value = Range("C" & Target.Row).Value
Range("E23").Value = Range("D" & Target.Row).Value
If IsNumeric(Target.Value) Then
Range("G23").Value = Target.Value
Else
Application.EnableEvents = False 'Ereignis AUS
Range("G23").Value = ""
Application.EnableEvents = True 'Ereignis EIN
End If
End Sub