Suchen, Berechnen
16.09.2020 15:06:45
xtian
ich sitze jetzt schon längere Zeit an einem Makro und bekomme es aufgrund meiner sehr geringen VBA
Kenntnisse leider nicht hin. Ich würde mich freuen, wenn mir hier jemand helfen könnte.
SpalteA...SpalteB .SpalteC
.Punkt 1.... .. ..0,2
.Punkt 1.1... ..1
.K... ..Text... 0,75 (0,75 soll durch die Berechnung 0,2*1*0,75=0,15 ersetzt werden)
.Punkt 2.... .. ..0,5
.K... ..Text... 1 (1 soll durch die Berechnung 0,5*1=0,5 ersetzt werden)
.K... ..Text... 1,2 (1,2 soll durch die Berechnung 0,5*1,2=0,6 ersetzt werden)
.Punkt 3.... .. ..0,02
.K... ..Text... 1 (1 soll durch die Berechnung 0,02*1*=0,02 ersetzt werden)
usw.
Das Makro soll zunächst in der Spalte A nach dem Buchstaben K suchen. Dann soll das Makro hier im
Beispiel in Zelle C3 das Ergebnis der Berechnung von Zelle C1*C2*C3 (0,15) eintragen.
Dann soll das Makro den nächsten Buchstaben K in der Spalte A suchen und hier im Beispiel in der
Zelle C5 das Ergebnis der Berechnung von Zelle C4*C5 (0,5) eintragen und auch zusätzlich in der
Zelle C6 das Ergebnis der Berechnung C4*C6 (0,6) eintragen.
Diesen Code habe ich bereits geschrieben, bringt aber nicht den gewünschten Erfolg.
Sub Test()
Dim RaZelle As Range
Dim LastRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For Each RaZelle In Range("B1:B" & LastRow)
If RaZelle = "Punkt 1" Then
RaZelle.Offset(1, 1) = RaZelle.Offset(-1, 1) * RaZelle.Offset(1, 1)
ElseIf RaZelle = "Punkt 2" Then
RaZelle.Offset(1, 1) = RaZelle.Offset(-1, 1) * RaZelle.Offset(1, 1)
ElseIf RaZelle = "Punkt 3" Then
RaZelle.Offset(1, 1) = RaZelle.Offset(-1, 1) * RaZelle.Offset(1, 1)
End If
Next RaZelle
End Sub
Christian