Kommentar per VBA, wenn bestimmte Bedingung erfüllt

04/09/2007 - 11:30 von Johnny Hartmannsgruber | Report spam
Hallo,

ich habe folgendes Problem:

Im Blatt "quelle" gibt es die Spalte F "Best EK" - der Inhalt kommt per
WENN-Formel aus den Spalten P, Q oder R in denen verschiedene EK's stehen
Je nachdem welche der 3 Spalten den günstigsten Preis beinhaltet, wird in F
eingetragen...

jetzt hàtte ich gerne,daß in "Best EK" ein Kommentar erstellt wird, in dem
ich sehe: der inhalt der zelle kommt beispielsweise aus Spalte Q - damit ich
sehe woher der Preis stammt...

kann man sowas realisieren?
Danke, Johnny
 

Lesen sie die antworten

#1 Claus Busch
04/09/2007 - 12:35 | Warnen spam
Hallo Johnny,

Am Tue, 4 Sep 2007 02:30:02 -0700 schrieb Johnny Hartmannsgruber:

Im Blatt "quelle" gibt es die Spalte F "Best EK" - der Inhalt kommt per
WENN-Formel aus den Spalten P, Q oder R in denen verschiedene EK's stehen
Je nachdem welche der 3 Spalten den günstigsten Preis beinhaltet, wird in F
eingetragen...

jetzt hàtte ich gerne,daß in "Best EK" ein Kommentar erstellt wird, in dem
ich sehe: der inhalt der zelle kommt beispielsweise aus Spalte Q - damit ich
sehe woher der Preis stammt...



probiers mal so im Codemodul des entsprechenden Arbeitsblattes:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim strComment As String

If Intersect(Target, Range("F:F")) Is Nothing _
Then Exit Sub

Select Case Target.Value
Case Is = Target.Offset(0, 10).Value
strComment = "Wert aus Spalte P"
Case Is = Target.Offset(0, 11).Value
strComment = "Wert aus Spalte Q"
Case Is = Target.Offset(0, 12).Value
strComment = "Wert aus Spalte R"
End Select

If Target.Comment Is Nothing Then
Target.AddComment strComment
Else
Target.Comment.Delete
Target.AddComment strComment
End If

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen