Ich möchte alle Kommentare einer Zeile in Excel auslesen und in eine Zelle eines anderen Blattes einfügen lassen.
Zum Beispiel Kommentare von Tabelle1 A1-H1 auslesen und in Tabelle2 Zelle A1 einfügen. Mit VBA ist das bestimmt möglich, ich weiß aber nicht wie!
Für Hilfe wäre ich sehr dankbar
Klaus
Ich möchte alle Kommentare einer Zeile in Excel auslesen und
in eine Zelle eines anderen Blattes einfügen lassen.
Zum Beispiel Kommentare von Tabelle1 A1-H1 auslesen und in
Tabelle2 Zelle A1 einfügen. Mit VBA ist das bestimmt möglich,
ich weiß aber nicht wie!
Hallo Klaus,
sollen alle vorhandenen Kommentare in Tab2!A1 rein?
Oder soll der aus Tab1!A1 in Tab2!A1 erscheinen,
der aus Tab1!C1 in Tab2!C1 erscheinen,
der aus Tab1!F1 in Tab2!F1 erscheinen,
usw., und wo kein Kommentar ist erscheint nix?
Oder soll, wenn insgesamt in Tab1!A1-H1 nur 3 kommentare sind, die halt in Tab2!A1:C1 gelistet werden?
Gruß
Reinhard
Alle vorhandenen Kommentare aus der zeile sollen in die eine Zelle eingefügt werden!
PS: Das ging aber schnell:smile:
Klaus
Alle vorhandenen Kommentare aus der zeile sollen in die eine
Zelle eingefügt werden!
Hallo Klaus,
naja, bißchen unsauber, aber klappt
Sub tt()
Dim Spa As Long, Zelle As Range
Set Zelle = Worksheets("Tabelle2").Range("A1")
Zelle.ClearContents
On Error Resume Next
With Worksheets("Tabelle1")
For Spa = 1 To 8
Zelle = Zelle & IIf(Len(Zelle) \> 0, Chr(10), "") & .Cells(1, Spa).Comment.Text
Next Spa
End With
End Sub
Gruß
Reinhard