taking two worksheets together

J

Jens Ravens

Hi,
I have this problem:
I have a worksheet as a table of books in our school library. Today we
typed the whole table in. To make this faster we used 2 Computers. Now
we have 2 tables, each with parts of tha data. How can we make 1 table
out of them? Please Help me.
 
S

SiC

Sounds like you just need to highlight table 2, copy it, and paste it to the
bottom of table 1. Then you can sort and format the combined table as you
wish.

-Simon
 
J

Jens Ravens

That woun't work. The problem is, that in table1 for example A1, A8 and
A4628 have data, in table2 A2, A23, A477. So if I paste table 2 in table
1, the data of table on disappears.
 
J

Jens Ravens

I have found something myself:

Public Sub buch_uebertragen()
Dim uebertrag(1 To 10) As String
Dim i As Integer
Dim j As Integer
For i = 1 To 5000
If ActiveCell.Offset(i - 1, 0).Value = "" Then
Sheets("book2").Activate
For j = 1 To 10
uebertrag(j) = ActiveCell.Offset(i - 1, j - 1).Value
Next
Sheets("book").Activate
For j = 1 To 10
ActiveCell.Offset(i - 1, j - 1).Value = uebertrag(j)
Next
End If
Next
End Sub
 
Top