Importfunktion?

Bild

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


Bild


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


Bild

Beiträge aus den Excel-Beispielen zum Thema " SummeWENN mit Text ("Verketten")"