VBA Lösung bitte gesucht

Forumthread: VBA Lösung bitte gesucht

11.12.2006 10:50:53

Josef

Hallo!
Ich würde bitte eine Lösung für folgendes Problem suchen:
Wenn im Datumswert(z.B. 02.01.2007) in Tabelle1 Spalte E der Monat 1 ist und wenn der Eintrag in Spalte D ident ist mit dem Eintrag in der TextBox1, dann sollen alle Werte daneben in der Spalte F zusammengezählt werden und in die Textbox (z.B.2) einer UserForm die Summe eingetragen werden.
Danke
Josef

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Lösung bitte gesucht

11.12.2006 11:09:17

Ptonka

Hallo Josef,
da musst Du Dich schon ein wenig detaillierter ausdrücken. Mit dem was Du da schreibst, kann man nur ansatzweise etwas anfangen.
Gruß,
Ptonka

AW: VBA Lösung bitte gesucht

11.12.2006 11:09:20

Ptonka

Hallo Josef,
da musst Du Dich schon ein wenig detaillierter ausdrücken. Mit dem was Du da schreibst, kann man nur ansatzweise etwas anfangen.
Gruß,
Ptonka

AW: VBA Lösung bitte gesucht

11.12.2006 11:33:36

Josef

Hallo Ptonka!
zu
Wenn im Datumswert(z.B. 02.01.2007) in Tabelle1 Spalte E der Monat 1
In der Spalte E in Tabelle1 ist von E2 - E252 das Jahr enthalten.
also E2= 02.01.2007,E3=03.01.2007 usw. Feiertage und Wochenenden kommen darin nicht vor.
In der Spalte C ist der Wert 33 und zwar von C2 - C252.
Das ganze geht weiter mit 34 in der Spalte C von C253 - C503 ebenfalls mit dem Datum in der Spalte E253 - E503
Jetzt zur Userform:
Wenn in der TextBox1 in der UserForm der Wert 33 eingetragen ist und mit dem Wert in der Spalte C ident ist und wenn der Monatswert in der Spalte E eine 1 (also Jänner) ist, dann sollen alle Werte in der Spalte F zusammengezählt und in der TextBox2 eingetragen werden.
Josef

AW: VBA Lösung bitte gesucht

11.12.2006 11:44:43

Ptonka

Hallo Josef,
ich habe mal versucht, Deine Frage zu verstehen und ich denke, nach mehrmaligen Lesen ist es mir gelungen:
Also, Du hast in Spalte D diverse Kriterien in Textform stehen.
In Spalte E stehen diverse Daten in Form von TT.MM.JJJJ
In Spalte F stehen Zahlen.
Es sollen also, wenn in einer Userform auf einer Textbox 1 eines der Kriterien aus der Spalte D eingegeben werden, alle jene Werte in Spalte F zusammenaddiert werden, wo in Spalte E der Monat = 1 ist.
Ich gehe mal davon aus, dass es immer der Monat 1 (=Januar) sein soll.
Also - erzeuge eine Userform mit 2 Textboxen (Textbox1 und Textbox2).
Per Doppelklick auf die Textbox1 gelangst Du in den Change-Code dieser Textbox1.
Hier gebe folgenden Code ein:
Dim Mo As Date


Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub


Private Sub TextBox1_Change()
UserForm1.TextBox2.Value = 0
Anzahl = [E65536].End(xlUp).Row
For i = 2 To Anzahl
Mo = Cells(i, 5).Value
Mon = Month(Mo)
Select Case Mon
Case Is = 1
Wert_Tabelle = Cells(i, 4).Value
Select Case Wert_Tabelle
Case Is = UserForm1.TextBox1.Value
UserForm1.TextBox2.Value = UserForm1.TextBox2.Value + Cells(i, 6).Value
End Select
End Select
Next i
End Sub

Bitte probier es mal aus und gib auch ein Feedback.
Gruß,
Ptonka

AW: VBA Lösung bitte gesucht

11.12.2006 12:09:09

Josef

Hallo Ptonka!
Habe den Code jetzt angepasst, Textbox1_Change auf CommandButton1 gesetzt und bekomme den Fehler bei
Mo = Cells(i, 5).Value


Private Sub CommandButton2_Click()
Dim i
UserForm3.TextBox138.Value = 0
Anzahl = [E65536].End(xlUp).Row
For i = 2 To Anzahl
Mo = Cells(i, 5).Value
Mon = Month(Mo)
Select Case Mon
Case Is = 1
Wert_Tabelle = Cells(i, 4).Value
Select Case Wert_Tabelle
Case Is = UserForm3.TextBox137.Value
UserForm3.TextBox138.Value = UserForm3.TextBox138.Value + Cells(i, 6).Value
End Select
End Select
Next i
End Sub

hier ist eine musterdatei
https://www.herber.de/bbs/user/38876.xls
Josef

AW: VBA Lösung bitte gesucht

11.12.2006 14:32:51

Ptonka

Hallo,
hast Du denn auch vor Deiner Prozedur
Dim Mo as Date
stehen?
Du musst die Variable Mo als Datum deklarieren, sonst erkennt Excel nur die laufende Zahl.
Gruß,
Ptonka

AW: VBA Lösung bitte gesucht

11.12.2006 14:41:23

Josef

Hallo Ptonka!
Dim Mo as Date hatte ich am Anfang gesetzt.
Mo = Cells(i, 5).Value wird aber markiert mit dem Hinweis Typen unverträglich.
Josef

AW: VBA Lösung bitte gesucht

11.12.2006 15:03:50

Ptonka

Hallo,
dann liegt der Fehler wahrscheinlich in Deiner Schleife.
Hast Du vielleicht eine Überschrift über Deinen Daten in Zeile 1 und beginnt Deine Schleife mit 1 to Anzahl ?
Dann solltest Du dies ändern und mit 2 to Anzahl beginnen.
Vermutlich liest Excel Deine Überschrift ein und dies ist kein Datum sondern Text.
Gruß,
Ptonka

AW: VBA Lösung bitte gesucht

11.12.2006 15:47:07

Ptonka

bitte checke auch, ob die Zellen in der Spalte mit den Daten auch als Datum formatiert sind !
Gruß,
Ptonka

AW: VBA Lösung bitte gesucht

11.12.2006 20:57:41

Josef

Hallo Ptonka!
Habe jetzt zu Hause einen Test gemacht.
Es funktioniert nur zur Hälfte wenn ich folgendes mache:
Aus der Musterdatei müßte ich ab Zeile 250 alles löschen, dann kann ich in die Combobox die Zahl 33 eingeben. aber als Ergebnis kommt in der TextBox2 nur eine 0 heraus.
für mich wären aber auch die anderen Zeilen sehr wichtig.
für die Zahlen 33,34,35,36,37,38,39,40 gibt es jeweils einen kompletten Datum Jahressatz, wobei im Jahr 2007 3 Leerzeilen beim Datum wären.
josef

AW: VBA Lösung bitte gesucht

12.12.2006 10:55:24

Ptonka

Hallo Josef,
ich habe Deine Datei angepasst. Du findest sie hier:
https://www.herber.de/bbs/user/38902.xls
Ich habe noch folgendes geändert: Vor der Zuweisung des Datums, habe ich eine If_Abfrage gesetzt, die prüft, ob die Zelle leer ist, oder nicht.
Desweiteren war es noch nowendig, die Variable "Wert_Tabelle" als String zu dimensionieren, da die Zuweisung aus der Tabelle als Zahl definiert wurde, die Textbox aber nur Text (String) übernimmt.
Ich hoffe, jetzt klappt es auch bei Dir. Ausbauen kannst Du den Code selber - oder ?
Gruß,
Ptonka
P.S. Feedback interessiert alle.

AW: VBA Lösung bitte gesucht

12.12.2006 12:11:50

Josef

Hallo Ptonka!
Danke für die Musterdatei.Der erste Test war vielversprechend. Ich werde mal das ganze in mein Projekt einbauen und nochmals testen.
Danke für Deine Hilfe
Josef

Beliebteste Forumthreads (12 Monate)

Forumthread: VBA Lösung bitte gesucht

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread