Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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


Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Kommentare auslesen und in eine neue Spalte übertragen


Schritt-für-Schritt-Anleitung

Um Excel-Kommentare in eine neue Zelle zu übertragen, kannst Du den folgenden VBA-Code verwenden. Dieser Code liest Kommentare aus der aktiven Spalte aus und gibt sie in der danebenliegende Spalte aus.

  1. Öffne Deine Excel-Datei und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden Code in das Modul:

    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
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Setze den Cursor auf die Zelle in der Spalte, aus der Du die Kommentare auslesen möchtest.

  6. Drücke ALT + F8, wähle readComments und klicke auf Ausführen. Die Kommentare werden jetzt in die angrenzende Spalte übertragen.


Häufige Fehler und Lösungen

  • Fehler: „Laufzeitfehler 1004“
    Ursache: Es gibt keine Kommentare in der gewählten Spalte.
    Lösung: Stelle sicher, dass die aktive Spalte mindestens einen Kommentar enthält.

  • Fehler: „Kein gültiger Zellbereich“
    Ursache: Die aktive Zelle ist außerhalb des Datenbereichs.
    Lösung: Wähle eine Zelle innerhalb des verwendeten Bereichs der Tabelle aus.


Alternative Methoden

Falls Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die Excel-Formel verwenden, um Kommentare auszulesen. Allerdings ist dies in Excel nicht direkt möglich, da es keine integrierte Funktion für das Auslesen von Kommentaren gibt. VBA ist hier die beste Wahl.

Eine Möglichkeit, um Kommentare in Notizen umzuwandeln, wäre, die Kommentare manuell zu kopieren und sie in eine separate Spalte einzufügen.


Praktische Beispiele

Hier sind zwei praktische Beispiele:

  1. Kommentare aus einer Spalte auslesen und in die nächste Spalte schreiben
    Wenn Du in Spalte A Kommentare hast und der Cursor auf A1 steht, wird Spalte B geleert und die Kommentare aus A werden in B eingefügt.

  2. Kommentare in eine neue Tabelle übertragen
    Du kannst den VBA-Code leicht anpassen, um die Kommentare in eine neue Tabelle zu schreiben, indem Du Worksheets("DeinTabellenname").Cells(...) verwendest.


Tipps für Profis

  • Nutze die Funktion xlCellTypeComments in VBA, um gezielt Kommentare auszulesen und sie in eine neue Zelle zu schreiben.
  • Wenn Du oft mit Kommentaren arbeitest, erstelle eine benutzerdefinierte Funktion, um den Prozess zu automatisieren.
  • Überlege, Deine Excel-Kommentare in Notizen umzuwandeln, um die Übersichtlichkeit zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich Excel-Kommentare in Zellen übertragen?
Du kannst die oben angegebene VBA-Methode verwenden, um Kommentare in die angrenzenden Zellen zu übertragen.

2. Kann ich Excel-Kommentare in eine andere Arbeitsmappe übertragen?
Ja, indem Du den Code anpasst, um auf die entsprechende Arbeitsmappe zuzugreifen.

3. Gibt es eine Möglichkeit, Kommentare mit einer Formel auszulesen?
Leider unterstützt Excel keine direkte Formel dafür. VBA ist die effektive Methode, um Kommentare auszulesen und in Zellen zu schreiben.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige