Office: (Office 2010) Kassenbuch-Bastelstunde

Helfe beim Thema Kassenbuch-Bastelstunde in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo... habe mal wieder ein kniffligen Fall... [img] derzeit verwende ich diese Formel. Sie Funktioniert perfekt aber... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von biinng, 27. Juli 2010.

Seite 5 von 7

BIINNG

biinng

Kassenbuch-Bastelstunde

Hallo... habe mal wieder ein kniffligen Fall...

derzeit verwende ich diese Formel. Sie Funktioniert perfekt aber

=WENN(ANZAHL(E8:K8)=0;L8;INDIREKT(ADRESSE(ZEILE();4+WOCHENTAG(HEUTE();2))))

ich habe festgestellt das mir noch eine Variable fehlt nämlich
die Uhrzeiten. Die Zeit von wann bis wann ein Artikel einem anderem Preis unterliegt..... *eek.gif*

Das soll mal ein Vba Code werden *grins
Code:

If Range(E5:K5) = Wochentag And ("ComboBox1:7") >= Uhrzeit And ("ComboBox8:14")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

biinng, 11. August 2010

#61
BIINNG

biinng

Nun habe ich schon ein wenig Probiert asber ich komme nicht damit klar das die aktuelle Uhrzeit mit der Combobox vergleicht.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

--> If Weekday(Date) = 1 And ("ComboBox14") >= CDate(Format(Now, "hh:mm")) And ("ComboBox7")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

biinng, 12. August 2010

#62
BIINNG

biinng

Moin moin.....
ich habe es hinbekommen aber leider nur mit Zelleneinträgen

Code:

If Weekday(Date) = 5 And Range("H6") = Time Then
Range("D8") = Range("H8")
Else
Range("D8") = Range("L8")
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie sage ich ihm das er mir die Uhrzeiten aus den Comboboxen liest.
Irgendwie hat er damit ein Problem.
Hat jemand eine Idee??

biinng, 12. August 2010

#63
AKSHARA

akshara

Kassenbuch-Bastelstunde

Moin Kai

Probiere einmal etwas aus. Habe Deine Tabelle zwar, aber kann es nicht öffnen, da .xlsm. Also wieder Arbeit für Dich, ANPASSEN. Ätsch.*biggrinlove

Code:

Private Sub PreisSuche_Click()
'Überprüfung welcher Wochentag'
Select Case Weekday(Date)
Case Is = 1 'Sonntag'
Exit Sub
Case Is = 2
Call Montag
Case Is = 3
Call Dienstag
Case Is = 4
Call Mittwoch
Case Is = 5
Call Donnerstag
Case Is = 6
Call Freitag
Case Is = 7
Call Samstag
End Select
End Sub

Sub Montag()
'Preissuche in Spalte Montag'
Dim ws As Worksheet
Set ws = Worksheets("Tagesarbeit")

'lZeile = letzte Zeile mit Inhalt'
lZeile = ws.Cells(Rows.Count, 2).End(xlUp).Row
'ComboBox1=Artikel, ComboBox2=Uhrzeit, ComboBox3=Uhrzeit'
With ws.Range("B4:B" & lZeile)
Set c = .Find(ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
If Time > ComboBox2.Text _
And Time < ComboBox3.Text Then
TextBox3.Value = ws.Cells(c.Row, 5)
Else
TextBox3.Value = ws.Cells(c.Row, 4)
End If
Else
MsgBox "Artikel nicht vorhanden.", vbOKOnly + vbInformation, "Fehler"
Exit Sub
End If
End With
End Sub

Sub Dienstag()

End Sub

Sub Mittwoch()

End Sub

Sub Donnerstag()
'Preissuche in Spalte Donnerstag'
Dim ws As Worksheet
Set ws = Worksheets("Tagesarbeit")
'lZeile = letzte Zeile mit Inhalt'
lZeile = ws.Cells(Rows.Count, 2).End(xlUp).Row
'ComboBox1=Artikel, ComboBox2=Uhrzeit, ComboBox3=Uhrzeit'
With ws.Range("B4:B" & lZeile)
Set c = .Find(ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
If Time > ComboBox2.Text _
And Time < ComboBox3.Text Then
TextBox3.Value = ws.Cells(c.Row, 8)
Else
TextBox3.Value = ws.Cells(c.Row, 4)
End If
Else
MsgBox "Artikel nicht vorhanden.", vbOKOnly + vbInformation, "Fehler"
Exit Sub
End If
End With
End Sub

Sub Freitag()

End Sub

Sub Samstag()

End Sub

Sub Sonntag()

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

Wenn Du Fragen hast, Versteck Sie.

Gruß Sven

akshara, 12. August 2010

#64
BIINNG

biinng

Danke schön für deine Hilfe.... ich habe es derweil so gelöst.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Protect "", UserInterfaceOnly:=True
For i = 8 To Range("D65536").End(xlUp).row

If Weekday(Date) = 5 And Range("H6") = Time Then
Cells(i, 4) = Cells(i, 8)

ElseIf Weekday(Date) = 2 And Range("E6") = Time Then
Cells(i, 4) = Cells(i, 5)

ElseIf Weekday(Date) = 3 And Range("F6") = Time Then
Cells(i, 4) = Cells(i, 6)

ElseIf Weekday(Date) = 4 And Range("G6") = Time Then
Cells(i, 4) = Cells(i, 7)

ElseIf Weekday(Date) = 6 And Range("I6") = Time Then
Cells(i, 4) = Cells(i, 9)

ElseIf Weekday(Date) = 7 And Range("J6") = Time Then
Cells(i, 4) = Cells(i, 10)

ElseIf Weekday(Date) = 1 And Range("K6") = Time Then
Cells(i, 4) = Cells(i, 11)
Else
Cells(i, 4) = Cells(i, 12)
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der der den Preis ändert muss ebend nur drauf achten das er das richtige Format angibt. Sonst gibts eine Fehlermeldung (Datenüberprüfung). Ansonsten Funktioniert es gut.

biinng, 12. August 2010

#65
BIINNG

biinng

Nun versuche ich grade diesen Code zu Kürzen aber es will mir nicht gelinngen.

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)

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 Not IsEmpty(A27) _
And A28 = "" Then
A28 = .Cells(zeile, 3)
Z28 = .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 Not IsEmpty(A27) _
And Not IsEmpty(A28) _
And A29 = "" Then
A29 = .Cells(zeile, 3)
Z29 = .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 Not IsEmpty(A27) _
And Not IsEmpty(A28) _
And Not IsEmpty(A29) _
And A30 = "" Then
A30 = .Cells(zeile, 3)
Z30 = .Cells(zeile, 8)
End If
Next zeile
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das soll die gekürzte Version sein, aber leider macht er garnichts mehr.....

Code:

Private Sub UserForm_Initialize()

Dim b As Integer
Dim ws As Worksheet
Dim lZeile As Long
Dim zeile As Long
Set ws = Worksheets("Lager")
For b = 11 To 30 Step 1
With ws
lZeile = .Cells(rows.Count, 3).End(xlUp).row
For zeile = lZeile To 8 Step -1

If .Cells(zeile, 7) = 1 _
And Not IsEmpty("A" & b) _
And ("A" & b) = "" Then
Me("A" & b) = .Cells(zeile, 3)
Me("Z" & b) = .Cells(zeile, 8)

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

Vielleicht hat jemand eine Idee was ich falsch gemacht habe... Gruß Kai

biinng, 12. August 2010

#66
BIINNG

biinng

Guten Abend....

Ich habe da mal wieder eine Frage.
Gibt es die Möglichkeit das man sich in einem Tabellenblatt anzeigen lässt welches Makro grade aktiv ist und welches nicht. Also das man sicher gehen kann das alle Makros aktiv sind und wenn nicht das man sie dann Aktivieren kann.
zB.

Ich öffne die Arbeitsmappe und er Zeigt mir auf "Tabellenblatt1" in A1 das das Zeitmakro aktiv ist und in A2 das Mitarbeitermakro.

Ich konnte leider nicht wirklich was im Netz finden.
Gruß Kai

biinng, 13. August 2010

#67
AKSHARA

akshara

Kassenbuch-Bastelstunde

Moin Kai

Abfrage ob ein Makro aktiviert wurde?
Wie wäre es am Beginn des Codes mit Range("A1")="Zeitmakro" , wenn es nicht Aktiv ist, hast Du ja etwas falsch gemacht. Wie Du einen Code aktivierst weist Du doch.
Möglichkeit auch über eine Variable als MsgBox, oder als Eintrag ins Arbeitsblatt.

Code:

Option Explicit
Dim Text1 As String
Dim Text2 As String

Sub Zeitmakro()
Text1 = "Zeitmakro"
End Sub

Sub Mitarbeitermakro()
Text2 = "Mitarbeiter"
End Sub

Private Sub UserForm_Initialize()
MsgBox Text1 & ", " & Text2 & " wurde aktiviert"
Text1 = 0
Text2 = 0
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Sven

akshara, 13. August 2010

#68
HARY

hary

Hallo kai
war/bin noch etwas ausser Gefecht ;-((
hab mal was zum Thread #61 gebastelt. Auch wenn Du schon geloest hast. Kann auf keinem meiner Computer was mit deiner mappe anfangen(hagelt Meldungen) nach dem Speichern.
schau mal in den Anhang. Geht um die Happyhour.
Gruss hary

hary, 13. August 2010

#69
BIINNG

biinng

Sers hary ich dachte schon es gibt dich nicht mehr.. *rolleyes.gif* ich hoffe du bist bald wieder richtig Fit bzw. es ist nichts ernstes. Gute Besserung derweil und ich werde dein Code mal gleich Testen....

Im Anhang mal wieder eine Aktuerlle Version meiner Kassenbuch Bastelstunde *tongue.gif*

biinng, 14. August 2010

#70
BIINNG

biinng

von akshara

Moin Kai

Abfrage ob ein Makro aktiviert wurde?
Wie wäre es am Beginn des Codes mit Range("A1")="Zeitmakro" , wenn es nicht Aktiv ist, hast Du ja etwas falsch gemacht. Wie Du einen Code aktivierst weist Du doch.
Möglichkeit auch über eine Variable als MsgBox, oder als Eintrag ins Arbeitsblatt.

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

Option Explicit
Dim Text1 As String
Dim Text2 As String

Sub Zeitmakro()
Text1 = "Zeitmakro"
End Sub

Sub Mitarbeitermakro()
Text2 = "Mitarbeiter"
End Sub

Private Sub UserForm_Initialize()
MsgBox Text1 & ", " & Text2 & " wurde aktiviert"
Text1 = 0
Text2 = 0
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Sven

Danke Sven werde den Copde gleich mal Probieren. Die Abfrage will ich nur Grafisch darstellen das jeder der das programm Startet auch sieht das alles Korekt geladen wurde. Ich würde es merken das was nicht stimmt aber die Bedienungen leider nicht.
Gleichzeitig soll es später mit ins Protokoll aufgenommen werden damit ich fehlerhalte Abrechnungen lokalisieren kann. *Smilie
Vertrauen ist gut Kontrolle ist besser. *wink.gif*

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

biinng, 14. August 2010

#71
BIINNG

biinng

Sers alle miteinander....

Ich habe ein Problem.....

Code:

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

Dim o As Integer
For o = 11 To 30 Step 1
If Not CBool("CheckBox" & o) Then
Me("ZB" & o).Visible = True

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

=Typen unverträglich

nur leider verstehe ich nicht warum. *eek.gif* Eigentlich geht es dadrum das ich mit Hilfe nicht aktivierter Checkboxen Textboxen einblenden will. ist die Checkbox aktiviert sollen die Textboxen ausgeblendet bleiben.

Hat jemand eine Idee.

So sollte es sein wenn die Checkbox nicht aktiviert ist.

Also wenn ich es als Einzelanweisung mache geht es.

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.

biinng, 15. August 2010

#72
HARY

hary

Kassenbuch-Bastelstunde

Moin Kai
so geht's
Code:

Dim i As Integer
For i = 11 To 30
If Me.Controls("CheckBox" & i).Value = True Then
Me.Controls("ZB" & i).Visible = False
Else
Me.Controls("ZB" & i).Visible = True
End If
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aber,meiner Meinung nach waers andersrum besser. Haken setzen wenns nicht passt und die textbox erscheint um die neue Anzahl einzutragen.
Oder nix von beiden, da sowieso gezaehlt wird gleich mit Listen- oder combobox die Anzahl eintragen lassen.
gruss hary

hary, 15. August 2010

#73
BIINNG

biinng

Moin... gleich ist es soweit .... ich beiße in meine Tastatur.... *tongue.gif*

Code:

Private Sub UserForm_Initialize()

Dim t As Integer
For t = 11 To 30
Me.Controls("CheckBox" & t).Value = True
If Me.Controls("CheckBox" & t).Value = True Then
Me.Controls("ZB" & t).Visible = False
Else
Me.Controls("ZB" & t).Visible = True
End If
Next
TextBox2.Text = Format(Worksheets("Monatsabrechnung").Range("P21"), "##.#0 ")

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

Der Code mag mich nicht.... bzw er macht nur den Rest bzw. alles nach "sonst"(Else) Ich ahbe geschaut ob die Bezeichnungen falsch sind oder die Zuordnungen aber ich kann nichts enddecken. ---> Private Sub UserForm_Initialize() sollte auch richtig sein......

Oder nix von beiden, da sowieso gezaehlt wird gleich mit Listen- oder combobox die Anzahl eintragen lassen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Grunde genommen hast du Recht..... ABER *wink.gif* Wenn ein Schichtwechsel vollzogen wird geht es drum das die Bedienung die die Schicht übernimmt einfach nur Schaut stimmen die Zahlen (ABSPERRGARNITUR für Portionierer mit Zählwerk) oder Stimmen sie nicht. Diese Zählwerke zählen aber nicht immer richtig beim Ausschenken.

biinng, 15. August 2010

#74
HARY

hary

Hallo
hier im Anhang gehts.
ich bekomme es mit deiner Bsp.-Mappe nicht hin, zerschiesst mir jedesmal Excel.
Aha:

ABSPERRGARNITUR für Portionierer mit Zählwerk
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

die teuren Dinger ;-))
haben wir auch mal fuer's Clubhaus angedacht, aber Daumenbreite is besser.
gruss hary

hary, 15. August 2010

#75

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

Seite 5 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