title image


Smiley Range vielleicht nicht eindeutig
Hallo miteinander,



' Hier liegt möglicherweise der Hase im Pfeffer, es klemmt noch mit dem Umgang des Range-Objektes:



' Das ist OK

Set ws(0) = ActiveWorkbook.Worksheets("TeileAnl1")

Set ws(1) = Workbooks("tabelle.xls").Worksheets("tabelle")

' Der Umgang mit dem Cells-Objekt auch

ws(0).Cells(4, 36).Value = ws(0).Cells(4, 35).Value ' name old übernehmen

ws(0).Cells(4, 35).Value = ws(1).Cells(1, 1).Value 'NAme neu schreiben

ws(0).Cells(4, 41).Value = ws(1).Cells(1, 1).Value 'Datum letzte Übertragung

' Das ist nicht nur wegen des überflüssigen Selects nicht ganz sauber:

Range("ai7", "ai400").Select ' es wird ein Range mithilfe der Variablen Bereich erstellt

Selection.Copy ' dieses wird selectiert, und kopiert

Range("aj7").Select '

ActiveSheet.Paste

' Klarer und sicherer wäre hier ein Range-Objekt mit Bezug auf das Worksheet-Objekt einzusetzen

' Im Deklarationsbereich

Dim ursprung As Range, ziel As Range

'

Set ursprung = Range(ws(0).Range("ai7"), ws(0).Range("ai400"))

' Offset in Relation zum Ursprung

Set ziel = Range(ws(0).Range("aj7"), ws(0).Range("aj7").Offset(ursprung.Rows.Count - 1, ursprung.Columns.Count - 1))

ursprung.Copy ziel





Viel Erfolg

Günther



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: