VBA Kommentar aus Bereich einer Tabelle schreiben

Timonski · 2015-03-11T16:29:49+00:00

Hallo, ich will von einem anderen Tabellenblatt, einen bestimmten Bereich z.B. A1:C20 in eine bestimmte Zelle (hier A1) als Kommentar reinschreiben... hab auch schon mal was gefunden und was geändert, aber der Bereich bekomm ich nicht hin :-) Sub MyComment() Dim myCom As Comment Dim myText As String On Error Resume Next myText = Worksheets("Tabelle2").Cells(1, 1) ' Hier soll der Bereich stehen Cells(1, 1).Comment.Delete Set myCom = Cells(1, 1).AddComment With myCom .Visible = False .Text Text:=myText .Shape.LockAspectRatio = msoFalse .Shape.TextFrame.AutoSize = True End With End Sub vielleicht weiß ja jemand ne Lösung :-) Danke Timonski

Hallo und schönen Vormittag!
Zunächst @ Luc:
Du machst mich fertig; gibt es eine Uhrzeit, zu der Du _nicht_ im Forum aktiv bist? Hut ab, das übersteigt meine Möglichkeiten!
Aber wer oder was hindert dich, den tabellenähnlich zu formatieren?
Ich bin ein grundfauler Mensch; für VBA hab ich mich interessiert, weil es mir Arbeit abnehmen kann - und bei gewissen Projekten bin ich mir nicht sicher ob sich der Aufwand rentiert... ¯\_(ツ)_/¯
Aber Du hast es geschafft, dass ich mich dennoch mit neuen Varianten beschäftigt habe, daher
@ Timonski (hpts.) und alle die den Faden mitverfolgen:
Den Vorschlag von Daniel (verknüpftes Bild statt Kommentar) habe ich einmal so umgesetzt

Sub BereichAlsKommentar()
'Bereichwerte als verknüpftes Bild
Dim Bereich As Range
Set Bereich = Worksheets("Tabelle1").Range("A1:C20")
Select Case Worksheets("Tabelle1").Shapes.Count
Case Is > 0
Worksheets("Tabelle1").Shapes(1).Visible = Not Worksheets("Tabelle1").Shapes(1). _
Visible
Case Else
Bereich.Copy
Worksheets("Tabelle1").Range("E1").Select
Worksheets("Tabelle1").Pictures.Paste(Link:=True).Select
Selection.Placement = xlFreeFloating
Application.CutCopyMode = False
End Select
End Sub

Den Vorschlag von Luc (ja, auch ich kenne noch die vorchristlichen Tabellenausdrucke :-) ) habe ich jetzt so hingebracht

Sub BereichAlsKommentar()
'Bereichwerte mit Tabulatortrennung in Kommentar
Dim Bereich As Range
Dim EndSpalte As Long
Dim Zelle As Object
Dim Zelltext As String
Set Bereich = Worksheets("Tabelle1").Range("A1:C20")
EndSpalte = Bereich.Columns.Count
On Error Resume Next
Worksheets("Tabelle1").Range("A1").Comment.Delete
For Each Zelle In Bereich
Select Case Zelle.Column
Case Is = EndSpalte
Zelltext = Zelltext & " " & Zelle.Text & vbCrLf
Case Else
Zelltext = Zelltext & " " & Zelle.Text & "       "
End Select
Next
With Worksheets("Tabelle1").Range("A1").AddComment
.Visible = False
.Text Zelltext
End With
End Sub

Hier hatte ich meine Probleme mit "echten" Tabulatoren - ist also eher ein Workaround.
Die Variante über Word konnte ich bisher nicht realisieren - dafür bin ich Word-VBA noch nicht versiert genug; wenn ich noch Zeit finde, reich ich ggf. nach.
@ Timonski: Rückmeldung (an ALLE, die hier tolle Lösungen bieten) ist wünschenswert.
LG
Michael

Timonski,
...daher liefere ich natürlich auch noch die Größenanpassung gerne nach. Hier der ergänzte Code:

Sub BereichAlsKommentar()
'Bereichwerte mit Tabulatortrennung in Kommentar
Dim Bereich As Range
Dim EndSpalte As Long
Dim Zelle As Object
Dim Zelltext As String
Set Bereich = Worksheets("Tabelle1").Range("A1:C20")
EndSpalte = Bereich.Columns.Count
On Error Resume Next
Worksheets("Tabelle1").Range("A1").Comment.Delete
For Each Zelle In Bereich
Select Case Zelle.Column
Case Is = EndSpalte
Zelltext = Zelltext & " " & Zelle.Text & vbCrLf
Case Else
Zelltext = Zelltext & " " & Zelle.Text & "       "
End Select
Next
With Worksheets("Tabelle1").Range("A1").AddComment
.Visible = False
.Text Zelltext
End With
With Worksheets("Tabelle1").Range("A1").Comment.Shape.TextFrame
.AutoSize = True
End With
End Sub

Hoffe jetzt klappt alles, wie gewünscht. Vielen Dank für Deine äußerst nette Rückmeldung! Da macht Helfen Spaß!
LG
Michael

VBA Kommentar aus Bereich einer Tabelle schreiben

Forumthread: VBA Kommentar aus Bereich einer Tabelle schreiben

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA Kommentar aus Bereich einer Tabelle schreiben

Forumthread: VBA Kommentar aus Bereich einer Tabelle schreiben

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread