Selectieren

siegfried · 2022-07-10T11:14:47+00:00

Guten Morgen zusammen, ich habe eine Tabelle, wenn der Name in der Spalte D12:D43 eingegeben wird soll dieser Name in der Zeile T13:AA13 gesucht werden und dann in der Spalte 13:21 makiert werden. mfg 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

Guten Morgen,
ich habe es jetzt so geregelt und funktioniert:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Range
If Intersect(Range("D12:D43"), Target) Is Nothing Then
'' MsgBox "Falscher Bereich"
Else
'--- erst vorhandener Bereich Grau entfernen ---
With Range("T13:AA21").Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Set Zelle = Range("T13:AA13").Find(What:=Target.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not Zelle Is Nothing Then
'------ jetzt Bereich Grau färben --------
With Zelle.Resize(9).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
.PatternTintAndShade = 0
End With
End If
'''  Target.Select        'zurück zur ausgewählten Stelle in Bereich Spalte D
End If
'----------- 2 Matrix -------------------------------------------------------
If Intersect(Range("D12:D43"), Target) Is Nothing Then
'' MsgBox "Falscher Bereich"
Else
'--- erst vorhandener Bereich Grau entfernen ---
With Range("T33:AA41").Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Set Zelle = Range("T33:AA41").Find(What:=Target.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not Zelle Is Nothing Then
'------ jetzt Bereich Grau färben --------
With Zelle.Resize(9).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
.PatternTintAndShade = 0
End With
End If
Target.Select        'zurück zur ausgewählten Stelle in Bereich Spalte D
End If
End Sub

ist einfach "gestrickt" aber für meine Kenntnisse i.o., vielleicht gibt es eine "kurze" Version !
mfg siegfried

Forumthread: Selectieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Selectieren

Forumthread: Selectieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread