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

Komentarpostion wird bei Copy nicht übernommen

Komentarpostion wird bei Copy nicht übernommen
Thomas
Hallo zusammen.
Ich brauch mal wieder Hilfe. Und zwar copiere ich mit dem Copy-Befehl in VBA eine Range von einer Tabelle in eine andere. Das klappt auch so weit ganz gut. Leider werden die geänderten Kommentarpositionen auf Standard zurück gesetzt. Wie kann ich das ändern, bzw. vermeiden?
With Sheets(TabArr(arraycount))
.Activate
.Range(Cells(7, posvar), Cells(108, posvar + 20)).Copy
End With
With Sheets("4Wochen_Vorschau")
.Activate
.Cells(7, copypos).Select
.Paste
End With
Gruß Thomas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Komentarpostion wird bei Copy nicht übernommen
16.01.2011 11:56:08
Tino
Hallo,
Du könntest den Bereich kopieren und danach alle Kommentare durchlaufen und
die Position festlegen.
Hier ein Beispiel.
Sub Copy_And_Pos_Kommentar()
Dim rng As Range
Dim KommentarZiel As Range


With Tabelle1.Range("B3:B10") 'Quelle 
    Set rng = .Cells 'Bereich in Variable 
    
    With Tabelle2.Range("D1").Resize(.Rows.Count, .Columns.Count) 'Ziel 
        rng.Copy .Cells 'kopieren 
        On Error Resume Next
            Set KommentarZiel = .SpecialCells(xlCellTypeComments)
        On Error GoTo 0
        If Not KommentarZiel Is Nothing Then
            For Each KommentarZiel In .SpecialCells(xlCellTypeComments) 'Kommentare 
                With rng(KommentarZiel.Row - .Cells(1, 1).Row + 1, KommentarZiel.Column - .Cells(1, 1).Column + 1)
                  
                        KommentarZiel.Comment.Shape.Left = .Comment.Shape.Left + KommentarZiel.Left - .Left 'Pos. horizontal 
                        KommentarZiel.Comment.Shape.Top = .Comment.Shape.Top + KommentarZiel.Top - .Top 'Pos. vertikal 
                   
                End With
            Next KommentarZiel
        End If
    End With
End With


End Sub
Gruß Tino
Anzeige

321 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige