Office: Kommentare

Hallo

So angenommen A1 = 1 wenn A1 =1 dann soll in A1 ein Kommentar erscheinen mit dem Text aus z.B B20 wenn A1=2 dann aus B21 usw.

 

Hallo!

Das ist nur mit VBA möglich:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Target.ClearComments
Dim Kom As Comment
Set Kom = Target.AddComment
Kom.Text Range("B" & Target + 19).Text
End If
End Sub

Einfacher wäre es, wenn du die Zelle daneben als Kommentarzelle nutzt. Dann reicht die Formel
=INDEX(B20:B30;A1)
oder
=INDIREKT("B"&A1+19)

 

ok gut so klappt es echt gut aber ein problem gibt es wen ich jetzt in B20 einen anderen wert reinschreibe bleibt in dem Kommentar immer noch der alte wert stehen.

 

Und so?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1").ClearComments
Dim Kom As Comment
Set Kom = Range("A1").AddComment
Kom.Text Range("B" & Range("A1").Value + 19).Text
End Sub

 

Ja sehr gut so geht es ok jetzt noch meine letze frage da ich mich leider mit VBA nicht so gut auskenne. Wie ändere ich mir das makro wen ich z.B will das in A1:A20 alles ausgegeben wird was in C1:20 steht wen der wert stimmt?

 

Hallo!

Hä???
Verstehst du selbst, was du da geschrieben hast?
Ich leider nicht...

 

Hm ok hast recht blöd erklärt^^

 

Das sind ja jetzt wieder völlig andere Bereiche...

Ich glaube, das verstehe ich:
G = 7. Spalte
C = 3. Spalte

Das verstehe ich nicht, weil es nicht in das Schema von oben passt.

Das verstehe ich nun überhaupt nicht...

 

hm egal lassen wir das ist eh nicht so wichtig noch ne andere frage

Also in A1 steht z.b eine Zahl und ein Kommentar

wen ich jetzt in B2 schreibe =A1 übernimt die zelle nur den wert und nicht das Kommentar ist das irgendwie möglich das Kommentar mit zu übernehmen das würde meinem Problem auch schon mehr sehr helfen.

 

Formeln übernehmen NUR die Werte.
Zellformate und Kommentare (und alles andere, was es sonst noch gibt) können per Formel nicht übernommen werden.

 

OK alles klar vielen Dank!!