Problem mit Select Case

Hallo liebes Forum,
Dank der Hilfe aus dem Forum berechne ich Eingänge und Ausgänge im Cash Flow.
Gestern hatte ich die Frage gestellt ob es Möglich ist, eine Variable in eine Access Abfrage einzubauen, da bekam ich leider Keine Reaktion drauf.
nun hab ich die Abfrage so umgebastelt, das mir quasi alle Monate in eine Liste gepackt werden.
in meinem Beispiel https://www.herber.de/bbs/user/31716.xls hab ich die Formeln, wie es gerechnet werden sollte und eine Userform eingebaut.
Es soll quasi, wenn man den Monat in der Inputbox eingegeben hat, nur nach diesem Monat gerechnet werden.
Könnte mir da jemand helfen? ich bekomms leider nicht alleine hin, denke mir es müsste irgendwie mit der Select Case Methode gehen, aber wie?
Vielen Dank für Eure Hilfe...
Grüße
Hansi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() Dim strMonth As String Dim i As Integer Dim Ab As Double, eb As Double, Var As Double, Eing As Double, Ausg As Double strMonth = InputBox("Bitte Monat angeben (z.Bsp. 02)", "Cash-Flow-Monat") With ActiveSheet For i = 2 To .Range("C65536").End(xlUp).Row ' Diese Zeile schaut ob das Datum in Spalte A dem eingegebenen Monat entspricht. If Month(.Cells(i, 3).Offset(0, -2)) = CInt(strMonth) Then If Cells(i, 3) > 0 Then Eing = Eing + CDbl(Cells(i, 3)) Else Ausg = Ausg + CDbl(Cells(i, 3)) End If End If Next i End With Ab = CDbl([C2] + [C3] + [c4]) eb = CDbl(Ab + Eing + Ausg) Var = CDbl(Eing + Ausg) txtVM.Text = Format(Ab, "#,##0.00") txtEing.Text = Format(Eing, "#,##0.00") txtAusg.Text = Format(Ausg, "#,##0.00") txtEb.Text = Format(eb, "#,##0.00") txtV.Text = Format(Var, "#,##0.00") End Sub

Hi Hansi,

Private Sub UserForm_Initialize()
Dim Eingabe As String, i As Integer, intMonth As Integer
Dim Ab As Double, eb As Double, Var As Double, Eing As Double, Ausg As Double
Dim Eing2 As Double, Ausg2 As Double
Eingabe = InputBox("Bitte Monat angeben (z.Bsp. 02)", "Cash-Flow-Monat")
'If Not Application.WorksheetFunction.IsNumber(Eingabe) Then Exit Sub
intMonth = CInt(Eingabe)
If intMonth < 1 Or intMonth > Month(Range("A65536").End(xlUp).Row) Then Exit Sub
i = 2
Ab = Cells(2, 3)
With ActiveSheet
While (Month(.Cells(i + 1, 3).Offset(0, -2)) <> intMonth)
i = i + 1
Ab = Ab + Cells(i, 3)
Wend
While (Month(.Cells(i + 1, 3).Offset(0, -2)) = intMonth)
i = i + 1
If Cells(i, 3) > 0 Then
Eing = Eing + CDbl(Cells(i, 3))
Else
Ausg = Ausg + CDbl(Cells(i, 3))
End If
Wend
End With
eb = CDbl(Ab + Eing + Ausg)
Var = CDbl(Eing + Ausg)
txtVM.Text = Format(Ab, "#,##0.00")
txtEing.Text = Format(Eing, "#,##0.00")
txtAusg.Text = Format(Ausg, "#,##0.00")
txtEb.Text = Format(eb, "#,##0.00")
txtV.Text = Format(Var, "#,##0.00")
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Problem mit Select Case

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread