ich habe eine Tabelle mit Kommentaren im Bereich "G7:AK91". Ich möchte jetzt gerne alle Kommentare, aus diesem Bereich, als Text auslesen und in eine vorhandene Worddatei Namens "Auswertung" übergeben. Wer kann mir helfen?
Gruß Dirk
ich habe eine Tabelle mit Kommentaren im Bereich "G7:AK91". Ich möchte jetzt gerne alle Kommentare, aus diesem Bereich, als Text auslesen und in eine vorhandene Worddatei Namens "Auswertung" übergeben. Wer kann mir helfen?
Gruß Dirk
Mit nachstehendem Makro sollten alle Kommentare aus Blatt 1 in das 2. Tabellenblatt in Spalte A untereinander eingetragen werden.
Wenn du es in der Tabelle hast, kannst du es auch nach Word übernehmen.
Den direkten Weg von Excel in Word kenn ich leider nicht.
Gruss
Chris
On Error Resume Next
For i = 7 To 91
For ii = 7 To 37
zeilennr = Sheets(2).Range("A65536").End(xlUp).Row + 1
Sheets(2).Cells(zeilennr, 1) = Sheets(1).Cells(i, ii).Comment.Text
Next ii
Next i
sowas in der Art sollte funktionieren:
Sub KommentareInWordausgeben()
Dim WD As Object
Dim Bereich As Range
Dim notiz As Comment
Dim zelle As Range
Set Bereich = Sheets("Tabelle1").Range("B3:F13")
Set WD = CreateObject("Word.Application")
WD.Documents.Open "D:\Eigene Dateien\Auswertung.Doc"
WD.Visible = True
For Each notiz In ActiveSheet.Comments
WD.Selection.TypeText Text:=notiz.Text
Next notiz
WD.Application.Quit (True)
Set WD = Nothing
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Jetzt neu: Excel-VBA in 21 Tagen, neue FAQs und Makros unter: http://held-office.de
das Makro klappt super.
Was muß ich noch eingeben um die Kommentare, in dem Dokument, untereinander aufzulisten?
Sub KommentareInWordausgeben()
Dim WD As Object
Dim Bereich As Range
Dim notiz As Comment
Dim zelle As Range
Set Bereich = Sheets("Tabelle1").Range("B3:F13")
Set WD = CreateObject("Word.Application")
WD.Documents.Open "D:\Eigene Dateien\Auswertung.Doc"
WD.Visible = True
For Each notiz In ActiveSheet.Comments
WD.Selection.TypeText Text:=notiz.Text
Next notiz
WD.Application.Quit (True)
Set WD = Nothing
End Sub
Jetzt schon mal danke.
Gruß Dirk