Kopieren
23.07.2005 16:02:04
Basti
Ich hab ein kleines Problem.
Ich möchte gern mittels CommandButton den Inahalt einer Tabelle in eine andere kopieren.
Das funktioniert auch mit folgendem Code:
Private Sub CommandButton1_Click()
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\Sebastian\Desktop\Medizin\PP FA\" & ListBox1.Value & ".xls"
Range("a1:e4000").Select
Selection.Copy
ActiveWorkbook.Close
Sheets("Tabelle1").Activate
Range("a1").PasteSpecial
Unload Me
End Sub
allerdings werden die Formatierungen nicht mit übernommen (also Schriftgröße, Farbe usw)
die hätte ich aber gerne. Was kann man da machen ?
Gruß Basti
Anzeige