Microsoft Excel

Herbers Excel/VBA-Archiv

Mehere Zuweisungen (Kopierungen) gleichzeitig?



Excel-Version: 10.0 (Office XP)

Betrifft: Mehere Zuweisungen (Kopierungen) gleichzeitig?
von: Thomas Fritsch
Geschrieben am: 04.06.2002 - 16:51:13

Hallo,

ich habe zwei Tabellen.
In Tab1 nehme ich den ersten Wert und vergleiche ihn mit Tab2. Wenn der Wert auch in Tab2 vorhanden ist, sieht mein Code so aus:

Sheets("Tab1").cells(i,2)=sheets("tab2").cells(j,5)
sheets("tab1").cells(i,6)=sheets("tab2").cells(j,6)
sheets("tab1").cells(i,14)=sheets("tab2").cells(j,9)

usw,

Dann kommen noch 5 weitere Zeilen dieser Art.
Nun meine Frage:
Muss ich für jedes cells(..)=cells(...) eine eigene Zeile schreiben? Das Problem dabei ist, dass die Zellen nicht zusammenhängend sind.
Geht das trotzdem ?

Danke !

Gruss,

TF

  

Re: Mehere Zuweisungen (Kopierungen) gleichzeitig?
von: Coach
Geschrieben am: 04.06.2002 - 19:14:04

Hallo TF,

im Prinzip geht es so einfacher:
Sub KompaktKopieren()
Dim a() As Variant
a = Array(1, 3, 7, 9)
For i = 0 To UBound(a)
Cells(10, a(i)) = Cells(1, a(i))
Next
End Sub

Gruß Coach