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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen