willkürlich verteilte zellen -Antwort v. K.Rola
16.02.2004 22:26:33
Martin
muß diese Frage leider ein zweites mal stellen, da ich sie am 15.2 nicht genau genug definiert habe. Anm.: Das erste posting befindet sich am schluß. ich würde gerne untenstehen code von K. Rola so modifizieren, dass nacheinander workbooks per multiselection geöffnet werden, und der wert willkürlich verteilter zellen in ein sheet nebeneinder eingetragen werden.
Zielworkbook: "Test"; Zielsheet: "Auswertung"
Quellworkbook: "15GR"; Quellsheet:"Daten1", "Daten2", usw.
Das skript das die verschieden workbooks nacheinander öffnet besteht bereits. Wie müsste man untenstehendes skript von K. Rola, mit den "Ziel" -und "Quelladressen" versehen, sodass nur die werte des quellsheets kopiert werden?
Mit besten Dank,
Martin
Option Explicit
Sub Areas_kopieren()
Dim rngAreas As Range, c As Range, lngA As Long
Set rngAreas = Range("B3,C4,D5,E6,F7,F2,G4,E14")
For Each c In rngAreas
lngA = lngA + 1
c.Copy Sheets("Tabelle2").Cells(lngA, 1)
Next
End Sub
Gruß K.Rola
Hallo,
hat jemand eine idee, wie man mehrere verstreute zellen in einem sheet (die in jedem sheet gleich verteilt sind), in ein anderes nebeneinander kopieren kann?
um es zu präzisieren, ich habe in einem sheet ca. 100 zellen, beginnend mit B4, C2,C5,F3, usw., diese zellen möchte ich auslesen und dann in ein auswertungssheet nebeneinander eintragen (A1,A2,..) usw.
Wie würde so ein skript ausschauen, ohne jetzt 100 einzelne zuweisungen zu schreiben?
mit bestem Dank,
Martin