title image


Smiley autofil-methode des range objektes konnte nicht ausgeführt werden...vba
hallo und guten morgen,



wer kann mir sagen warum das nicht funktioniert?



Sub Makro1()

Dim blätter()

Dim tempWS As Worksheet

blätter = Array("S410Q-QK", "S420Q-QF", "S450Q-QB", "S470TF")

For i = 0 To UBound(blätter)

Set tempWS = Worksheets(blätter(i))

With tempWS

.Range("a18:ap18").AutoFill Destination:=Range("A18:AP139"), Type:=xlFillDefault

End With

Next

Set tempWS = Nothing



Danke schon mal im vorraus!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: