Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1272to1276
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
Inhaltsverzeichnis

Kommentare auslesen in eine einzufügende Spalte

Kommentare auslesen in eine einzufügende Spalte
Constantin
Hallo,
ich komme leider nicht so recht weiter: Ich möchte alle Kommentare nur aus der Spalte (der aktiven Tabelle), in der sich der Cursor gerade befindet, auslesen und rechts daneben schreiben. Dafür soll vorher eine neue (leere) Spalte eingefügt werden. Z.B.: Cursor steht auf A10, dann soll daneben eine neue Spalte eingefügt werden (Spalte B ist dann leer). Jetzt soll Spalte A von der zweiten Zeile beginnend bis zu der zuletzt genutzten Zelle durchlaufen werden, die Kommentare ausgelesen und in die Zelle daneben (in diesem Beispiel der Spalte B) geschrieben werden.
Für eure Hilfe wäre ich sehr dankbar.
Grüße, Constantin

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

Betreff
Benutzer
Anzeige
AW: Kommentare auslesen in eine einzufügende Spalte
24.07.2012 23:11:38
Josef

Hallo Constantin,
Sub readComments()
  Dim rngC As Range, rng As Range
  
  On Error Resume Next
  Set rngC = ActiveCell.EntireColumn.SpecialCells(xlCellTypeComments)
  On Error GoTo 0
  
  If Not rngC Is Nothing Then
    Columns(ActiveCell.Column + 1).Insert
    For Each rng In rngC.Cells
      rng.Offset(0, 1) = rng.Comment.Text
    Next
  End If
End Sub



« Gruß Sepp »

Anzeige
AW: Kommentare auslesen in eine einzufügende Spalte
24.07.2012 23:20:07
Constantin
Hallo Sepp,
funktioniert perfekt - vielen Dank für deine superschnelle Hilfe!
Grüße, Constantin
AW: Kommentare auslesen in eine einzufügende Spalte
24.07.2012 23:16:26
Beverly
Hi Constantin,
eine Möglichkeit:
Sub KommentareAusgeben()
Dim raZelle As Range
Columns(ActiveCell.Column + 1).Insert
For Each raZelle In Columns(ActiveCell.Column).SpecialCells(xlCellTypeComments)
raZelle.Offset(0, 1) = raZelle.Comment.Text
Next raZelle
End Sub


300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige