VBA Anfänger Schleife mit 2 Bedingungen

Hey, ich erkläre euch kurz mein Vorhaben.
Ich habe eine Excel Mappe mit 2 Tabellen.
Tabelle 1 :
Enthält 3 Spalten: (Datum,Betrag,Kategorie)
Durch eine Schaltfläche kann man Eingaben machen.
Durch eine zweite Schaltfläche habe ich eine Userform in der man eine Datumszeitspanne eingibt und eine Kategorie. Dann soll eine Messagebox erscheinen, die einem sagt - wie teuer diese Kategorie (zb.Handy) in diesem Zeitraum war.
Man kann immer nur eine Kategorie auswählen.
Jetzt fängts an zu harken.
Ich weiß einfach nicht wie ich die Schleife schreibe, die 1. nur diesen Zeitraum nimmt und 2. Nur die Kategorie und 3. dann die Kosten von den Tagen und der Kategorie als Summe ausspuckt.
Ich habe erst ca. 15 Stunden Excel - VBA Erfahrung also seid gnädig. :D
Nur zur Info:
Tabelle 2 enthält eine Spalte mit den Kategorien die man erweitern kann und die Automatisch in die Userform übertragen werden.
Vielen Dank für die Hilfe.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub celina() Dim DatumVon As Long, DatumBis As Long, Kategorie As Variant 'Hier natürlich deine Werte aus dem UF DatumVon = CDate("15.03.2015") DatumBis = CDate("30.04.2015") Kategorie = "Kategorie1" With Sheets("Tabelle1") 'Tabellenname - Anpassen MsgBox Application.SumIfs(.Range("B2:B1000"), .Range("A2:A1000"), ">=" & DatumVon, _ .Range("A2:A1000"), "<=" & DatumBis, .Range("C2:C1000"), Kategorie) End With End Sub

Private Sub cmdBerechnen_Click() Dim datumvon As Long Dim datumbis As Long Kategorie As Variant letztezeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row datumab = txtdatumab datumbis = txtdatumbis Kategorie = ComboBox1 With Sheets("tabelle1") MsgBox Application.sumlfs(.Range("B2:B" & letztezeile), .Range("A2:A" & letztezeile), ">=" & _ datumab, .Range("A2:A" & letztezeile), "

Private Sub cmdBerechnen_Click() Dim datumvon As Long Dim datumbis As Long Dim Kategorie As Variant datumab = CDate(txtdatumab) datumbis = CDate(txtdatumbis) Kategorie = ComboBox1.Text With Sheets("tabelle1") MsgBox Application.sumlfs(.Range("B:B"), .Range("A:A"), ">=" & _ datumab, .Range("A:A"), "<=" & datumbis, .Range("C:C"), Kategorie) End With End Sub

Private Sub cmdBerechnen_Click() Dim datumab As Long Dim datumbis As Long Dim Kategorie As Variant letztezeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row datumab = CDate(txtdatumab) datumbis = CDate(txtdatumbis) Kategorie = ComboBox1 With Sheets("tabelle1") MsgBox Application.SumIfs(.Range("B:B"), .Range("A:A"), ">=" & datumab, .Range("A:A"), "

Private Sub OpbtnGesamterZeitraum_Click() With Sheets("Tabelle1") Ausgaben.txtdatumab = CDate(Application.Min(.Range("A:A"))) Ausgaben.txtdatumbis = CDate(Application.Max(.Range("A:A"))) End With End Sub

Private Sub cmdBerechnen_Click() Dim datumvon As Long Dim datumbis As Long Dim Kategorie As Variant letztezeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row datumab = CDate(txtdatumab) datumbis = CDate(txtdatumbis) Kategorie = ComboBox1 With Sheets("tabelle1") MsgBox Application.sumlfs(.Range("B:B"), .Range("A:A"), ">=" & datumab, .Range("A:A"), "

Beliebteste Forumthreads (12 Monate)

VBA Anfänger Schleife mit 2 Bedingungen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

335 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Anfänger Schleife mit 2 Bedingungen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

335 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread