Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kommentare mit VBA übertragen
zurück: Adaptiver VBA-Code nach Zeilen-Einfügen weiter: Anwendungs- oder objektdefinierter Fehler Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Stivler
Excel-Kenner (ohne VBA)


Verfasst am:
31. Jan 2013, 12:45
Rufname:

Kommentare mit VBA übertragen - Kommentare mit VBA übertragen

Nach oben
       Version: Office 2010

Hallo Leute,

ich arbeite an einem Fragebogen, wobei alle Tabellenblätter vom Inhalt nahezu gleich sind. Als Ausfüllhilfe habe ich in bestimmten Zellen eines Tabellenblatts Kommentare hinterlegt. Alle Kommentare sollen nun auf die verbleibenden Fragebögen (Tabellenblätter) übertragen werden.

Sprich:
Kommentar aus Tabellenblatt "1" Zelle "H3" soll nach
Tabellenblatt "2" Zelle "H3"
Tabellenblatt "3" Zelle "H3"
Tabellenblatt "4" Zelle "H3"
...
Kommentar aus Tabellenblatt "1" Zelle "J3" soll nach
Tabellenblatt "2" Zelle "J3"
Tabellenblatt "3" Zelle "J3"
Tabellenblatt "4" Zelle "J3"
...

Ich hoffe ihr könnt mir weiterhelfen.
Phelan XLPH
Fortgeschritten


Verfasst am:
31. Jan 2013, 13:18
Rufname: Phelan


AW: Kommentare mit VBA übertragen - AW: Kommentare mit VBA übertragen

Nach oben
       Version: Office 2010

Hallo,

es wird die Komplette Zelle mit dem Kommentar kopiert.

Code:
Sub x()
   Dim com As Comment
   Dim ws As Worksheet
   Dim wsQuelle As Worksheet
   
   Set wsQuelle = Worksheets("Tabelle4") ' Anpassen
   
   For Each ws In Worksheets
      If Not ws Is wsQuelle Then
         For Each com In wsQuelle.Comments
            com.Parent.Copy ws.Range(com.Parent.Address)
         Next
      End If
   Next
End Sub
Stivler
Excel-Kenner (ohne VBA)


Verfasst am:
31. Jan 2013, 13:27
Rufname:

AW: Kommentare mit VBA übertragen - AW: Kommentare mit VBA übertragen

Nach oben
       Version: Office 2010

Danke für die schnelle Antwort.
Leider zeigt er mir beim ausführen des Makros einen Fehler an.

"Laufzeitfehler 1004 Kann Teil einer verbundenen Zelle nicht ändern."

Im Debugger zeigt er mir folgende Zeile als Problem an:

com.Parent.Copy ws.Range(com.Parent.Address)

Die Zellen die Kommentare enthalten sind teilweise verbunden, könnte dass die Ursache des Problems sein?
Phelan XLPH
Fortgeschritten


Verfasst am:
31. Jan 2013, 14:33
Rufname: Phelan

AW: Kommentare mit VBA übertragen - AW: Kommentare mit VBA übertragen

Nach oben
       Version: Office 2010

Code:
Sub x()
   Dim com As Comment
   Dim ws As Worksheet
   Dim wsQuelle As Worksheet
   
   Set wsQuelle = Worksheets("Tabelle4") ' Anpassen
   
   For Each ws In Worksheets
      If Not ws Is wsQuelle Then
         For Each com In wsQuelle.Comments
            With ws.Range(com.Parent.Address)
               If Not .Comment Is Nothing Then .Comment.Delete
               .AddComment com.Text
            End With
         Next
      End If
   Next
End Sub
Stivler
Excel-Kenner (ohne VBA)


Verfasst am:
31. Jan 2013, 14:40
Rufname:


AW: Kommentare mit VBA übertragen - AW: Kommentare mit VBA übertragen

Nach oben
       Version: Office 2010

Funktioniert einwandfrei Danke Smile
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Zellwert und Format mit Formel übertragen 1 Gast 3280 28. Okt 2008, 17:01
Thomas Ramel Zellwert und Format mit Formel übertragen
Keine neuen Beiträge Excel Formeln: Jeden x. Wert aus Tabellenblatt übertragen 2 beachbox 913 07. Aug 2008, 10:55
beachbox Jeden x. Wert aus Tabellenblatt übertragen
Keine neuen Beiträge Excel Formeln: Datum übertragen 4 1Laguna1 319 18. Jul 2008, 19:55
Gast Datum übertragen
Keine neuen Beiträge Excel Formeln: Daten einer Tabelle vergleichen – neuen Eintrag übertragen 10 marctrai 1134 27. Mai 2008, 17:50
Jürgen_H Daten einer Tabelle vergleichen – neuen Eintrag übertragen
Keine neuen Beiträge Excel Formeln: Tabellenwerte übertragen wenn Kriterien übereinstimmen 3 Gast 2056 12. März 2008, 15:56
urs Tabellenwerte übertragen wenn Kriterien übereinstimmen
Keine neuen Beiträge Excel Formeln: Formel mit Anfasser übertragen 4 Gast 517 03. Feb 2008, 01:09
Gast Formel mit Anfasser übertragen
Keine neuen Beiträge Excel Formeln: Inhalte übertragen 1 babyherm 437 10. Dez 2007, 10:41
< Peter > Inhalte übertragen
Keine neuen Beiträge Excel Formeln: Angaben aus anderer Tabelle automatisch übertragen 1 blacksock 520 15. Okt 2007, 12:26
Günther Oppold Angaben aus anderer Tabelle automatisch übertragen
Keine neuen Beiträge Excel Formeln: Datum übertragen 2 Peter1111 509 12. Okt 2007, 13:37
Gast Datum übertragen
Keine neuen Beiträge Excel Formeln: Wert aus Zelle in ganze Spalte übertragen -> sortierbar 5 jelllo 1056 22. Sep 2007, 10:54
jelllo Wert aus Zelle in ganze Spalte übertragen -> sortierbar
Keine neuen Beiträge Excel Formeln: werte aus einer spalte automatisch übertragen 1 no_game_999 525 05. Sep 2007, 10:59
tom_r werte aus einer spalte automatisch übertragen
Keine neuen Beiträge Excel Formeln: Wert aus textbox in Tabellenfeld übertragen ohne vba? 2 m.dutzler 935 05. Sep 2007, 09:44
m.dutzler Wert aus textbox in Tabellenfeld übertragen ohne vba?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver