Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
340to344
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
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wert übernahme

Wert übernahme
21.11.2003 09:15:08
Nabriss
Hallo zusammen.
Mappe1.xls und Test.xls
Wie geht so was mit eine schleife

Range("A1") = "=[Test.xls]Tabelle1!R1C1"
Range("A2") = "=[Test.xls]Tabelle1!R2C1"
Range("A3") = "=[Test.xls]Tabelle1!R3C1"
Range("A4") = "=[Test.xls]Tabelle1!R4C1"
Range("A5") = "=[Test.xls]Tabelle1!R5C1"
Range("A6") = "=[Test.xls]Tabelle1!R6C1"
Range("A7") = "=[Test.xls]Tabelle1!R7C1"
Range("A8") = "=[Test.xls]Tabelle1!R8C1"
Range("A9") = "=[Test.xls]Tabelle1!R9C1"

Gruß
Nabriss

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert übernahme
21.11.2003 09:21:35
Willie
Das kannst du so lösen ...
Gruß
Willie


Sub übertragen()
For i = 1 To 50
Sheets(1).Cells(i, 1) = Workbooks("Test.xls").Worksheets("Tabelle1").Cells(i, 1).Value
Next
End Sub

AW: Wert übernahme
21.11.2003 09:23:14
Lars
Hallo Nabriss,

versuch mal so

For i = 1 to 9
Worksheets("nameDerTabelle").Cells(i,1).Value = "=[Test.xls]Tabelle1!R" & i &"C1"
next

Gruß Lars
Danke
21.11.2003 09:36:52
Nabriss
Danke!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige