Kommentar mit VBA in aktive Zelle einfügen

[Amsel]

Hallo 

ich möchte mit VBA Inhalte aus den Zellen A1:B4 mit VBA einfügen leider habe ich nicht die nötigen Kenntnisse dafür 
Bitte um Hilfe , wie ich es umsetzen könnte

Danke für eure Hilfe

[Frogger1986]

Bitte fertige eine Beispieldatei an mit Wunschergebnis!

[Amsel]

habe in ersten Beitrag ein Bildschirmfoto beigefügt.

Ich möchte die Inhalte aus den Zellen A1:B4 mit VBA in einer beliebigen aktiven Zelle als Kommentar einfügen.

[Frogger1986]

Code:

Sub Comment()

If ActiveCell.Comment Is Nothing Then ActiveCell.AddComment

Komentar1 = Sheets(1).Range("A1").Text & " " & Sheets(1).Range("B1").Text
Komentar2 = Sheets(1).Range("A2").Text & " " & Sheets(1).Range("B2").Text
Komentar3 = Sheets(1).Range("A3").Text & " " & Sheets(1).Range("B3").Text
Komentar4 = Sheets(1).Range("A4").Text & " " & Sheets(1).Range("B4").Text

ActiveCell.Comment.Text ("" & Komentar1 & Chr(10) & Komentar2 & Chr(10) & Komentar3 & Chr(10) & Komentar4 & Chr(10) & "")


End Sub

In ein Modul. In die Klammer hinter "sheets" die "1" gegen den Namen des Tabellenblatts mit den Daten die eingetragen werden sollen tauschen ...

[Amsel]

Danke für die schnelle Antwort

doch es klappt nicht so richtig.

Kommentarfeld wird in der aktiven Zelle eingefügt doch ohne Inhalt A1:B4

[Kuwer]

Hallo,

Sub aaa()
  Dim i As Long
  Dim strC As String
  Dim varC As Variant
  varC = Range("A1:B4").Value
  For i = 1 To 4
    strC = strC & varC(i, 1) & " " & varC(i, 2) & vbNewLine
  Next i
  With ActiveCell
    If .Comment Is Nothing Then
      .AddComment
    End If
    .Comment.Text strC
  End With
End Sub

Gruß Uwe

[Frogger1986]

Sheets("Liste")

da Fehlen die ""

[RPP63]

Moin!
Ich frage mich, was Du damit bezweckst, Amsel.
Schließlich ist die Lösung nicht dynamisch, eine Änderung in A1:B4 bewirkt ja keine automatische Anpassung des Kommentars.
Wenn ich die Intention kenne, könnte man evtl. Alternativen vorschlagen.

Gruß Ralf

[Amsel]

Besten Dank

funktioniert super