Hallo,
bei folgendem Code will ich die Werte für IntAnz in Tabellenblatt2 kopieren. Stattdessen sind aber nur Nullen zu sehen.
Code:
Sub edamer()
Dim rngC As Range, intZ As Integer, intAnz As Integer
y = 24
For x = 3 To 26
y = y - 1
For intZ = 1 To y
For Each rngC In Range(Cells(x, 2), Cells(x, 29))
If rngC.Value = 1 And rngC.Offset(intZ, 0).Value = 1 Then
intAnz = intAnz + 1
' Tabelle1.Cells(32 + intZ, X + 29).Formula = "=2*R" & X + 30 & "C" & X - 1 & "/(SUM(R" & intZ + 2 & "C2:R" & intZ + 2 & "C30)+SUM(R" & intZ + 1 & "C2:R" & intZ + 2 & "C30))"
End If
Next
Tabelle2.Cells(32 + intZ, x - 1) = intAnz
If x > 2 Then
a = x - 3
Tabelle2.Cells(32 + intZ, x + 29).Formula = "=2*R" & intZ + 32 & "C" & x - 1 & "/(Tabelle1!R" & x & "C31+Tabelle1!R" & intZ + 3 + a & "C31)"
End If
intAnz = 0
Next
Next
End Sub
Hat jemand eine Idee woran es liegt?
Wenn ich Tabelle2 durch Tabelle1 ersetze, geht es, wird aber eben in Tabell11 eingefügt.
danke
|