Hilfe ! Zellen mit Kommentaren übertragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim erste As Long erste = Worksheets("Ablage").Range("a65536").End(xlUp).Row + 1 'Suche erste freie Zeile Worksheets("Ablage").Range("A" & erste & ":AH" & erste).Value = Range("A9" & ":AH9").Value 'Übertrage Zeile nach Blatt Ablage Range("A9" & ":AH9").Copy Range("A" & erste & ":AH" & erste).PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Hallo Micha, hallo Harald,
vielen Dank für Euren Einsatz.
Ich habe jetzt meinen Code wie folgt aktualisiert.
Dim erste As Long
erste = Worksheets("Ablage").Range("a65536").End(xlUp).Row + 1 'Suche erste freie Zeile
Worksheets("Ablage").Range("A" & erste & ":AI" & erste).Value = Range("A9" & ":AI9").Value 'Übertrage Zeile nach Blatt Ablage
'Zeilen von Micha
Range("A9" & ":AI9").Copy
Range("A" & erste & ":AI" & erste).PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Zeile von Harald
'Range("A" & erste & ":AI" & erste).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Application.CutCopyMode = False
' Löschen der definieten Felder
Das Ergebnis kann noch nicht befriedigen - die Kommentare werden nicht in die Ablage übernommen sondern in der Dateneingabe 5x oberhalb der Zellen eingetragen in der der Kommentar ursprünglich steht.
Vielleicht könnt Ihr Euch dieses Problems noch mal annehmen, eventuell hat sich in den Code ein Fehler eingeschlichen den ich einfach nicht mehr sehe - ich werde bald irre!
Viele Grüße Bernd

Hallo Harald + Micha,
nochmals vielen herzlichen Dank für Eure Hilfe.
Da Ihr ja im Vergleich zu mir sehr, sehr fit seit mit VBA hätte ich noch ein kleines
Problem.
Der erste folgende Code erzeugt ein farbliche Markierung der Zeile in der der Cursor (aktive Zelle) steht. Der zweite Code markiert die Spalte.
Ich möchte nun das beides gleichzeitig - wie ein Fadenkreuz markiert wird. Ich bringe mit meinen bescheidenen Kenntnissen das nicht zusammen.
Fällt Euch da auch was ein?
Gruß Bernd
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If i = 0 Then
Static Zelle As Range
If Not Rows Is Nothing Then
Cells.Interior.ColorIndex = xlNone
End If
Rows(Target.Row).Interior.ColorIndex = 34
Set cell = Target
End If
'If i = 0 Then
'Static Zelle As Range
'If Not Columns Is Nothing Then
'Cells.Interior.ColorIndex = xlNone
'End If
'Columns(Target.Column).Interior.ColorIndex = 34
'Set cell = Target
'End If

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Cells.Interior.ColorIndex = xlNone Rows(ActiveCell.Row).Interior.ColorIndex = 34 Columns(ActiveCell.Column).Interior.ColorIndex = 34 End Sub

Beliebteste Forumthreads (12 Monate)

Hilfe ! Zellen mit Kommentaren übertragen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread