Herbers Excel/VBA-Archiv

VBA Formel mit Bedingung in anderer Spalte

• VBA Formel mit Bedingung in anderer Spalte von Jan Eschl vom 11.11.2014 18:40:02
• AW: VBA Formel mit Bedingung in anderer Spalte - von Frank am 12.11.2014 11:07:00

Betrifft: VBA Formel mit Bedingung in anderer Spalte von: Jan Eschl
Geschrieben am: 11.11.2014 18:40:02

erstmal mein Worksheet

https://www.herber.de/bbs/user/93690.xlsx

Folgendes Problem:

ich habe in Zeile 13 eine Gesamtsummenformel eingebaut die nur dann addiert wenn in zeile b ein wert steht
Sinn dahinter ist die übergliederung von abteilungen zu einem unternehmen
Jetzt will ich ein VBA-Modul bauen, dass immer wenn in spalte b ein wert steht in spalte t bis x in derselben zeile eine summenformel einfügt, die dann abbricht, wenn der nächste wert in spalte b steht

ist so etwas überhaupt möglich?
bisher habe ich es nur hinbekommen dass er checkt, ob in spalte b zeile 14 was steht und dann einfach in jeder zeile in t eine summe von den nächsten 5 spalten macht
das sah in etwa so aus

Sub SummeWenn_Makro()
Dim IntZeile As Integer
For Each Z In Z.Range("T14:T113")
If Cells(IntZeile, 2) = "" Then
Else
ActiveSheet.Range("T14").FormulaLocal = "=SUMME(T" & 15 & ":T" & 20 & ")"
End If
Next
End Sub

ist aber nichtmal annähernd das was ich brauche und funktioniert auch nicht...

Betrifft: AW: VBA Formel mit Bedingung in anderer Spalte von: Frank
Geschrieben am: 12.11.2014 11:07:00

Hallo Jan,

was meinst Du mit summenformel ..., die dann abbricht?
Wie soll die Formel abbrechen? Soll neu berechnet werden, wenn in B ein neuer Wert eingegeben wird?
Dann musst Du Deinen Code in Worksheet_Change-Ereignis einfügen und Target.Address auf $B$Zeile prüfen. Oder getrennt: Target.Row=Zeile und Target.Column=2

Grüsse,
Frank

Beiträge aus den Excel-Beispielen zum Thema "VBA Formel mit Bedingung in anderer Spalte"