title image


Smiley Re: So halt!
Also:



Spalte A ist Spalte 1.

Spalte C ist Spalte 3.

Spalte H ist Spalte 8.

Spalte I ist Spalte 9.

Spalte J ist Spalte 10.



Dann kommen wir ungefähr auf:



Dim Originaldatei As String

Dim Originaltabelle As String

Dim Zieldatei As String

Dim Zieltabelle As String

Dim LetzteZeile As Long

Dim i As Long



Originaldatei="d:\irgendwas\deinedatei.xls"

Originaltabelle="Irgendwas"



Zieldatei="d:\irgendwas\irgendwasanderes.xls"

Zieltabelle="Irgendeine Auswertung"



Application.Workbooks.Add

ActiveWorkbook.SaveAs Zieldatei

Workbooks(Zieldatei).Sheets("Tabelle1").Name=Zieltabelle



LetzteZeile=Workbooks(Originaldatei).Sheets(Originaltabelle).Cells.SpecialCells(xlLastCell).Row



For i=1 To Letzte Zeile

Workbooks(Zieldatei).Sheets(Zieltabelle).Cells(i, 1).Value=Workbooks(Originaldatei).Sheets(Originaltabelle).Cells(i,1).Value

Workbooks(Zieldatei).Sheets(Zieltabelle).Cells(i, 2).Value=Workbooks(Originaldatei).Sheets(Originaltabelle).Cells(i,3).Value

Workbooks(Zieldatei).Sheets(Zieltabelle).Cells(i, 3).Value=Workbooks(Originaldatei).Sheets(Originaltabelle).Cells(i,8).Value

Workbooks(Zieldatei).Sheets(Zieltabelle).Cells(i, 4).Value=Workbooks(Originaldatei).Sheets(Originaltabelle).Cells(i,9).Value

Workbooks(Zieldatei).Sheets(Zieltabelle).Cells(i, 5).Value=Workbooks(Originaldatei).Sheets(Originaltabelle).Cells(i,10).Value

Next i



Workbooks(Zieldatei).Save

Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: