Formel in jede zweite Spalte

Hallo,
ich habe zwei Probleme und hoffe, mir kann jemand helfen.
Problem I:
Kann mir jemand sagen, warum dieser String nicht funktioniert? Es wird die korrekte Zelle gefunden und sie wird formatiert. Jedoch will das Programm partout nichts in diese Zelle eintragen. Weder die Formel wie unten angegeben, noch einen Wert, z.B. über Selection.Value = "X". Bei Befehl Selection.FormulaLocal = "=(Z(-4)S/1,047)" bricht das Programm ab, ich weiß aber nicht warum.
x = ActiveSheet.UsedRange.Rows.Count
For i66 = 1 To x
If Cells(i66, 2).Value = "Deckungsbeitrag II" Then
Cells(i66 + 6, 7).Select
Selection.NumberFormat = ("0.00")
Selection.FormulaLocal = "=(Z(-4)S/1,047)"
End If
Next

Das zweite Problem: Ich habe eine Tabelle mit 48 Spalten. Ab Spalte 7 bis Spalte 45 soll in jede zweite Spalte die untenstehende Formel eingefügt werden. Allerdings muss dann natürlich der S-Verweis jeweils auch angepasst werden auf den ensprechend korrekten Spaltenindex, der sich ja ebenfalls jeweils um 2 erhöht. Ich habe in jeder Spalte mehrere Formeln untereinander einzutragen. Bisher mache ich es so, dass ich diesen String 20 Mal kopiere und dann immer die Zahlen händisch ändere. Das bei 12 Formeln je Spalte gibt jedoch ein endloses Programm. Geht das einfacher?
x = ActiveSheet.UsedRange.Rows.Count
For i67 = 1 To x
If Cells(i67, 2).Value = "Summe Wareneinsatz" Then
Cells(i67, 7).Select
Selection.FormulaLocal = "=SVERWEIS(""Materialeinzelkosten"";B:AW;6;FALSCH)+SVERWEIS(""MGK: 4,7 % auf Materialeinzelkosten"";B:AW;6;FALSCH)"
End If
Next
Vorab vielen Dank für Eure Hilfe und schöne Grüße.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Guten Morgen,
die Tabelle ist in den Zeilen dynamisch, die Spalten stehen fest. Die Zeilen von der jetzigen Zeile 465 nach unten sind auch nicht dynamisch, so das man hier nicht mit S-Verweisen arbeiten muss. Alles, was momentan als Zahl aus dem ERP-System übernommen wurde soll durch eine Formel ersetzt werden, da die Materialkosten händisch geändert werden müssen. Dadurch ist es erforderlich, alle folgenden Werte als Formel einzutragen.
Gerade habe ich versucht, die Formel einfach nach rechts zu kopieren über folgenden String, aber das funktioniert so leider auch nicht. Ich bin ein absoluter VBA Laie.
'Formel HK II berechnen und nach rechts kopieren
x = ActiveSheet.UsedRange.Rows.Count
For I299 = 1 To x
If Cells(I299, 2).Value = "Herstellkosten II" Then
Cells(I299, 7).Select
Selection.FormulaLocal = "=Z(-4)S+Z(-2)S+Z(-1)S"
End If
Next
x = ActiveSheet.UsedRange.Rows.Count
For I300 = 1 To x
If Cells(I300, 2).Value = "Herstellkosten II" Then
Cells(I300, 7).Select
Selection.Copy
Range("ZS2,ZS4,ZS6,ZS8,ZS10,ZS12,ZS14,ZS16,ZS18,ZS20,ZS22,ZS24,ZS26,ZS28,ZS30,ZS32,ZS34,ZS36,ZS38,ZS40").Select
Range("ZS2").Activate
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Next
https://www.herber.de/bbs/user/157900.xlsx

Sub Unit() Dim lngZeile As Long Dim strSuch As String Dim strFormeltext As String strSuch = "Herstellkosten II" strFormeltext = "Z(-4)S+Z(-2)S+Z(-1)S" lngZeile = Application.Match(strSuch, Columns(2), 0) For Spalte = 7 To 45 Step 2 Cells(lngZeile, Spalte).FormulaR1C1Local = "=" & strFormeltext Next End Sub

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel in jede zweite Spalte

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread