Kommentare kopieren und als TEXT in der Nachbar-Spalte einfügen

[Dieter]

Hallo Leute,

erstmal möchte ich als Neuling allen Hallo sagen und mich voher schon mal für event. Tipps/Lösungen bedanken.

Ich habe folgendes Riesen-Problem:

Eine Exceltabelle (über 15.000 Datensätze!) soll nach Access exportiert werden.
Dabei sollen alle Kommentare als Textfelder mitkopiert werden.
In einer Spalte sind alle Zellen ohne Inhalt, aber mit einem Kommentar versehen.
Ich suche nun nach einer Möglichkeit, das z.B. alle Kommentare aus Spalte A als Text (also als Zelleninhalt) in Spalte B ausgibt.
Die Zellinhalte aus Spalte A bestehen ausschließlich aus Kommentaren!  Mist!!!
Da ich nicht 15.000mal kopieren und einfügen möchte, suche ich verzweifelt nach einer Lösung. Über eine Hilfe würde ich megamäßig freuen.

MfG

Dieter

[WillWissen]

Hi Dieter,

schau dir mal den 3. Beitrag in diesem Forum an. Ich glaube, hier ist deine Lösung.

[schauan]

Hallo Dieter,

ich würde das so lösen:

Code:

Sub KommentareAuslesen()
'Variablendekalration - Array
Dim arrCom(3)
'Schleife ueber alle definierten Zeilen
For i = 0 To UBound(arrCom)
 'Wenn Kommentar enthalten, dann in Array uebertragen
 If Not Cells(i + 1, 1).Comment Is Nothing Then arrCom(i) = Cells(i + 1, 1).Comment.Text
'Ende Schleife ueber alle definierten Zeilen
Next
 'Array direkt in Spalte B uebertragen
 Cells(1, 2).Resize(UBound(arrCom)) = WorksheetFunction.Transpose(arrCom)
End Sub

Statt der fest programmierten Zeilenzahl könnte man auch eine Variable einsetzen und z.B. die letzte belegte zelle in Spalte A verrechnen. Du müsstest jetzt natürlich statt der 3 die 15000 nehmen oder was Du ermittelt hast.

[Castor]

Noch ein Link, Dieter,
zu einer UDF, die alles ausliest, was einen Text enthält:
Zum Herber-Archiv 2010
Gruß, Castor