Hallo Ralf Supi
10.07.2022 17:01:44
siegfried
Hallo Ralf,
danke für die Unterstützung !
Anbei:
Sub Selektion_Matrix_suchen_selectieren()
Dim Zelle As Range
Dim az
Set az = ActiveCell
If Intersect(Range("D12:D43"), ActiveCell) Is Nothing Then
MsgBox "Falscher Bereich"
Else
'MsgBox "jetzt"
With ActiveSheet
'--- erst vorhandener Bereich Grau entfernen ---
Range("T13:AA21").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
az.Select
Set Zelle = .Range("T13:AA13").Find(What:=ActiveCell.Value)
Zelle.Select
'------ jetzt Bereich Grau färben --------
With ActiveCell
Range(.Offset(8, 0), .Offset(0, 0)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
.PatternTintAndShade = 0
End With
End With
End With
az.Select 'zurück zur ausgewählten Stelle in Bereich Spalte D
End If
End Sub
jetzt binde ich es noch in die:
Private
Sub Worksheet_Change(ByVal Target As Excel.Range)
ich hoffe ich krieg es gleich hin.
Melde mich...
mfg siegfried