Danke Edda
Danke Edda
Bye
Nike
P.S. Bitte beachte den Scherzkeks nicht weiter.
Manchmal müssen sich solche Typen hier austoben.
Excel bleibt in dieser Zeile immer hängen
strComm = Sheet("Kreditor").Cells(lngZeil, intspalt).Value
Ich habe auch schon versucht folgenden Archivbeitrag anzupassen:
Sub Kommentar_übernehmen()
Quelle = Right(ActiveCell.Formula, Len(ActiveCell.Formula) - 1)
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=Range(Quelle).Comment.Text
End Sub
wie folgt anzupassen:
Sub Kommentar_übernehmen()
Quelle = Right(ActiveCell.Formula, Len(ActiveCell.Formula) - 1)
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=Range(Quelle).Text
End Sub
Auch hier hakt das System vor dem Ende Befehl.
P.S. No Problem, solche Leute bekommen halt keine Auskunft bei den Dingen, die ich hervorragend beherrsche. Thanks a lot
Der Code funkt bei mir einwandfrei (ich habs mal bei ner
leeren Mappe laufen lassen)
Bye
Nike
P.S. Was wäre denn Dein Spezialbereich?
VBA ist nicht meine Domäne. Ich kann gut komplexe Auswertungsauswertungsszenarien, angefangen auf Datenbasis - Pivottabellen - bewerten und gruppieren und dann die grafischen "Schweinereien" als komplette Arbeitsmappenvorlage zusammenmixen. Auch im Bereich der Seriendruckverarbeitung habe ich paar ziemlich komplexe Anwendungen gedreht.
Viele Grüße aus dem gräulichen Hamburg
Edda