Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

FYI, der Beitrag ist leider mehrfach gepostet, falls möglich, bitte löschen.
http://www.office-fragen.de/index.php?board=82.0
Gruß Dank, Jens

Vielen Dank, absolut die hilfreiche Antwort, damit funktioniert es. Gruß, Jens

Hallo!
ich verzettle mich in einer Excelformel. Es ist eine Matrixfromel die aus den Werten in Spale B einen Mittelwert bilden soll, wenn eine Bedingung in Spale A und I gegeben ist. Aus irgend einem Grund erhalte ich aber immer: #Wert

Die Formel lautet:
={MITTELWERT(WENN(UND(BEREICH.VERSCHIEBEN(A7;-5;):A7=A7;BEREICH.VERSCHIEBEN(I7;-5;):I7=1); BEREICH.VERSCHIEBEN(B7;-5;):B7;"")) }

Wenn ich die Formel nur auf eine Bedingung ohne UND anwende, dann Funktioniert sie. Sieht jemand den Fehler?
Vielen Dank für eure Bemühung! Gruß Jens

Lieber Nutzer,

ich habe viel mit folgendem Code gekämpft, der aus einem Dateipfad automatisch File namen ziehen soll und diese mit Hyperlinks in Excel einfügt. Folgende drei Fragen habe ich:

1) Ich habe das Script auf zwei verschiedenen Rechnern, die Excel Versionen sind unterschiedlich, auf einem Rechner ist eine ältere Excelversion installiert. Auf diesem Rechner funktioniert dieser Code Teil nicht: Sheet1.Cells(iRow, 1) = sFile, wieso?

 

2) Ich habe in B1, C1, D1 automatische foldernames, die wechseln. Wie kann an das Ende des Dateipfads sPath = "C:\eSupport\Manual\**hier**"  zB. den Inhalt der Zelle B1 einfügen?

 

3) Ich möchte mit einer Schleife erreichen, dass das Makro selbstständig immer eine Spalte weiter springt B1,C1 ... und so die in den Ordnern enthaltenen Dokumente mit Hyperlinks ausgibt. Dieser Mechansimus soll fortgesetzt werden, bis das Makro an eine erste Ziele kommt, die leer ist.

 

Ich habe viel gekämpft mit dem Script, bin aber zu keiner Lösung gelangt. Help needed =( Dank!!

Script:

Sub FolderHyper()
    Dim sPath As String
    Dim sFile As String
    Dim iRow As Integer
 
   
    sPath = "C:\eSupport\Manual\"  'Path to Files
 
    iRow = 0            'Define iRow auto
    sFile = Dir(sPath)
    While sFile <> ""
        iRow = iRow + 1
        Sheet1.Cells(iRow, 1) = sFile
        sBird = Left(sFile, Len(sFile) - 4)
        ActiveSheet.Hyperlinks.Add Anchor:=Sheet1.Cells(iRow, 1), _
          Address:=sPath & sFile, TextToDisplay:=sBird
        sFile = Dir     ' Start with next file name
    Wend
End Sub