Office: (Office 2010) Kassenbuch-Bastelstunde

Helfe beim Thema Kassenbuch-Bastelstunde in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Ok schade leider gehts bei mir nicht. Er blendet sie aus aber leider nicht ein. Sollte da etwa das Excel 2010 dran schuld sein? Was für eine... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von biinng, 27. Juli 2010.

Seite 6 von 7

BIINNG

biinng

Kassenbuch-Bastelstunde

Ok schade leider gehts bei mir nicht. Er blendet sie aus aber leider nicht ein.
Sollte da etwa das Excel 2010 dran schuld sein?
Was für eine alternative hätte ich denn sonst noch?

biinng, 15. August 2010

#76
USER

User

Hallo kai
der Code soll doch wenn die Form erscheint, in alle Checkboxen einen Haken setzen und die Boxen ausblenden. Das passiert ja auch.
Wenn Du moechtest das die Txtboxen beim Haken entfernen erscheinen sollen musst Du fuer jede Checkbox einen Code nehmen.
Musste mal wieder so kommen, kann mich im Moment nicht anmelden,
gruss hary

User, 15. August 2010

#77
BIINNG

biinng

Ok dann werde ich es wohl so machen müssen....

Code:

Private Sub CheckBox11_Click()
If Not CBool(CheckBox11.Value) Then
ZB11.Visible = True
End If
If CBool(CheckBox11.Value) Then
ZB11.Visible = False
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Viel Text für wenig Bewegung *Smilie

vielleicht noch eine andere bitte kannst du mir verraten wie ich diesen Code kürzen kann...

Code:

Dim ws As Worksheet
Dim lzeile As Long
Dim zeile As Long
Set ws = Worksheets("Lager")

With ws
lzeile = .Cells(Rows.Count, 3).End(xlUp).Row
For zeile = lzeile To 8 Step -1
If .Cells(zeile, 7) = 1 _
And A11 = "" Then
A11 = .Cells(zeile, 3)
Z11 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And A12 = "" Then
A12 = .Cells(zeile, 3)
Z12 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And A13 = "" Then
A13 = .Cells(zeile, 3)
Z13 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And A14 = "" Then
A14 = .Cells(zeile, 3)
Z14 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And Not IsEmpty(A14) _
And A15 = "" Then
A15 = .Cells(zeile, 3)
Z15 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And Not IsEmpty(A14) _
And Not IsEmpty(A15) _
And A16 = "" Then
A16 = .Cells(zeile, 3)
Z16 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And Not IsEmpty(A14) _
And Not IsEmpty(A15) _
And Not IsEmpty(A16) _
And A17 = "" Then
A17 = .Cells(zeile, 3)
Z17 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And Not IsEmpty(A14) _
And Not IsEmpty(A15) _
And Not IsEmpty(A16) _
And Not IsEmpty(A17) _
And A18 = "" Then
A18 = .Cells(zeile, 3)
Z18 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And Not IsEmpty(A14) _
And Not IsEmpty(A15) _
And Not IsEmpty(A16) _
And Not IsEmpty(A17) _
And Not IsEmpty(A18) _
And A19 = "" Then
A19 = .Cells(zeile, 3)
Z19 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And Not IsEmpty(A14) _
And Not IsEmpty(A15) _
And Not IsEmpty(A16) _
And Not IsEmpty(A17) _
And Not IsEmpty(A18) _
And Not IsEmpty(A19) _
And A20 = "" Then
A20 = .Cells(zeile, 3)
Z20 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And Not IsEmpty(A14) _
And Not IsEmpty(A15) _
And Not IsEmpty(A16) _
And Not IsEmpty(A17) _
And Not IsEmpty(A18) _
And Not IsEmpty(A19) _
And Not IsEmpty(A20) _
And A21 = "" Then
A21 = .Cells(zeile, 3)
Z21 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And Not IsEmpty(A14) _
And Not IsEmpty(A15) _
And Not IsEmpty(A16) _
And Not IsEmpty(A17) _
And Not IsEmpty(A18) _
And Not IsEmpty(A19) _
And Not IsEmpty(A20) _
And Not IsEmpty(A21) _
And A22 = "" Then
A22 = .Cells(zeile, 3)
Z22 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And Not IsEmpty(A14) _
And Not IsEmpty(A15) _
And Not IsEmpty(A16) _
And Not IsEmpty(A17) _
And Not IsEmpty(A18) _
And Not IsEmpty(A19) _
And Not IsEmpty(A20) _
And Not IsEmpty(A21) _
And Not IsEmpty(A22) _
And A23 = "" Then
A23 = .Cells(zeile, 3)
Z23 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And Not IsEmpty(A14) _
And Not IsEmpty(A15) _
And Not IsEmpty(A16) _
And Not IsEmpty(A17) _
And Not IsEmpty(A18) _
And Not IsEmpty(A19) _
And Not IsEmpty(A20) _
And Not IsEmpty(A21) _
And Not IsEmpty(A22) _
And Not IsEmpty(A23) _
And A24 = "" Then
A24 = .Cells(zeile, 3)
Z24 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And Not IsEmpty(A14) _
And Not IsEmpty(A15) _
And Not IsEmpty(A16) _
And Not IsEmpty(A17) _
And Not IsEmpty(A18) _
And Not IsEmpty(A19) _
And Not IsEmpty(A20) _
And Not IsEmpty(A21) _
And Not IsEmpty(A22) _
And Not IsEmpty(A23) _
And Not IsEmpty(A24) _
And A25 = "" Then
A25 = .Cells(zeile, 3)
Z25 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And Not IsEmpty(A14) _
And Not IsEmpty(A15) _
And Not IsEmpty(A16) _
And Not IsEmpty(A17) _
And Not IsEmpty(A18) _
And Not IsEmpty(A19) _
And Not IsEmpty(A20) _
And Not IsEmpty(A21) _
And Not IsEmpty(A22) _
And Not IsEmpty(A23) _
And Not IsEmpty(A24) _
And Not IsEmpty(A25) _
And A26 = "" Then
A26 = .Cells(zeile, 3)
Z26 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And Not IsEmpty(A14) _
And Not IsEmpty(A15) _
And Not IsEmpty(A16) _
And Not IsEmpty(A17) _
And Not IsEmpty(A18) _
And Not IsEmpty(A19) _
And Not IsEmpty(A20) _
And Not IsEmpty(A21) _
And Not IsEmpty(A22) _
And Not IsEmpty(A23) _
And Not IsEmpty(A24) _
And Not IsEmpty(A25) _
And Not IsEmpty(A26) _
And A27 = "" Then
A27 = .Cells(zeile, 3)
Z27 = .Cells(zeile, 8)

ElseIf .Cells(zeile, 7) = 1 _
And Not IsEmpty(A11) _
And Not IsEmpty(A12) _
And Not IsEmpty(A13) _
And Not IsEmpty(A14) _
And Not IsEmpty(A15) _
And Not IsEmpty(A16) _
And Not IsEmpty(A17) _
And Not IsEmpty(A18) _
And Not IsEmpty(A19) _
And Not IsEmpty(A20) _
And Not IsEmpty(A21) _
And Not IsEmpty(A22) _
And Not IsEmpty(A23) _
And Not IsEmpty(A24) _
And Not IsEmpty(A25) _
And Not IsEmpty(A26) _
And A27 = "" Then
A27 = .Cells(zeile, 3)
Z27 = .Cells(zeile, 8)
End If
Next zeile
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke schon mal das du mir geholfen hast.

biinng, 15. August 2010

#78
HARY

hary

Kassenbuch-Bastelstunde

Hallo
so gehts auch.
Code:

Private Sub CheckBox11_Click()
If CheckBox11.Value = False Then
ZB11.Visible = True
Else
ZB11.Visible = False
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

vlt. geht das auch ueber ein Klassenmodul, damit habe ich mich aber noch nicht befasst.
gruss hary
furs andere schau ich mal heute abend rein, jetzt Feierabend

hary, 15. August 2010

#79
BIINNG

biinng

allso es funktioniert ..... Super.... etwas Komplizierter aber es geht und das ist wichtig....

Code:

Private Sub CheckBox11_Click()
If CBool(CheckBox11.Value) Then
ZB11.Visible = False
End If
If Not CBool(CheckBox11.Value) Then
ZB11.Visible = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

biinng, 15. August 2010

#80
JINX

jinx

Moin, Kai,

Code:

Private Sub CheckBox11_Click()

ZB11.Visible = Not CheckBox11.Value

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

jinx, 15. August 2010

#81
BIINNG

biinng

Danke schön... manchmal ist weniger mehr .... *biggrin.gif*

biinng, 15. August 2010

#82
HARY

hary

Kassenbuch-Bastelstunde

Hallo Kai
zum Code kuerzen siehe Anhang.
gruss hary

hary, 16. August 2010

#83
BIINNG

biinng

Recht Herzlichen dank..... geht wunderbar und schaut auch noch gut aus .... *top

biinng, 16. August 2010

#84
BIINNG

biinng

und wieder was .....

Code:

Private Sub UserForm_Initialize()

TextBox2.Text = Format(Worksheets("Monatsabrechnung").Range("P21"), "##.#0 €")

Dim b As Integer
For b = 11 To 30 Step 1
Me("CheckBox" & b) = True
Next

lzeile = Worksheets("Lager").Cells(Rows.Count, 3).End(xlUp).Row
a = 11 'Startvariable fuer Boxen
For zeile = 8 To lzeile
If Me.Controls("A" & a).Name = "A31" Then Exit Sub ' wenn mehr Artikel als Boxen Code beenden
If Worksheets("Lager").Cells(zeile, 7) = 1 Then
Me.Controls("A" & a) = Worksheets("Lager").Cells(zeile, 3)
Me.Controls("Z" & a) = Worksheets("Lager").Cells(zeile, 8)
a = a + 1
End If
Next zeile

'______________________________________________________
lzeile = Worksheets("Lager").Cells(Rows.Count, 3).End(xlUp).Row
For a = 11 To 30 Step 1
For zeile = 8 To lzeile Step 1
If Me.Controls("ZB" & a) Me.Controls("Z" & a) Then
Worksheets("Lager").Cells(zeile, 8).Value = Me.Controls("ZB" & a)
End If
Next
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

'___________________________
Eigentlich soll der Code den Unterschied in das "Lager" eintragen. Aber leider nullt er er alles.

Was mich immer wieder ein wenig Wurmt ist das ich mitlerweile ein Teil an Codes den ich einfüge bzw. doch selber schreibe auch deuten kann aber leider mir bei vielen Sachen einfach nicht zu Helfen weiß.

biinng, 16. August 2010

#85
HARY

hary

Hallo kai
Was auffaellt:
Deine Schleife muesste auch noch txtbox A mit SpalteB im Blatt Lager vergleichen, damit auch in die richtige zeile geschrieben wird.
Die variable a fehlt : Dim a as long
Schreib mal gaaanz oben ueber dem Code: Option Explicit
damit werden einige Fehler scon mal ausgeschlossen.
etwa so:
Code:

Option Explicit

Private Sub UserForm_Initialize()
Dim t As Long
Dim lzeile As Long
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Teste mal Deinen Code in Einzelschrittpruefung(F8), wenn Du dann mit der Maus ueber die variablen faehrst wird angezeigt was fuer einen Wert diese hat.

gruss hary

hary, 16. August 2010

#86
HARY

hary

hallo kai
Hab schnell vor Feierabend Code eingefuegt. Eintrag nach Button betaetigung.
siehe Anhang.
gruss hary

hary, 16. August 2010

#87
BIINNG

biinng

Kassenbuch-Bastelstunde

Super.. ich danke dir ... aber du bescherst mir immer wieder Denksportaufgaben... "LookIn, LookAt" ein paar neue Begriffe die ich mir zu gemühte führen werde. *grins

biinng, 16. August 2010

#88
HARY

hary

Hallo kai
naechste Frage(Ueberwachung) vorweggenommen: siehe Anhang
gruss hary

hary, 17. August 2010

#89
BIINNG

biinng

ok nu bin ich baff.... danke schön werde ich einbauen.... *Smilie

biinng, 17. August 2010

#90

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 6 von 7

Thema:

Kassenbuch-Bastelstunde

Die Seite wird geladen...

Kassenbuch-Bastelstunde - Similar Threads - Kassenbuch Bastelstunde
Kassenbuch Tagessaldo anzeigen
in Microsoft Excel Hilfe
Kassenbuch Tagessaldo anzeigen: Moin Moin. Ich bastel mir gerade ein Kassenbuch zusammen. Jetzt habe ich allerdings eine Frage dazu: Wie bekomme ich es hin dass der Tagessaldo in einem beliebigen Feld angezeigt wird? Da ich ja...
Kassenbuch
in Microsoft Excel Hilfe
Kassenbuch: Hallo zusammen, ich benutze Zwei Excel Dateien zum berechnen meiner Provision und div. anderen vertriebsrelevanten Werte. Die Dateien sind identisch und unterscheiden sich nur im Namen. Die eine...
Kassenbuch
in Microsoft Access Hilfe
Kassenbuch: Hi, hat zufällig jemand eine Beispielsdatenbank für ein Kassenbuch da? Bräuchte folgende Sachen: mehrere Konten, Kategorien, Buchungen natürlich. Berichte: sollten dann jedes Jahr einen...
Kassenbüch | Übertrag aus Vormonat
in Microsoft Access Hilfe
Kassenbüch | Übertrag aus Vormonat: Hallo liebe Leute, ich bastel mir gerade ein Kassenbuch. Nun steh ich aber vor einem Problem. Jeden Monat möchte ich einen Auszug aus dem Kassenbuch und verschicken. Alles soweit prima. Ich...
Kassenbuch unter Access!! Big Prob mit Tagessummen!!
in Microsoft Access Hilfe
Kassenbuch unter Access!! Big Prob mit Tagessummen!!: Hallo. Bin absolut neu hier und hab auch noch nicht soviel Erfahrungen mit Access. Ich möchte mir ein Kassenbuch schreiben, wo ich am Ende eines jeden Tages die Summe meiner Einnahmen-Ausgaben...
kassenbuch mit gesamtübersicht
in Microsoft Excel Hilfe
kassenbuch mit gesamtübersicht: Guten Abend Office Gemeinde. Zunächst allen ein gutes und erfolgreiches 2015. Nun zu meinem anliegen. Ich schreibe für mein kleines Unternehmen das Kassenbuch in Excel. Jeden Monat habe ich...
Kassenbuch...
in Microsoft Excel Hilfe
Kassenbuch...: Hallo, Ich wende mich mal wieder an euch in Hoffnung um Hilfe... Bei meinem Kassenbuch, das wir zu zweit nutzen, benutze ich momentan die Formel SUMMENPRODUKT((Spalte wo Kürzel stehen...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden