Frage an EtoPHG
21.11.2006 20:26:20
Marko
diesen Sub hast du mir erstellt
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vFound As Variant
If Target.Column <> 2 Then Exit Sub
On Error Resume Next
Target.AddComment (Sheets("Tally-Liste").Cells(Application.WorksheetFunction.Match(Target.Value, Sheets("Tally-Liste").Range("B2:B1000"), 0) + 1, 2).Comment.Text)
End Sub
und den hier hab ich nun selbst erstellt (also mit informationen aus deinem und dem was ich schon auf der seite gelesen habe die du mir geschickt hast)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vFound As Variant
If Target.Column <> 3 Then Exit Sub
On Error Resume Next
Target.AddComment (.Cells(Application.WorksheetFunction.Match(Target.Value, .Range("L2:L700"), 0) + 1, 12).Comment.Text)
End Sub
beide funktionieren ja auch super in verschiedenen arbeitsmappen
aber wie muss das aussehen wenn nun beide funktionen in einer liste verwenden möchte?
gruß marko