Doppelklick-Funktion erweitern
11.01.2018 12:54:51
thomas
ich hab da ein kleines Problem.
Und zwar habe ich eine Doppelklick- Funktion die auf jedes Tabellenblatt angewendet wird. Wenn ich in Spalte C in irgendeiner beschriebenen Zeile ein Doppelklick tätige, sucht er mir in allen anderen Blättern den selben Wert mit Eintrag in Spalte J. Nun möchte ich dies erweitern und hab einfach das letzte Tabellenblatt kopiert und umbenannt in "Januar18". Aber leider funktioniert die Doppelklick-Funktion nicht mehr im Janaur18, trotz Eintrag des Namen in den Makro. Bei den anderen funktioniert es noch.
Woran liegt das?
Hier der Makro:
Sub a(v)
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Sh, i&, j&, k&, f As Range, r As Range, ff$, t$
Sh = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", _
"August", "September", "Oktober", "November", "Dezember", "Januar18")
For i = 0 To 11
If Sh(i) = ActiveSheet.Name Then j = i
Next i
With Wb
For k = 0 To j
With .Worksheets(Sh(k))
Set r = .Range(.Cells(2, "C"), _
.Cells(.Rows.Count, "C").End(xlUp))
Set f = r.Find(what:=v, LookIn:=xlValues, lookat:=xlWhole)
If Not f Is Nothing Then
ff = f.Address
Do
t = t & Sh(k) & ": " & f.Value & "|" & f.Offset(, 7).Value & Chr(10)
Set f = r.FindNext(f)
Loop While Not f Is Nothing And f.Address ff
End If
End With
Next k
End With
If Not t = "" Then MsgBox t, vbInformation, "Vorkommen akt. Wert"
Set Wb = Nothing: Erase Sh: Set f = Nothing: Set r = Nothing
End Sub
Danke euch schonmal im Voraus.
Gruß Thomas