Blattname in Zelle von anderer Tabelle
07.12.2020 09:29:41
anderer
ich habe ein Problem mit meinem VBA-Code. Dieser sucht in einer Tabelle(Sheet1) nach einer Zahl, welche in einem anderen Tabellenblatt eingescannt wurde und färbt dann die entsprechende Zeile grün. Das funktioniert soweit gut, nur soll jetzt der Name des Tabellenblattes (Palette1, Palette2,...) in dem eingescannt wird jeweils neben die grün gefärbte Spalte in Sheet 1 eingefügt werden.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
Dim i As String
Dim rngFound As Range
Dim Bereich As Range
i = Target.Value
Set Bereich = Worksheets("Palette1").Range("A1:A200")
If i = 0 Then
Exit Sub
End If
If WorksheetFunction.CountIf(Bereich, i) > 1 Then
Beep
MsgBox ("Item bereits gescannt!")
Exit Sub
End If
With Worksheets("Sheet1")
Set rngFound = .Columns("AH:AH").Find(what:=i, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFound Is Nothing Then
.Range(.Cells(rngFound.Row, "A"), .Cells(rngFound.Row, "AH")).Interior. _
ColorIndex = 4
Else
Beep
MsgBox ("Item wurde nicht gefunden!")
Exit Sub
End If
End With
End If
End Sub
Wäre schön, wenn mir jemand helfen könnte, stehe gerade echt auf dem Schlauch.
Mfg
Simon