Ein riesen Problem und keine Ahnung!!!
08.08.2007 13:23:55
Oli
ich darf mich hier an einem Tool von einem Freund versuchen, der dann glaub doch ein wenig mehr Kentnisse hat wie ich.
Mit dem Tool kann ich die Verträglichkeit von Chemicalien und die damit in Berührung kommenden Materialien überprüfen. Also wenn ich z.B. Wasser und Edelstahl eingebe, schaut das Tool in einer Matrix nach und wenn z.B. "A" in der Zeile steht, dann gibt es als Antwort "Hervorragend" aus. Ich habe also 3 Auswahlfelder, von denen ich bei 2 was auswählen muss, um das 3. zu bekommen (Chemicalie, Material, Verträglichkeit).
Mein Problem.
In der Regel bekomme ich immer schön die richtigen Antworten, nur machmal steht dann da einfach nur #Bezug. Ich schick euch dann mal mit, was in der Zelle steht (normal steht nix drin, wird also über ein Macro reinkopiert) und das Macro.
Danke schon mal.
Oli
Macro:
Sheets("Risultati").Select
Selection.AutoFilter Field:=1, Criteria1:=""
Range("A1").Select
Selection.End(xlDown).Select
Selection.End(xlToRight).Select
Range("D13:E13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Foglio2").Select
Range("C12").Select
ActiveSheet.Paste
Cells.Select
Application.CutCopyMode = False
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("C12:D12").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A1").Select
End Sub
Zelle:
=WENN(ODER(Interfaccia!$L$30=0;Interfaccia!$L$30=4);"";WENN(Interfaccia!$L$30=3; WENN(GANZZAHL(SVERWEIS(INDEX(Dati!$1:$65536;#BEZUG!+5;Interfaccia!$M$15+1);Utilità!$A$27:$C$37;3; FALSCH))=Interfaccia!$L$21;INDEX(Dati!$1:$65536;#BEZUG!+5;Interfaccia!L$15+1);""); WENN(Interfaccia!$L$21=GANZZAHL(SVERWEIS(INDEX(Dati!$1:$65536;Interfaccia!$L$9+5;#BEZUG!+2); Utilità!$A$27:$C$37;3;FALSCH));SVERWEIS(INDEX(Dati!$1:$65536;Interfaccia!$L$9+5;#BEZUG!+2); Utilità!$A$27:$C$37;2;FALSCH);"")))