WCM Forum

WCM Forum (http://www.wcm.at/forum/index.php)
-   Software (http://www.wcm.at/forum/forumdisplay.php?f=5)
-   -   Excel Tabelle wie funktion aufrufen (http://www.wcm.at/forum/showthread.php?t=244183)

Atomschwammerl 28.03.2012 21:03

Excel Tabelle wie funktion aufrufen
 
Hallo

Ich kann ja mit =WorksheetXX!J1 auf ein anderes Worksheet zugreifen.

Jetzt benötige ich aber die Resultate aus einem Anderen Worksheet für unterschiedliche Bedingungen.
Geht das irgendwie ohne die Gesamten Formeln aus dem Worksheet zu kopieren.

Danke!

Atomschwammerl 29.03.2012 21:14

Ich habs nun doch mittels Macro gelöst.
Und Zwar Kopiert das Macro erst den Übergabeparameter ins Berechnungs Worksheet, und dann die Resultate zurück.
Ein Counter spring zur nächsten Zeile und wiederholt den schirtt mit dem nächsten übergabe Parameter.

Code:

Sub Makro1()
'
' Makro1 Makro


'
counter = 1
Range("F" & counter).Select




    For i = 1 To Range("B6").Value


original_sheet = ActiveSheet.Name

 
    'Jump to global
    Sheets("global").Select
   
    'Trigger Clock
    Range("B1").Select
    ActiveCell.Formula = "='" & original_sheet & "'!D" & i + 7
    ' Bitwidth
    Range("B2").Select
    ActiveCell.Formula = "='" & original_sheet & "'!B3"
   
    'Intermediate Bitwidth
    Range("B3").Select
    ActiveCell.Formula = "='" & original_sheet & "'!B4"




      Sheets(original_sheet).Select

'Select desired WDF Sheet
    Sheets(Range("C" & i + 7).Value).Select
    Range("E17:F17").Select
    'Copy Result
    Selection.Copy
    Sheets(original_sheet).Select
   
    'Paste Result
    Range("F" & i + 7).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
    Next i
       
       
End Sub



Alle Zeitangaben in WEZ +2. Es ist jetzt 00:02 Uhr.

Powered by vBulletin® Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
© 2009 FSL Verlag