Worksheet_SelectionChange
Sascha
habe von vba nicht besonders viel Ahnung, brauche aber dringend ein Lösung für das folgende Problem:
Mehrdeutiger Name: Worksheet_SelectionChange
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call SteuerButton(ActiveWindow.VisibleRange(1).Top)
End Sub
undPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("O6,AC6,AQ6,BE6,BS6,CG6,O8,AC8,AQ8,BE8,BS8,CG8")) Is Nothing Then
Exit Sub
End If
Range("BA11").Value = Target.Value
Range("BA11").Interior.ColorIndex = Target.Interior.ColorIndex
End Sub
Ist eine Zusammenführung beider Code`s möglich, ohne das obige Fehlermeldung erscheint? Wenn ja,möchte ich Euch bitten, diese zusammen zu fügen.
Vielen Dank
Sascha