AW: VBA Zellen Kopieren
16.04.2008 15:04:44
dirk
Hallo Jan,
da Du das Kopieren von Hand startest reicht ein einfaches Macro:
Sub Kopieren()
Dim LeerZeile as long, SourceSheet as string, TargetSheet as string
SourceSheet = "Input" 'Name der Tabelle von wo die Daten kommen
TargetSheet = "Statistik" ' Name der Tabelle wo die Daten hin sollen
Leerzeile = Activeworkbook.sheets(TargetSheet).Cells(rows.count, 2).End(xlUp).Row + 1 'Bestimmt _
erste leere Zeile in Tabelle
Activeworkbook.sheets(TargetSheet).cells(LeerZeile, 1).value = ActiveWorkbook.Sheets( _
SourceSheet).Range("B2").Value 'Daten fuer Partie
Activeworkbook.sheets(TargetSheet).cells(LeerZeile, 3).value = ActiveWorkbook.Sheets( _
SourceSheet).Range("D2").Value 'Daten fuer Eroeffnet
Activeworkbook.sheets(TargetSheet).cells(LeerZeile, 4).value = ActiveWorkbook.Sheets( _
SourceSheet).Range("F2").Value 'Daten fuer B/L Datum
Activeworkbook.sheets(TargetSheet).cells(LeerZeile, 5).value = ActiveWorkbook.Sheets( _
SourceSheet).Range("G17").Value 'Ist-Koten per 50Kg
Activeworkbook.sheets(TargetSheet).cells(LeerZeile, 6).value = ActiveWorkbook.Sheets( _
SourceSheet).Range("G18").Value 'Soll-Kosten per 50 kg
Activeworkbook.sheets(TargetSheet).cells(LeerZeile, 7).value = ActiveWorkbook.Sheets( _
SourceSheet).Range("G19").Value 'Aktuelle Kosten
End Sub
Lass' mal hoeren ob so ok.
Ggf. koennte man noch pruefen, ob alle Daten in den Zellen enthalten sind um fehlende Eintraege zu vermeiden.
Gruss
Dirk aus Dubai