Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ein riesen Problem und keine Ahnung!!!

Ein riesen Problem und keine Ahnung!!!
08.08.2007 13:23:55
Oli
Hallöchen,
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);"")))

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ein riesen Problem und keine Ahnung!!!
08.08.2007 13:27:19
Ramses
Hallo
Das Problem ist doch in der Formel.
Dort wurde vermutlich einmal einen Zelle/Tabelle gelöscht auf die sich die Formel bezieht
#BEZUG!+2);
Stell den Bezug wieder her, dann funktioniert es wieder.
Auf WAS sich das beziehen soll, da musst du deinen Freund fragen
Gruss Rainer

AW: Ein riesen Problem und keine Ahnung!!!
08.08.2007 13:32:00
Oli
Alles klar,
werd mich mal auf die Suche machen, um den Bezug wieder zu finden.
Danke und Gruß
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige