Du machst mich fertig, Luc :-) + neue Varianten...
12.03.2015 10:30:27
Michael
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
