ich benötige Eure Hilfe für eine Berechnung in VBA für Excel
Ich habe eine Tabelle z.B.
A= Mehrere Kst Nummerisch z.B. 295 / 213 / 292
B= Mehrere Flächen in Quadratmeter z.B. 15 / 20 / 23
C= Bedingung Wahr oder Faslch
Es soll eine Addition der Gesamtsumme der Fläche B erfolgen
wenn Kst A z.B. 295 und C Bedingung WAHR
Das ist bisher der Code
Ich habe bei den IF Bedingungen keine Lösung gefunden.
Ich bedanke mich recht herzlich für Eure Hilfe
Gruß
Uwe Armbruster
Link zur Tabelle siehe unten
Private Sub cmdDatenAufbereiten_Click()
Dim k As Integer
'Löschen Daten_DB
Sheets("Daten_DB").Select
Range("A4:K" & ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row).ClearContents
'Übertragen der Daten aus RAW_pit nach Daten_DB
Sheets("RAW").Activate
ActiveSheet.Range("A1").Activate
ActiveSheet.Range("A1:K" & ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Daten_DB").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Spaltenbreite Makro
Columns("C:C").EntireColumn.AutoFit
Cells.Select
Cells.EntireColumn.AutoFit
For k = 5 To ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
If Cells(k, 2) Like "0000295913" And Cells(k, 4) Like True Then
Cells(42, 12).Formula = "=sum$c$5:$c$9)"
End If
If Cells(k, 2) Like "0000404*" And Cells(k, 4) Like True Then
Cells(6, 12) = Cells(k, 3)
End If
Next k
End Sub
Link zur Tabellehttps://www.herber.de/bbs/user/119405.zip