Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Importfunktion?

Importfunktion?
15.11.2003 19:45:18
Sascha
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


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Importfunktion?
18.11.2003 12:01:55
Karl-Otto Reimann
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige