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
Bitte fertige eine Beispieldatei an mit Wunschergebnis!
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.
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 ...
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
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
Sheets("Liste")
da Fehlen die ""
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
Besten Dank
funktioniert super