title image


Smiley Re: Ich hoffe es...
Hallo Jerry Hallo Frank,

die letzte Funktion SaveAs... klappt nicht, warum steht in den Sternen:

Viell. ja jetzt, würde mich freuen

Gruß Klaus

Sub ausfüllen()

ActiveWorkbook.ExclusiveAccess

For i = 1 To 5

Sheets(i).Activate

With Range(Cells(3, 16), Cells(90, 16))

.Activate

.FormatConditions.Add Type:=xlExpression, Formula1:= _

"=UND(B3"""";P3="""")"

.FormatConditions(1).Interior.ColorIndex = 3

End With

Next

ActiveWorkbook.KeepChangeHistory = True

ActiveWorkbook.SaveAs FileName:=ThisWorkbook.FullName, AccessMode _

:=xlShared 'hier bleibt das Makro hängen und gibt Fehlermelung

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: