Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kommentare identisch in einer anderer Tabelle kopieren
zurück: Schleife zur Stichwortsuche weiter: combobox benutzung Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Hildes
Keine VBA Kenntnisse


Verfasst am:
21. Jan 2009, 13:46
Rufname: Hildes


Kommentare identisch in einer anderer Tabelle kopieren - Kommentare identisch in einer anderer Tabelle kopieren

Nach oben
       Version: Office 2003

Hallo,

ich habe eine Datei mit vielen Tabellen die zahlreiche Kommentare beinhalten und möchte diese Kommentare in den entsprechenden Tabellen an der gleiche Stelle von einer anderer Datei kopieren.

Aber, kopieren genauso wie diese in der Urpsrungdatei sind.

Durch stöbern im Forum und testen habe ich bis jetzt folgendes auf die Reige gebracht. Erstmals von einer Tabelle in die andere

Code:
Sub Kommentare_kopieren()
    Dim Zeile As Long
    Dim col As Integer
    Dim i As Long
    Dim j As Integer
    Dim Kom As Comment
    Dim Base As Worksheet
    Dim AvCom As Worksheet
    Dim gauche As Variant
    Dim haut As Variant
    Dim ScWi As Variant
    Dim ScHe As Variant
   
   
    Workbooks("copier_commentaires.xls").Activate
    Set Base = Worksheets("Base")
    Set AvCom = Worksheets("Avec_Comm")
    Base.Activate
    Zeile = Worksheets("Base").Range("A65536").End(xlUp).Row
    col = Worksheets("Base").Range("IV1").End(xlToLeft).Column

    For i = 1 To Zeile
        For j = 1 To col
        If Not Base.Cells(i, j).Comment Is Nothing Then           
            gauche = Cells(i, j).Comment.Shape.Left
            haut = Cells(i, j).Comment.Shape.Top   
            Set Kom = AvCom.Cells(i, j).AddComment
            Kom.Text Base.Cells(i, j).Comment.Text
            Kom.Shape.TextFrame.AutoSize = True     
            Kom.Shape.Left = gauche   
            Kom.Shape.Top = haut
        End If
        Next j
    Next i
    AvCom.Activate

End Sub


Die Kommentare befinden sich auch hier an den gleichen Position wie in der Ursrpungstabelle.

Doch, Höhe, Breite und Schrifte lassen sich nicht kopieren.

wie laßen sich Höhe und Breite ermitteln?

Wenn ich ein Kommentar auswähle bekomme ich zum Beispiel sowas

Code:
Range("B2").Select
Selection.ShapeRange.ScaleWidth 1.82, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.32, msoFalse, msoScaleFromTopLeft


1) Wie kann ich für jedes Kommentar diese Werte, hier beispielsweise 1,82 und 1,32 ermitteln?
2) Wie kann ich die Schriftarten (fett, kursiv, Farbe, Police) auch für die neue Kommentare bestimmen?


Ich habe mit dem Recorder getestet, geht nicht.


Danke im voraus
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: Sortieren einer Tabelle 5 sandihau 635 05. Feb 2005, 11:24
Nepumuk Sortieren einer Tabelle
Keine neuen Beiträge Excel Formeln: Knifflige Frage bez. einer Tabelle, bitte lesen im Thread! 0 atomicfan 1253 31. Jan 2005, 15:23
atomicfan Knifflige Frage bez. einer Tabelle, bitte lesen im Thread!
Keine neuen Beiträge Excel Formeln: Datensätze automatisch kopieren 2 Gast 2731 04. Jan 2005, 20:57
Gast Datensätze automatisch kopieren
Keine neuen Beiträge Excel Formeln: Text in andere Tabelle übertragen 2 freddy-krueger 3737 02. Dez 2004, 11:16
freddy-krueger Text in andere Tabelle übertragen
Keine neuen Beiträge Excel Formeln: Wert aus einer anderen Tabelle holen 2 =KB=Shorty 4867 17. Nov 2004, 21:22
=KB=Shorty Wert aus einer anderen Tabelle holen
Keine neuen Beiträge Excel Formeln: 3 oder mehr zellen identisch = textausgabe??? 1 z!eldr0hne 1356 11. Nov 2004, 12:55
ae 3 oder mehr zellen identisch = textausgabe???
Keine neuen Beiträge Excel Formeln: bestimmte Datensätze selektieren / Tabelle auswerten 0 tc_der_echte 1749 23. Sep 2004, 11:00
tc_der_echte bestimmte Datensätze selektieren / Tabelle auswerten
Keine neuen Beiträge Excel Formeln: Datenübernahme aus Tabelle 7 lut155 21997 05. Aug 2004, 15:12
Gast Datenübernahme aus Tabelle
Keine neuen Beiträge Excel Formeln: Zellenbezug kopieren (Formel) 1 Thompsen 1064 03. Aug 2004, 16:36
peb Zellenbezug kopieren (Formel)
Keine neuen Beiträge Excel Formeln: Kopieren für Anfänger 3 taraniel 2021 29. Jul 2004, 20:36
fl618 Kopieren für Anfänger
Keine neuen Beiträge Excel Formeln: Bei SVERWEIS wird die Matrix mit hochgezählt, beim kopieren. 1 MariaMagda 1606 28. Jul 2004, 14:14
Thomas Ramel Bei SVERWEIS wird die Matrix mit hochgezählt, beim kopieren.
Keine neuen Beiträge Excel Formeln: Inhalte einer unsort. Tabelle in e. weiter. Tabelle sort.anz 1 lorenz.bruederlein 1057 08. Jun 2004, 15:33
steve1da Inhalte einer unsort. Tabelle in e. weiter. Tabelle sort.anz
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen