Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kommentare exportieren

Kommentare exportieren
27.02.2004 16:30:18
Matthias Keck
Hallo,
ich habe eine sehr große Tabelle, wo auch ziemliche viele Kommentare
enthalten sind.
Mein Problem ist, wie kann ich samtliche Kommentare aus der Exceltabelle
rausexportieren und in ein normales Textfeld einfügen...
MfG
Matthias

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentare exportieren
27.02.2004 17:14:31
Alex K.
Hallo Matthias,
hier mal eine Lösung. Diese löscht die Kommentare im aktiven Tabellenblatt und schreibt diese in ein extra angelegtes Blatt "Kommentare".

Public Sub KommentExport()
Dim comSh       As Worksheet
Dim actSh       As Worksheet
Dim comRng      As Range
Dim comCell     As Range
Dim row         As Long
On Error Resume Next
Set actSh = ActiveSheet
Set comSh = ActiveWorkbook.Sheets.Add
comSh.Name = "Kommentare"
If Err.Number <> 0 Then
Err.Clear
comSh.Name = "Kommentare " & Format(Now(), "hh-nn-ss")
End If
With comSh
Set comRng = actSh.UsedRange.SpecialCells(xlCellTypeComments)
If comRng Is Nothing Then
Exit Sub
End If
.Cells(1, 1) = "Kommentare aus Zelle"
.Cells(1, 2) = "Kommentar"
.Range("A1:B1").Columns.AutoFit
.Range("B1").ColumnWidth = 60
row = 2
For Each comCell In comRng
.Cells(row, 1).Value = comCell.Address(False, False)
.Cells(row, 2).Value = comCell.Comment.Text
'ersteinmal testen, und wenn alles klappt, dann in der folgenden
'Zeile das Hochkomma entfernen. Dann werden die Kommentare gelöscht
'comCell.Comment.Delete
row = row + 1
Next comCell
End With
End Sub

Anzeige
AW: Kommentare exportieren
27.02.2004 17:22:38
Matthias Keck
hat Sich erledigt... :-)
AW: Kommentare exportieren
27.02.2004 17:29:48
Matthias Keck
Danke Alex...
Hab aber schon ne Lösung gefunden... 


Sub SplitComments()
Dim cmt As Comment
Dim iRow As Integer
For iRow = 1 To WorksheetFunction.CountA(Columns(3))
Set cmt = Cells(iRow, 3).Comment
If Not cmt Is Nothing Then
Cells(iRow, 4) = Cells(iRow, 3).Comment.Text
Cells(iRow, 3).Comment.Delete
End If
Next iRow
End Sub



Sub a()
Range("A1").comm
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige