Hallo zusammen,
ich versuche eine Tabelle (Tabelle2) auszufüllen. Bei der Berechnung beziehe ich teilweise auf ein anderes Tabellenblatt (Tabelle1). Hier ist der Code für die erste Spalte in der die Berechnung beginnt. Die Berechnung
beginnt in Spalte D
-------
Sub 1()
Dim a As Integer 'a als Tabellenreihe'
Dim b As Integer 'b als Tabellenreihe'
Dim c As Integer 'c als Tabellenreihe'
Dim f As Integer 'f als Tabellenspalte'
Dim g As Integer 'g als Tabellenspalte'
f = 4 'Spalte D als Start'
For a = 2 To 10
Cells(a, f) = "=Tabelle1!RC"
Next a
For b = 12 To 15
Cells(b, f) = "=Tabelle1!R[1]C"
Next b
For c = 18 To 230
Cells(c, f) = "=IF(R4C4=0,0,Tabelle1!R[1]C*Tabelle2!R4C4*Tabelle2!R6C4*Tabelle2!R7C4/Tabelle2!R8C4*Tabelle2!R9C4)"
Next c
------------------------------------------------------------------------------------------------------
Zwischeninfo
Weitergehen würde die nächste Spalte dann nach demselben Muster. Ich würde also nun auf Spalte E berechnen, die ich hier als "g" definiert habe
---------------------------------------------------------------------------------------------------------------
(Code-Weiterführung)
g = f + 1
For a = 2 To 10
Cells(a, g) = "=Tabelle1!RC"
Next a
For b = 12 To 15
Cells(b, g) = "=Tabelle1!R[1]C"
Next b
For c = 18 To 230
Cells(c, g) = "=IF(R4C5=0,0,Tabelle1!R[1]C*Tabelle2!R4C5*Tabelle2!R6C5*Tabelle2!R7C5/Tabelle2!R8C5*Tabelle2!R9C5)"
Next c
End Sub
-----------------------------------------------------------------------------------------------------
Ist es möglich die Variable f automatisch in die Variable g zu tauschen ohne den Code von Hand zu ändern? Ist dasselbe für die "C", also die Spalten möglich, die ich im letzten Schritt bei der IF-Eingabe ändern muss?
Manche Tabelle haben leider teilweise hunderte Spalten. Da würde ich gerne einmal den Code komplett schreiben bzw. "schreiben lassen" sofern dies überhaupt möglich ist.
Vielen Dank für Eure Bemühungen im Voraus!
Gruß
Tobui
|