ich schreibe gerade an einem meiner ersten VBA-Programme und bin auf ein Problem gestoßen, das ich auch mit stundenlangem googlen nicht lösen konnte. Es wäre super, wenn ihr mir weiterhelfen könntet:
Ich möchte das Sheet "Sheet1" von Spalte C bis Spalte CE durchlaufen und jeweils zwei Formeln in verschiedenen Zeilen eintragen, die dann hinterher auf dem Sheet auch wirklich als Formeln erscheinen und nicht nur als das Ergebnis der Formel.
Konkret möchte ich folgendes ausführen:
Dim number_ZH as Integer
Dim number_RG as Integer
For t = 0 To 80
Sheet1.Cells(14, 3 + t).FormulaLocal = "=-(Sheet2!" & Chr(64 + 3 + t) & 6 + number_ZH + 10 & "+Sheet2!" & Chr(64 + 3 + t) & 6 + number_ZH + 12 & ")"
Sheet1.Cells(12, 4 + t).FormulaLocal = "=" & Chr(64 + 3 + t) & "12+Sheet3!" & Chr(64 + 4 + t) & 4 + number_ZH + 3 * number_RG + 2 & "+SUMME(Sheet2!" & Chr(64 + 4 + t) & 6 + number_ZH + 11 & ":" & Chr(64 + 4 + t) & 6 + number_ZH + 12 & ")"
Next t
~f~
Ich habe im Internet diesen Hinweis gefunden:<br><br>
~f~
Dim i as Integer
Dim col as String
For i = 0 T0 100
If i < 27 Then
col = Chr(64 + i)
Else
col = Chr(64 + Int(i / 26)) & Chr(64 + i - (Int(i / 26) * 26))
End If
Next i
Leider scheitert das Anpassen auf meinen Fall daran, dass ich 1. bei Spalte C beginnen will und 2. daran, dass ich in der zweiten Formel sowohl auf die aktuelle Spalte, als auch auf die Spalte davor zugreifen muss.
Ich wäre sehr dankbar, wenn mir jemand helfen könnte.
Liebe Grüße!