Einzelnen Beitrag anzeigen
Alt 29.03.2012, 21:14   #2
Atomschwammerl
Abonnent
 
Registriert seit: 04.09.2001
Alter: 39
Beiträge: 4.355


Atomschwammerl eine Nachricht über ICQ schicken
Standard

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
____________________________________
\'I think I spider\'

Atomschwammerl ist offline   Mit Zitat antworten