Office: (Office 2010) Kassenbuch-Bastelstunde

biinng · 17. August 2010

Ich habe da ein kleinen Schönheitsfehler bzw der Code scheint meinen Rechner ganz schön zu fordern.
Der Code Funktioniert und macht auch alles was er soll aber ebend sehr Träge.
Ich gehe mal davon aus das der Code nur ungünstig geschrieben ist. Da aber meine VBA Kentnisse noch zu Oberflächlich sind kenne ich nich keine andere möglichkeit.

Code:

Option Explicit

Private Sub CommandButton1_Click()
UserForm4.Show
End Sub

Private Sub CommandButton2_Click()
Dim wksZ As Worksheet
Dim lzeile As Long
Dim zeile As Long
Dim Anzahl As Variant

Set wksZ = Worksheets("Monatsabrechnung")

With wksZ
lzeile = .Cells(Rows.Count, 7).End(xlUp).Row
For zeile = 5 To lzeile Step 1
Anzahl = .Cells(1, 7).End(xlUp).Row + zeile - 5
.Cells(zeile, 2) = Anzahl & "-" & .Cells(zeile, 5) & "-" & .Cells(zeile, 7) & "-" & .Cells(zeile, 4).Text
Next zeile
End With

End Sub

Private Sub CommandButton3_Click()
Dim zeile As Long, Suchzeile As Long

Range("P11:P16").ClearContents

For zeile = 11 To Range("O100").End(xlUp).Row
For Suchzeile = 4 To Range("C10000").End(xlUp).Row

If Cells(Suchzeile, 3) = Cells(zeile, 15) Then
Cells(zeile, 16) = Cells(Suchzeile, 9) + Cells(zeile, 16)
End If
Next
Next

Range("E1:E10000").ClearContents
Range("P4:P8").ClearContents

Dim i As Integer

For i = 5 To Range("F10000").End(xlUp).Row

If Cells(i, 7).Value >= 100 And Cells(i, 7).Value = 600 And Cells(i, 7).Value = 0 Then
Cells(i, 5) = "S"
Cells(8, 16) = Cells(i, 9) + Cells(8, 16)

End If
Next

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Worksheets("Monatsabrechnung").Cells(11, 15).Value = Worksheets("Mitarbeiter").Cells(2, 1).Value
Worksheets("Monatsabrechnung").Cells(12, 15).Value = Worksheets("Mitarbeiter").Cells(3, 1).Value
Worksheets("Monatsabrechnung").Cells(13, 15).Value = Worksheets("Mitarbeiter").Cells(4, 1).Value
Worksheets("Monatsabrechnung").Cells(14, 15).Value = Worksheets("Mitarbeiter").Cells(5, 1).Value
Worksheets("Monatsabrechnung").Cells(15, 15).Value = Worksheets("Mitarbeiter").Cells(6, 1).Value
Worksheets("Monatsabrechnung").Cells(16, 15).Value = Worksheets("Mitarbeiter").Cells(7, 1).Value

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hary · 17. August 2010

Hallo kai
Wie gesagt bei mir kommen Fehlermeldungen(siehe Bild) und beim Speichern zerschiesst deine Tabelle mein Excel.

Du hast Dein VBA Projekt Passwort geschuetzt.

Bin ab hier leider raus, helfe aber weiterhin sehr gerne.
gruss hary

biinng · 18. August 2010

ups .... stimmt hatte ich gestern neu gemacht das mit dem Passwort..... werd ich wieder rausnehmen....

Bin ab hier leider raus, helfe aber weiterhin sehr gerne.
gruss hary
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wie darf ich das verstehen.. du magst das Forum nicht mehr!! *eek.gif*

hary · 18. August 2010

Hallo Kai

wie darf ich das verstehen.. du magst das Forum nicht mehr!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nein!!! Wenn jemand schreibt: er ist raus, heisst es das derjenige bei diesem Problem nicht weiterhelfen kann.
Bei mir liegt's daran das ich nicht mit Deiner Mappe testen kann.
was machbar,helfe ich natuerlich weiter!!!
gruss hary

akshara · 18. August 2010

Moin Kai

zu #91, der Code funktioniert unter Excel 2000 einwandfrei. Wenn Du möchtest, Stoppe ich auch noch die Zeit, aber daran liegt Dein Problem wahrscheinlich nicht.

Code:

Private Sub CommandButton3_Click()
Dim zeile As Long, Suchzeile As Long, i As Long
Dim wksZ As Worksheet
Set wksZ = Worksheets("Monatsabrechnung")

wksZ.Range("P11:P16").Clear

For zeile = 11 To wksZ.Range("O100").End(xlUp).Row
For Suchzeile = 4 To wksZ.Range("C10000").End(xlUp).Row

If wksZ.Cells(Suchzeile, 3) = wksZ.Cells(zeile, 15) Then
wksZ.Cells(zeile, 16) = wksZ.Cells(Suchzeile, 9) + wksZ.Cells(zeile, 16)
End If
Next
Next

wksZ.Range("E1:E10000").Clear
wksZ.Range("P4:P8").Clear

With Sheets("Monatsabrechnung")
For i = 5 To wksZ.Range("F10000").End(xlUp).Row

If .Cells(i, 7).Value >= 100 And .Cells(i, 7).Value = 600 And .Cells(i, 7).Value = 0 Then
.Cells(i, 5) = "S"
.Cells(8, 16) = .Cells(i, 9) + .Cells(8, 16)
End If

Next
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

.

Ich baue Deine Tabelle auch nur Scheibchenweise nach, darum kann ich Deine Tabelle nicht testen, somit fällt mir keine Trägheit auf.

Gruß Sven

biinng · 18. August 2010

Also derzeit Funktioniert es ganz gut ich habe zwar nichts verändert... bzw. nicht bewusst verändert....

Ich habe aber gleich ein anderes Anliegen.

Code:

Private Sub ComboBox1_Change()
Dim zeile As Long

For zeile = 5 To Range("B65536").End(xlUp).Row
If ComboBox1 = Cells(zeile, 2) Then
ComboBox3 = Cells(zeile, 4)
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Er soll mir nicht nur in der ComboBox3 das Datum aus der Zelle D ausgeben sondern gleich noch einen Tag dazu.

Also wenn er in Combobox 3 der 17.08 drin steht dann soll er gleich noch den 18.08 als Auswahl dazufügen.

biinng · 18. August 2010

schon mal ein Vortschritt....

Code:

Private Sub ComboBox1_Change()
Dim zeile As Long

For zeile = 5 To Range("B65536").End(xlUp).Row
If ComboBox1 = Cells(zeile, 2) Then
ComboBox3.Clear
ComboBox3.AddItem Cells(zeile, 4)
ComboBox3.AddItem Cells(zeile, 4) + 1
End If
Next
ComboBox3.ListIndex = "0"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So weit so gut... nun habe ich aber ein Problem mit dem Format...

Code:

Private Sub ComboBox3_Change()
ComboBox3 = Format(ComboBox3.Value, ("dd.mm"))
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beim erstmal Funktioniert es aber wenn ich dann die erzeugte Zeile auswähle und ein neuen Eintrag starte zeigt er mir das ....

akshara · 18. August 2010

Moin Kai

kann Deinen Fehler nicht nachvollziehen, funktioniert. Entferne einmal .value, vielleicht funktioniert es dann.

Gruß SVen

jinx · 19. August 2010

Moin, Sven,

Entferne einmal .value, vielleicht funktioniert es dann.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Meines bescheidenen Wissens ist .Value auch bei einem Kombinationsfeld der Standardwert - da nützt ein Entfernen dann wohl nicht wirklich etwas, wenn der Standard genommen wird (und der wie doch gleich lautet *upps )... *wink.gif*

biinng · 19. August 2010

Also ich habe .Value wieder eingefügt...

das Format stimmt soweit nur das er mir nun nicht mehr den Punkt erzeugt..

Code:

Private Sub ComboBox1_Change()
Dim zeile As Long

For zeile = 5 To Range("B65536").End(xlUp).Row
If ComboBox1 = Cells(zeile, 2) Then
ComboBox3.Clear
ComboBox3.AddItem Cells(zeile, 4)
ComboBox3.AddItem Cells(zeile, 4) + 1
End If
Next
ComboBox3.ListIndex = "0"
End Sub

Private Sub ComboBox3_Change()
ComboBox3.Value = Format(ComboBox3.Value, ("dd.mm"))
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) Kassenbuch-Bastelstunde

Kassenbuch-Bastelstunde

Kassenbuch-Bastelstunde

Kassenbuch-Bastelstunde

Kassenbuch-Bastelstunde

Kassenbuch-Bastelstunde - Similar Threads - Kassenbuch Bastelstunde

Kassenbuch Tagessaldo anzeigen

Kassenbuch

Kassenbuch

Kassenbüch | Übertrag aus Vormonat

Kassenbuch unter Access!! Big Prob mit Tagessummen!!

kassenbuch mit gesamtübersicht

Kassenbuch...