wenn Zelle nicht leer dann nächste Zelle
27.07.2021 13:26:02
Mat
ich habe ein kleines Problem:
Ich habe einen Startbetrag den ich von extern eintrage in Zelle E4. In E5 ist der Restbetrag nach der Auswertung enthalten.
Ab der Zeile 5 werte ich die Spalten B und C aus. Dazu habe ich in Spalte B einen Betrag und in Spalte C ein "x" als Auswertemarker.
Es soll nur Summiert werden, wo ein x in Spalte C ist.
Ich habe mir einen Auswertebutton erstellt um die Auswertung zu starten.
Das klappt soweit ganz gut.
Und nun zum Problem:
Ich habe in H1 den Text Auswertedatum
H2 den Text Summe freigegeben
H3 ohne Freigabe
Jetzt soll passend dazu die Werte ab der Spalte I eingetragen werden. Wenn I belegt ist, dann J usw. für sagen wir mal 5 Auswertedaten.
Das ganze funktioniert aber nur genau 2 Mal. Ich nehme an, das liegt an dem Initialisieren der Spalte I als "Startspalte"
Wie bekomme ich es hin, das 5 "Datensätze" gespeichert werden?
Sub AuswertenUndAddieren()
Dim i_Datum As Integer
Dim i_Zähler As Integer
Dim ohneFreigabe As Integer
Dim SummeFreigabe As Currency
Dim test As Integer
Cells(3, 5) = 0 ' Initialisieren/Bereinigen der Zelle
ohneFreigabe = 0 ' Initialisieren des Merkers
i_Datum = 9 ' Initialisierung von Spalte I
' test = WorksheetFunction.CountA(Worksheets(1).Rows(1))
' ---- Auswertedaten eintragen
If Cells(1, i_Datum) = 0 Then
Cells(1, i_Datum) = CDate(Format(Now, "dd.mm.yy hh:mm"))
Else: i_Datum = i_Datum + 1
Cells(1, i_Datum) = CDate(Format(Now, "dd.mm.yy hh:mm"))
End If
' ----Auswertung
' For i_Zähler = 5 To 200
' If Cells(i_Zähler, 3) = "x" Then
' SummeFreigabe = SummeFreigabe + Cells(i_Zähler, 2)
' End If
' If Cells(i_Zähler, 1) > 0 And Cells(i_Zähler, 3) = "" Then
' ohneFreigabe = ohneFreigabe + 1
' End If