Zellwert und Kommentar speichern

Bild

Betrifft: Zellwert und Kommentar speichern
von: Jens
Geschrieben am: 09.11.2003 09:01:45

Guten Morgen Excelgemeinde,
ich habe folgendes Problem. beim Speichern von Zellwerten in anderer TB soll gleich der Zellkommenter mit gespeichert werden. Wie mache ich das?


Sub MehrFachAuswahl() 'Rechnungsdaten speichern
  Application.ScreenUpdating = False
  Zellen_verbinden_aufheben
  Dim LoLetzte1, LoLetzte2, LoI, LoJ As Long
      LoJ = 1
      With Worksheets("Speicher")
      '   letzte Zeile in Tabelle Speicher
          LoLetzte1 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
      '   Letzte Zeile in Aktiver Tabelle
          LoLetzte2 = ActiveSheet.Range("E65536").End(xlUp).Row
          For LoI = 2 To LoLetzte2
        
            '   zeilen nicht kopieren die in Spalte B leer sind
                'If Cells(LoI, 2) <> "" Then
                    Range(Cells(LoI, 1), Cells(LoI, 5)).Copy
                    .Cells(LoLetzte1, LoJ).PasteSpecial Paste:=xlValues, Operation:=xlNone
                 If LoJ > 250 Then
                     Application.CutCopyMode = False
                     Exit Sub
                     Else: LoJ = LoJ + 5
                 End If
              Next LoI
      End With
      Application.CutCopyMode = False
  Zellen_verbinden
  Application.ScreenUpdating = True
End Sub


Wo muß im Code eine Änderung vorgenommen werden?

Danke Jens
Bild


Betrifft: AW: Zellwert und Kommentar speichern
von: Nepumuk
Geschrieben am: 09.11.2003 09:21:10

Hallo Jens,
folgende Änderung:

With .Cells(LoLetzte1, LoJ)
    .PasteSpecial Paste:=xlValues, Operation:=xlNone
    .PasteSpecial Paste:=xlPasteComments
End With


Gruß
Nepumuk


Bild


Betrifft: AW: Zellwert und Kommentar speichern
von: Jens
Geschrieben am: 09.11.2003 12:33:10

Danke für die schnelle Hilfe

mfg Jens


Bild

Beiträge aus den Excel-Beispielen zum Thema " Zellwert und Kommentar speichern"