Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

ich würde gern weitere Details einer .msg Datei wie z.B. Absender in einer Excelzelle anzeigen lassen.
z.B. c:/test/dat.msg  und in
A1 = dat.msg
und in
A2 = test@absender.de

geht das?

Hallo zusammen,
möchte aus Tabelle1, gefilterte Werte, nur Spalte A nach Tabelle2 kopieren
1. Versuch hatte geklappt aber, wenn die Bereiche mit A:A in Tabelle 1 und Tabelle 2 gesetzt werden wird die Datei sehr groß da alle spalten kopiert werden.
Daher habe ich die Sache in eine Verkürzten und schneller laufenden Makro gebastelt.
Der Code funktioniert soweit auch ...
Sub test()
intLetzteZeile = Tabelle1.UsedRange.SpecialCells(xlCellTypeLastCell).Row
intAnzahlZeilen = Tabelle1.Range("C9:C" & intLetzteZeile).SpecialCells(xlCellTypeVisible).Count
Tabelle1.Range("A1:A" & intLetzteZeile).SpecialCells(xlCellTypeVisible).Copy Tabelle2.Range("A1:A" & intAnzahlZeilen)
End Sub
aber leider werden die kompletten Zellen kopiert, ich möchte aber nur den Wert im Ziel einfügen?