Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kommentar auslesen und in eine Zelle übertragen

Forumthread: Kommentar auslesen und in eine Zelle übertragen

Kommentar auslesen und in eine Zelle übertragen
07.11.2002 18:51:54
NorbertK
Hallo Excelexperten,

ich doktere schon seit Tagen an dem Problem herum,
den Inhalt eines Kommentars (z.B. ein String) in eine
Zelle das gleiche oder eines anderen Arbeitsblatts
als String, Text o. Variant zu übertragen. Hab's mit
den Beispielen aus der neuesten Herber- Excel-CD probiert,
allerdings ohne Erfolg.
Beispiel:
In Zelle C1 steht als Kommentar "Bla Bla".
Wie kommt dieser Text mit VBA nach z.B. E1 ????

Möglicherweise liegt die Lösung - wie häufig nur einen Mausklick entfernt oder in einer Programmzeile.

Wer kann mir helfen??

fast verzweifelt NorbertK

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Kommentar auslesen und in eine Zelle übertragen
07.11.2002 19:14:41
Franz

Sub KommentarÜbertragen()
Dim Kom As Comment
Range("A3").Select ' In Zelle A3 soll der Kommentar übertragen werden
Set Kom = ActiveCell.AddComment
Kom.Text Range("A1").Comment.Text ' In A1 steht der Kommentar
End Sub

[E1] = [C1].Comment.Text
07.11.2002 19:20:21
andre
...
gruss andre
Prima Lösung
07.11.2002 21:02:02
NorbertK
Vielen Dank an Franz!!!!
Eine für mich optimale Lösung sieht aufgrund deines Hinweises jetzt so aus:

Sub KommentarÜbertragen()

Dim Kom As Comment
Worksheets("Tabelle1").Cells(3, 1).Select
Set Kom = ActiveCell.Comment
Worksheets("Tabelle1").Cells(5, 1).Value = Worksheets_("Tabelle1").Cells(3, 1).Comment.Text

End Sub

Anzeige
Re: Prima Lösung
08.11.2002 05:40:56
andre
Hallo Norbert,
für kurzen code:
die ersten 3 Zeilen kannst Du weglassen
es reicht die Zeile mit Worksheets...
(ist analog meinem Vorschlag [c3]=...)
gruss andre
Re: [E1] = [C1].Comment.Text
08.11.2002 18:30:19
NorbertK
Hallo andre

Einwand statt gegeben, Euer Ehren!

Für Schleifendurchläufe brauche ich aber die
"Cells"-Version.

Nochmal vielen Dank
Gruß NorbertK

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Kommentare in Excel auslesen und in Zellen übertragen


Schritt-für-Schritt-Anleitung

Um Kommentare in Excel auszulesen und in eine Zelle zu übertragen, kannst Du VBA (Visual Basic for Applications) nutzen. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (deinArbeitsblattname)" und wähle Einfügen > Modul.
  3. Gib den folgenden VBA-Code ein:

    Sub KommentarÜbertragen()
       Dim Kom As Comment
       Set Kom = Worksheets("Tabelle1").Cells(3, 1).Comment
       Worksheets("Tabelle1").Cells(5, 1).Value = Kom.Text
    End Sub
    • Dieser Code überträgt den Kommentar aus Zelle C1 (A1 in der Zählung) in Zelle E1 (A5 in der Zählung).
  4. Führe das Makro aus:

    • Du kannst das Makro ausführen, indem Du im VBA-Editor auf F5 drückst oder das Makro über Excel startest.

Damit kannst Du Kommentare in Zellen ausgeben und auch Excel-Kommentare in Zellen übertragen.


Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden"

    • Stelle sicher, dass der Kommentar in der angegebenen Zelle tatsächlich vorhanden ist. Wenn die Zelle keinen Kommentar hat, tritt dieser Fehler auf.
  • Fehler: "Typen sind nicht kompatibel"

    • Achte darauf, dass Du den richtigen Zellbereich angibst. Zum Beispiel sollte der Kommentar aus einer Zelle stammen, die tatsächlich einen Kommentar enthält.

Alternative Methoden

Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du auch folgende Methoden ausprobieren:

  • Formel zur Anzeige von Kommentaren: Leider gibt es keine eingebaute Excel-Formel, um Kommentare direkt auszulesen. Stattdessen kannst Du die Kommentare manuell in die Zellen kopieren oder VBA verwenden, um dies automatisch zu erledigen.

  • Excel-Add-Ins: Es gibt verschiedene Excel-Add-Ins, die es ermöglichen, Kommentare effizienter zu verwalten und auszulesen.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du Kommentare in Excel verwenden kannst:

  1. Einfügen eines Kommentars:

    Sub KommentarEinfügen()
       Worksheets("Tabelle1").Cells(1, 1).AddComment "Dies ist ein Kommentar."
    End Sub
  2. Übertragen mehrerer Kommentare: Wenn Du mehrere Kommentare auslesen und in eine Liste übertragen möchtest, kannst Du eine Schleife verwenden:

    Sub KommentareÜbertragen()
       Dim i As Integer
       For i = 1 To 10
           Worksheets("Tabelle1").Cells(i + 1, 2).Value = Worksheets("Tabelle1").Cells(i, 1).Comment.Text
       Next i
    End Sub

Tipps für Profis

  • Schleifen und Arrays nutzen: Um effizienter mit vielen Zellen zu arbeiten, nutze Schleifen und Arrays, um Kommentare zu durchsuchen und in eine neue Zelle zu schreiben.

  • Fehlerbehandlung einfügen: Verwende On Error Resume Next, um Fehler zu ignorieren und das Skript reibungsloser auszuführen.

  • Dokumentation: Kommentiere deinen Code, um die Funktionalität zu erklären, besonders wenn Du ihn mit anderen teilst.


FAQ: Häufige Fragen

1. Wie kann ich Kommentare in Zellen suchen?
Du kannst VBA verwenden, um alle Kommentare durchzugehen und sie in einer Liste auszugeben. Eine einfache Schleife kann dabei helfen.

2. Kann ich Kommentare auch in Formeln verwenden?
Direkt in Formeln ist das nicht möglich. Du kannst jedoch VBA verwenden, um die Kommentare in Zellen zu übertragen, die dann in Formeln verwendet werden können.

3. Wie übertrage ich Kommentare aus mehreren Blättern?
Du kannst eine Schleife einfügen, die durch alle Arbeitsblätter iteriert und die Kommentare entsprechend überträgt.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige