Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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

312 Forumthreads zu ähnlichen Themen

Format(etwas, "sonstwas") wird nicht erkannt
Mike

Hallo zusammen,
in einigen VBA-Projekten wird "Format" nicht erkannt. Meldung: "Fehler beim kompilieren, Falsche Anzahl an Argumenten oder Zuweisung einer Eigenschaft"
Öffne ich im gleichen VB-Editor eine neue Mappe/Projekt funktioniert es für die neue Mappe nicht aber für besagte alte...
20.08.2008 11:13:00
Thread-ID: 1003138
16 Beiträge
Anzeige
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Wochentag Formatierung mit TTT wird nicht gezählt
Rolf

Hallo Fachleute,
ich habe einen Dienstplan in Excel bei dem die Monate auf je einem Tabellenblatt stehen.
Also wie ein Kalender. In einem anderen Tabellenblatt werden verschiedene Auswertungen mittels Funktionen oder einfacher Formeln erstellt.
So z.B: sollen bestimmte Dienste di...
14.12.2008 17:15:00
Thread-ID: 1032800
11 Beiträge
Anzeige
Zelleninhalt wird bei Wenn-Abfrage nicht erkannt
CheHerbers

Hey,
ich habe eine Wenn-Abfrage, die prüfen soll, ob A1kleinerA2.
In A1 und A2 stehen jeweils Datum mit Uhrzeit.
A1 = 17.02.2009 10:42:35
A2 = 17.02.2009 10:43:57
A1 fülle ich über ein Makro.
Code:
Sheets("Daten").Range("A1") = ComboBox1.Value & " " &...
18.02.2009 10:35:00
Thread-ID: 1051714
4 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Datum in Zahl umwandeln
Johannes

Hallo!
Habe eine Frage zu Excel:
Ich möchte über eine WENN-Funktion das Datum aus G2 als Zahl in dem entsprechenden Feld (AJ - AP) haben.
Z.B. für "Freitag, 2. Januar 2009" soll in der Spalte AN eine 1 stehen.

Über Hilfe wäre ich SEHR dankbar.
Liebe Grüße
Johannes
04.03.2009 12:20:18
Thread-ID: 1056301
7 Beiträge
Information von Zelle wird nicht erkannt
Zelle

https://www.herber.de/bbs/user/60476.xls
Hey Leute
eigentlich habe ich hier ein gutes program aber in Ausgang gibt es ein problem ich denke es ist ganz klein.
jedoch für mich risig da ich es nicht lösen kann, siehe beispiel.
vielleicht kann mir jemand helfen, bin aber kein prof...
19.03.2009 18:25:55
Thread-ID: 1061948
9 Beiträge
VLookup wird nicht erkannt
Werner

VBA-Level: befriedigend
Hallo Freunde,
bei folgender CodeZeile bekomme ich immer eine Fehlermeldung (es soll der Wert in Spalte 5 des
Worksheets "BeispielSheet" ermittelt werden, wenn in Spalte A dessen Wert numerisch "1900"
betraegt.) Excel teilt mit, dass es "VLookUp" nicht ke...
02.04.2009 09:22:02
Thread-ID: 1066196
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
15
7
2
10
3
3
14
6
8
4
3
1
7
16
3
2
2
7
2
1
5
5
2
19
6