Office: (Office 2010) Laufzeitfehler 1004

Hallo zusammen,
ich erhalte für die folgende Code .

Code:

diese Fehlermeldung.





Ähnliche Code funktioniert jedoch ohne Fehlermeldung.

Code:

Wieso erhalte ich diese Fehlermeldung?

Vg
Juilias

:)

 

Hallo Juilias,

Range bezieht sich auf Worksheets("WD per plant"). und Cells auf die aktuelle Tabelle, was nicht die selbe sein muss.

 

Hallo Hajo_Zi,
danke für die Antwort!
es hat mir sehr geholfen!
Dieser Code ist richtig

Code:

vg
Juilias

 

Hallo,

ich würde das so machen:

With Worksheets("WD per plant")
With .Range(.Cells(1, 3), .Cells(1, 6))
.MergeCells = True ' Linked Cells
.BorderAround ColorIndex:=1, Weight:=xlMedium ' Set Frame Line
.Value = i ' Value write in Cell
.HorizontalAlignment = xlCenter 'Range Centring
.VerticalAlignment = xlCenter 'Range Centring
End With
End With
End Sub