If und Then Funktionieren nicht
13.05.2004 12:28:54
Julia
Ich habe diesen Quellcode, ich möchte an den stellen mit dem *** ein und ein Then einsetzten, wenn ich das jedoch tue, sagt mir das Makro das er das Makro nicht finden kann. Was kann ich denn sonst noch machen? Oder mach ich was Falsch?
Danke
Gruß
Julia
Sheets("zusammen").Select
*** Cells.Find(What:="\\server\Memory\% xxx", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate ***
Range(ActiveCell, ActiveCell.Offset(rowoffset:=0, columnoffset:=1)).Copy
Sheets("Tabelle4").Select
Range("a11").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "% xx1"