Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1276to1280
1276to1280
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur Kommentare übertragen

Forumthread: Nur Kommentare übertragen

Nur Kommentare übertragen
Lutz
Hallo zusammen,
ich habe in einem anderen Forum folgenden Code gefunden: 
Public Sub CopyComment()
Dim objCell As Range
For Each objCell In Worksheets("Tabelle1").Cells.SpecialCells(xlCellTypeComments)
Worksheets("Tabelle2").Range(objCell.Address).Value = objCell.Comment.Text
Next
End Sub
Meines Verständnisse nach sucht der Code nach Zellen mit Kommentaren in Tabelle 1 und kopiert den Inhalt des Kommentares in die gleiche Zelle der Tabelle 2.
Kann man den Code dahingehend ändern, dass der komplette Kommentar übertragen wird. Also so dass die Kommentare aus Tabelle 1 auch in Tabelle 2 stehen?
Für Anregungen wäre ich euch sehr dankbar.
Ein schönen Sonntag und freundliche Güße
Lutz

Anzeige
AW: Nur Kommentare übertragen
09.09.2012 13:40:08
Hajo_Zi
Hallo Lutz,
Public Sub CopyComment()
Dim objCell As Range
For Each objCell In Worksheets("Tabelle1").Cells.SpecialCells(xlCellTypeComments)
Worksheets("Tabelle2").Range(objCell.Address).AddComment objCell.Comment.Text
Next
End Sub

Anzeige
AW: Nur Kommentare übertragen
09.09.2012 13:52:10
Hajo_Zi
Hallo Lutz,
und um den Fehler bei Wiederholung abzufangen. 
Public Sub CopyComment()
Dim objCell As Range
For Each objCell In Worksheets("Tabelle1").Cells.SpecialCells(xlCellTypeComments)
Worksheets("Tabelle2").Range(objCell.Address).Comment.Delete
Worksheets("Tabelle2").Range(objCell.Address).AddComment objCell.Comment.Text
Next
End Sub
Gruß Hajo

Anzeige
AW: Nur Kommentare übertragen
09.09.2012 15:16:13
Lutz
Hallo Hajo_Zi,
danke für die Hilfe!!! Eine Frage hätte ich dennoch:
Was muss ich abändern wenn Tabellen2 in einer anderen Datei steht?
Ich habs versucht indem ich einfach Workbooks ("abc.xlsm"). davor gesetzt habe. Aber das scheint nicht richtig zu sein.
Gruß Lutz

AW: Nur Kommentare übertragen
09.09.2012 15:34:01
Hajo_Zi
Hallo Lutz,
die Datei muss auf sein.
Gruß Hajo

Anzeige
AW: Nur Kommentare übertragen
09.09.2012 15:36:00
Lutz
Hallo Hajo,
die Datei ist geöffnet. Aber dennoch funktioniert es nicht. Hast du eine andere Idee woran es liegen könnte?
Gruß Lutz

AW: Nur Kommentare übertragen
09.09.2012 15:40:16
Hajo_Zi
Hallo Lutz,
Du hast es vor Worksheets("Tabelle2") kopiert und es gibt auch eine Tabelle mit dem Namen Tabelle2?
Gruß Hajo

Anzeige
AW: Nur Kommentare übertragen
09.09.2012 15:46:08
Lutz
Hallo Hajo,
2-mal ja. Siehe selbst:
Workbooks("abc.xlsm").Worksheets("Tabelle2").Range(objCell.Address).AddComment objCell.Comment.Text
Aber es funzt nicht!?
Gruß Lutz

AW: Nur Kommentare übertragen
09.09.2012 15:50:17
Hajo_Zi
Hallo Lutz,
ich kann nicht auf Deinen Rechner schaue. Bei mir geht es. 
Public Sub CopyComment()
Dim objCell As Range
For Each objCell In Worksheets("Tabelle1").Cells.SpecialCells(xlCellTypeComments)
On Error Resume Next
Worksheets("Tabelle2").Range(objCell.Address).Comment.Delete
Workbooks("Fernsehen.xlsx").Worksheets("Tabelle2").Range(objCell.Address).AddComment  _
objCell.Comment.Text
Next
On Error GoTo 0
End Sub

Die Datei mit den Kommentaren ist die aktive?
Gruß Hajo

Anzeige
AW: Nur Kommentare übertragen
09.09.2012 16:07:46
Lutz
Hallo Hajo,
hier mal mein Code: 
Public Sub CopyComment()
Dim x As Long
Dim objCell As Range
Dim arrDatei(1 To 4) As String
arrDatei(1) = "Planung HA.xls"
arrDatei(2) = "Planung BE.xls"
arrDatei(3) = "Planung KF.xls"
arrDatei(4) = "Planung MÜ.xls"
For x = 1 To 4
Windows(arrDatei(x)).Activate
For Each objCell In Worksheets("Tabelle2").Cells.SpecialCells(xlCellTypeComments)
Workbooks("abc.xlsm").Worksheets("Tabelle2").Range(objCell.Address).AddComment objCell. _
Comment.Text
Next
Next x
End Sub
Dabei soll aus den Dateien "Planung.." alle Kommentare in die Datei abc übertragen werden. Die Kommentare stehen bei allen Dateien in Tabelle 2 und sollen auch bei Datei "abc" in Tabelle 2.
Siehst du den Fehler?
Gruß Lutz

Anzeige
AW: Nur Kommentare übertragen
09.09.2012 13:41:54
Tino
Hallo,
vielleicht geht es so, evtl.Tabelle Quelle und Ziel noch anpassen.
Sub Copy_Comments()
Dim objCommentar As Comment

With Application
    .ScreenUpdating = False
    .EnableEvents = False
    
        For Each objCommentar In Tabelle1.Comments 'Tabelle Quelle anpassen 
            With objCommentar.Parent
                .Copy
                'Tabelle Ziel anpassen 
                Tabelle2.Cells(.Row, .Column).PasteSpecial Paste:=xlPasteComments
            End With
        Next objCommentar
    
    .CutCopyMode = False
    .EnableEvents = True
    .ScreenUpdating = True
End With

End Sub
Gruß Tino
Anzeige
;

Forumthreads zu verwandten Themen

in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Funktion Säubern ins Makro einbinden
Steven

Hallo Leute,
wie kann ich per Makro meine Artikelnummern in Spalte A (mit Überschrift) von ungewollten Importüberbleibseln (Oracle) säubern, so dass am Ende reine Nummern in Spalte A über bleiben.
(Ich weiss nicht ob es dabei wichtig ist, dass die Spalte vorher sortiert wurde. Damit hab...
22.02.2009 12:07:47
Thread-ID: 1052801
5 Beiträge
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Per VBA : Erreichbarkeit von Hyperlinks überprüfen
Hyperlinks

Hallo Leute,
ich habe eine Excel-Tabelle mit zahlreichen Hyperlinks ins WWW (diverse unterschiedliche URLs), z.B. :
http://www.irgend-eine-seite.com/forum/Beitrag4711.php
http://was-soll.das/?
http://www.meinebank.ru/konto/nepper/schlepper/Bauernfaenger.asp
http://www.abc...
25.06.2009 12:50:10
Thread-ID: 1084301
8 Beiträge
Makroauführung über Menü verhindern
Heiko

hallo alle,
ich lasse über subs bereiche meines tabellenbattes sperren/ bzw. entsperren. das funktioniert auch ganz gut, nur besteht für den anwender über extras - makro ausführen noch die möglichkeit das entsperr-sub ausführen zu lassen.
wie kann ich das verhindern?
heiko
29.06.2009 10:01:13
Thread-ID: 1085027
3 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Unterscheidung Drucken über Menü und Sofortdruck
Rolli_69

Hallo Forum,
ich hoffe einer von Euch kann mir helfen.
Ich habe in VBA den Druckenbefehl abgefangen, um farblich hinterlegte Eingabefelder vor dem Druck
wieder farblos zu machen und anschliessend wieder farblich zu hinterlegen.
Das funzt auch, nur möchte ich jetzt noch dem User...
01.07.2009 17:53:42
Thread-ID: 1085798
4 Beiträge
Anzeige
CheckBox in liste übertragen
Werner

Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZE...
06.07.2009 11:46:47
Thread-ID: 1086568
3 Beiträge
Verknüpfungen über DropDown ändern
Tanja

Hallöchen zusammen,
ich bin's nochmal :)
Ich habe nun ein erneutes Problem:
Ich habe Excel-Dateien, die ich in mein Excel-Sheet verknüpft habe (über Index und Vergleich).
Nun möchte ich diesen Dateien gerne ein bestimmtes Datum zuordnen und (habe mir über AutoFilter ein DropDown...
07.07.2009 16:24:18
Thread-ID: 1086979
7 Beiträge
Eingebettetes Word Objekt über Excel ansprechen
Tobias

Hallo zusammen,
ich habe eine Frage. Ich habe in einem Excel Sheet ein Word Objekt eingebettet (also über Insert -> Object -> Word 2003 Dokument)
Nun habe ich da einen Text eingefügt. Jetzt möchste ich allerdings eine bestimmte Stelle mit der Replace Funktion überschreiben.
Ö...
07.07.2009 17:22:31
Thread-ID: 1086986
2 Beiträge
Termine per Makro an Outlook übertragen
Alex

Hallo,
könnt ihr mir bitte helfen, wie ein Makro aussehen muss, das per Knopfdruck Termine aus einer Excel-Tabelle nach Outlook überträgt?
Vielen Dank für Eure Hilfe
Alex
08.07.2009 23:33:21
Thread-ID: 1087285
2 Beiträge
Rücksprung über Button
HansP

Hallo!
Wie kann ich in VBA ein Fenster mit 2 Button erzeugen, bei dem der Button einen Rücksprung auf eine bestimmte Funktion / Marke auslöst bzw. der andere Button das Makro normal weiter laufen lässt?
Also sowas wie: Druck OK? Ja / Nein
JA = Goto Ende
Nein = Goto Druck
16.07.2009 14:10:29
Thread-ID: 1089063
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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