AW: Kommentar
06.11.2007 16:26:00
Andi
Hi,
folgendes Makro
- sucht in Tabelle2, Spalte A den Wert der in Tabelle1 eingegeben wurde, und schreibt den zugehörigen Wert aus Spalte B in den Kommentar
- Gibt eine Meldung aus, und schreibt "Keine Artikelnummer verfügbar" in den Kommentar, wenn die Eingabe nicht gefunden wird
- Löscht den Kommentar, wenn der Zellinhalt gelöscht wird.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Nummer As Range
Dim t As String
With Target
If .Value = "" Then
.Comment.Delete
Exit Sub
End If
If .Comment Is Nothing Then .AddComment
Set Nummer = Sheets("Tabelle2").Range("A:A").Find(Target.Value)
If Nummer Is Nothing Then
MsgBox "Keine Artikelnummer verfügbar"
.Comment.Text Text:="Keine Artikelnummer verfügbar"
Else
t = Nummer.Offset(0, 1).Value
.Comment.Text Text:=t
End If
End With
End Sub
Der Code gehört ins Modul von Tabelle1.
Ich hoffe, das passt so?
Schönen Gruß,
Andi