Berechnung in VBA Makro
26.01.2018 15:32:59
Armbruster
erstmal Grüße an Euch
Ich bin Anfänger in der Excel Makro
Programmierung und habe nun von meinem Vorgesetzten eine Aufgabe erhalten.
Nun könnte ich einen Tip von Euch gebrauchen.
Meine Frage: Wie kann ich Berechnungen in VBA durchführen.
Ich habe eine Tabelle nun sollten folgende Bedingungen erfüllt werden,
Wenn Zelle 1 Zahlx* und Zelle 2 Funktion wahr dann schreibe das Gesamtergebnis in Zelle 3 z.B.
Ich habe hier einige Ansätze versucht komme aber nicht zum vernünftigen Ergebnis.
Ich kopiere hier den Code und hänge einen Auszug der Tabelle an.
Ich sage gleich dazu, ich habe da verschiedene Elemente zusammengeführt.
Private Sub cmdDatenAufbereiten_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer
Dim SummeGrundmiete As Single
Dim SummeGrundmieteTechnik As Single
Dim summeHeizung As Single
Dim SummeKlima As Single
Dim SummeMoebelmiete As Single
Dim SummeZusW As Single
Dim SummeZusP As Single
Dim SummeZusF As Single
Dim SummeFlaeche As Single
'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_pit").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 "0000295*" And Cells(k, 4) Like True Then
Cells(5, 12).Formula = "=sum($C$5:$c$100)"
End If
If Cells(k, 2) Like "0000404*" And Cells(k, 4) Like True Then
Cells(6, 12).Formula = "=sum($C$5:$c$100)"
End If
Next k
End Sub