Microsoft Excel

Herbers Excel/VBA-Archiv

Kommentar als Text | Herbers Excel-Forum


Betrifft: Kommentar als Text von: Gregor
Geschrieben am: 15.01.2010 17:41:58

Hoi zäme

Mit folgendem Befehl versuche ich allfällig vorhandene Kommentare zB. in Spalte C als Text in Spalte D zu schreiben. Manchmal klappt es manchmal erhalte ich die Fehlermeldung "Objektvariable oder With-Blockvariable nicht festgelegt".

For Each Zelle In Columns(3).SpecialCells(xlCellTypeComments)
Cells(Zelle.Row, 4) = Zelle.Comment.Text
Next Zelle

Oftmals sind in der ganzen Spalte keine Kommentare, auch dann müsste es funktionieren. Ich komme leider nicht weiter. Woran liegt es oder gibt es eine andere Möglichkeit?

Vielen Dank
Gregor

  

Betrifft: AW: Kommentar als Text von: Josef Ehrensberger
Geschrieben am: 15.01.2010 17:47:05

Hallo Gregor,

.SpecialCells läuft auf einen Fehler, wenn es keine entsprechenden Zellen gibt.

Sub comment()
  Dim rng As Range, rngComment As Range
  
  On Error Resume Next
  Set rngComment = Columns(3).SpecialCells(xlCellTypeComments)
  On Error GoTo 0
  
  If Not rngComment Is Nothing Then
    For Each rng In rngComment
      rng.Offset(0, 1) = rng.comment.Text
    Next
  End If
  
  Set rngComment = Nothing
  Set rng = Nothing
End Sub


Gruß Sepp



  

Betrifft: @Sepp : Das wäre aber Error 1004 : Keine Zellen... von: NoNet
Geschrieben am: 15.01.2010 17:51:25

Hey Sepp,

das wäre aber LFZ1004 : Keine Zellen gefunden ! ;-)

Gruß, NoNet


  

Betrifft: Enthält der Bereich verbundene Zellen ? _oT von: NoNet
Geschrieben am: 15.01.2010 17:49:37

_oT = "ohne Text"


  

Betrifft: AW: Enthält der Bereich verbundene Zellen ? _oT von: Gregor
Geschrieben am: 15.01.2010 18:15:21

Hallo zusammen

Vielen Dank für das Makro, es klappt bestens.
a, auch verbundene Zellen spielten mir noch einen Streich!
Jetzt ist aber alles ok und ich kann beruhigt ins Wochenende.

Gruss Gregor


  

Betrifft: Im Archiv hättest du mit etwas Glück... von: Luc:-?
Geschrieben am: 15.01.2010 18:29:58

...diese udFkt finden können, Gregor...
Die kann im Tabellenblatt wie eine normale XlFkt eingesetzt wdn.
Gruß+schöWE, Luc :-?
PS: Man findet im Archiv leichter was von außerhalb (zumindest unter Altavista!) mit Herber+Excel+Forumsarchiv+... als mit dem „Forums-Google-Hupf“ unter Alle Recherchen...


Beiträge aus den Excel-Beispielen zum Thema "Kommentar als Text"