Importfunktion?

• Importfunktion? von Sascha vom 15.11.2003 19:45:18
  • AW: Importfunktion? - von Karl-Otto Reimann am 18.11.2003 12:01:55

Betrifft: Importfunktion?
von: Sascha
Geschrieben am: 15.11.2003 19:45:18
Hallo,

hab hier eine 1.xls mit Tabelle "Daten" die folgendermaßen aufgebaut ist:

a, b, c, d, e, f, g, h, i, j,
nr, name, vorname, str., plz, ort, tel1, tel2, tel3, geb

Ich möchte nun per vba aus 1.xls daten aus 2.xls importieren. Beginn import in 1.xls in Spalte B. Die Daten sollen unter den bereits vorhandenen Daten angefügt werden.

Gibt´s da irgendwo was zum nachlesen? Oder gar Musterdateien?

Danke für Eure info´s

Grüße
Sascha

Betrifft: AW: Importfunktion?
von: Karl-Otto Reimann
Geschrieben am: 18.11.2003 12:01:55
Hallo Sascha
Mußt Du anpassen:

Sub LastCell()
Dim rng As Range
Dim varCol As Variant
Sheets("Heute").Activate
varCol = 1
If varCol = "" Then Exit Sub
Set rng = Cells(Rows.Count, CInt(varCol)).End(xlUp)
rng.Offset(1, 0).Select
With ActiveCell
Range(.Offset(0, 0), .Offset(519, 8)).Value = Sheets("Imp").Range("a801:i1320").Value
End With
End Sub

mfG KO