Office: (Office 2010) Kassenbuch-Bastelstunde

Helfe beim Thema Kassenbuch-Bastelstunde in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Moin, biinng, zu kompliziert gedacht - Du solltest in einer Zelle einer Spalte immer den Wert finden, der eingetragen werden soll. Also in der Spalte... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von biinng, 27. Juli 2010.

Seite 2 von 7

JINX

jinx

Kassenbuch-Bastelstunde

Moin, biinng,

zu kompliziert gedacht - Du solltest in einer Zelle einer Spalte immer den Wert finden, der eingetragen werden soll.

Also in der Spalte D der VK-Preise eine Formel wie die folgende einsetzen, um immer den aktuellen Preis zu erhalten:

Code:

=WENN(ANZAHL(E8:K8)=0;L8;INDIREKT(ADRESSE(ZEILE();4+WOCHENTAG(HEUTE();2))))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und es gibt die Entsprechung der Tabellenfunktion SVerweis als WorksheetFunction.VLookUp... *wink.gif*

jinx, 2. August 2010

#16
BIINNG

biinng

danke jinx.... werde dein Vorschlag gleich mal Testen....

biinng, 2. August 2010

#17
HARY

hary

Hallo

Preise bzw. die Wochenaktionen ändern soll es jeder ändern können ohne das ich erst kommen muss.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vorschlag:Dafuer wuerde ich aber in einer versteckten Tabelle ein Aenderungsprotokoll mitlaufen lassen.
zB.: Eine SK gibt aus versehen 1,50 ein, es sollte aber 2,50 sein. Der naechste Service rechnet zu 1,50 ab, wat nu?? Keiner war's und Du musst auf den Smart umsteigen statt auf den SL. ;-)))
gruss hary

hary, 2. August 2010

#18
BIINNG

biinng

Kassenbuch-Bastelstunde

na das wäre klasse..... nur wie machen ich das bzw. was Brauche ich dafür. Danke dir harry für den Tipp.... und ich habe garkein Auto ^^

andere Sache noch.... ich bekomme schon das Haare raufen .... *entsetzt *tongue.gif*
Es geht um eine Combobox in der Tabelle kein UserForm.

Wie kann ich diese mit Daten aus einem Anderen Tabellenblatt füllen?

ComboBox1 soll mit zwei Daten aus dem Tabellenblatt "Vk-Preis" Zelle C63:C64 auslesen....
Code:

If Target = Sheets("Vk-Preis").Range(C63, C64).Text Then
ComboBox1.ListFillRange = Target
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

biinng, 2. August 2010

#19
HARY

hary

Hallo Kai

ComboBox1 soll mit zwei Daten
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

was fuer zwei Daten?? oder meinst Du den Bereich?
Combobox einfuegen und unter Eigenschaften/ListFillRange den Bereich eintragen.
gruss hary

hary, 2. August 2010

#20
BIINNG

biinng

sorry gemeint war das die Combox die Daten von einem anderen Tabellenblatt bezieht.
habe beide Sheets versucht nix geht ...
Code:

With Worksheets("Vk-Preis")
ComboBox1.Column = Range("C63:C64").Value
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

If Target = Sheets("Vk-Preis").Range(C63, C64).Text Then
ComboBox1.ListFillRange = Target
End if
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

biinng, 2. August 2010

#21
HARY

hary

Hallo
Worksheets("Vk-Preis").ComboBox1.ListFillRange = "C63:C64"
gruss hary

hary, 2. August 2010

#22
BIINNG

biinng

Kassenbuch-Bastelstunde

Danke schön aber leider auch nicht.... irgendwas Passt da nicht ....

Code:

Private Sub ComboBox1_Change()
Worksheets("Vk-Preis").ComboBox1.ListFillRange = "C63:C64"
End Sub

Private Sub CommandButton4_Click()
Worksheets("Kasse").Range("C16:I40").ClearContents
End Sub

Private Sub CommandButton3_Click()
Worksheets("Kasse").Range("C17:I17").ClearContents
End Sub

Private Sub TextBox1_Change()
Cells(9, 4) = Format(TextBox1.Text, "###")
For i = 1 To Sheets("Vk-Preis").Cells(Rows.Count, 2).End(xlUp).Row + 1
If TextBox1.Text = Sheets("Vk-Preis").Cells(i, 2).Text Then
TextBox3.Text = Sheets("Vk-Preis").Cells(i, 4).Text
If TextBox1 > 99 Then
TextBox2.Text = ""
TextBox2.Activate
End If
End If
Next
End Sub

Private Sub TextBox2_Change()
TextBox2.Value = Format(TextBox2.Text, "##")
End Sub

Private Sub TextBox3_Change()
For i = 1 To Sheets("Vk-Preis").Cells(Rows.Count, 4).End(xlUp).Row + 1
If TextBox3.Text = Sheets("Vk-Preis").Cells(i, 4).Text Then
TextBox1.Text = Sheets("Vk-Preis").Cells(i, 2).Text
Exit Sub
End If
Next
End Sub
'=SVERWEIS(D9;'Vk-Preis'!B8:D100;3;0)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Protect "", UserInterfaceOnly:=True
If Not Intersect(Target, Range("D9,I9")) Is Nothing Then
If Range("D9") "" And Range("I9") "" Then
Cells(16, 4) = Cells(10, 4)
Cells(16, 7) = Cells(9, 9)
If Cells(14, 9) = "" Then
Cells(16, 9) = Cells(9, 6).Value * Range("I9").Value
Else
Cells(16, 9) = Cells(9, 6).Value * Range("I9").Value
Rows("16:16").Insert Shift:=xlDown
End If
End If
End If
End If
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 107 Then
Cells(9, 9) = TextBox2
Range("I9").ClearContents
TextBox1.Text = ""
TextBox1.Activate
TextBox2.Text = ""
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

biinng, 2. August 2010

#23
HARY

hary

Hallo
hatte falsch bzw. Kaese geschrieben, noch nicht wach :-((
setzt diesen Code ein. In den Code der ComboBox, den anderen(Change) raus.
Im Tabellen Namen macht das MinusZeichen Aerger auch entfernen.Also TabellenName muss lauten VKPreis. Bei Leerzeichen kommt auch ein Fehler.
Code:

Private Sub ComboBox1_GotFocus()
ComboBox1.ListFillRange = "VkPreis!$C$63:$C$64"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 2. August 2010

#24
BIINNG

biinng

Ich danke dir werde es gleich Probieren und nicht schlimm ich bin ja froh das man mir hilft.... aber die schweren Sachen kommen ja erst noch... *tongue.gif*

Ich habe da noch ein kleinen Mangel beim Artikelnummern Eintippen. Wenn ich die Zahl 102 oder 103 eintippe macht er fast immer eine 100 draus und ich habe kein Plan warum.Das selbe bei 201 da macht er mir eine 104 draus.
------------------------------------------------

Nachtrag:
Der Fehler ist behoben aber ich würde gern Wissen wie er Zustande kommt bzw warum.

alter Code -->.Cells

Code:

Private Sub TextBox1_Change()
Cells(9, 4) = Format(TextBox1.Text, "")
For i = 1 To Sheets("Preis").Cells(Rows.Count, 2).End(xlUp).Row + 1
If TextBox1.Text = Sheets("Preis").Cells(i, 2).Text Then
TextBox3.Text = Sheets("Preis").Cells(i, 4).Text
If TextBox1 > "###" Then
TextBox2.Text = ""
TextBox2.Activate
End If
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

neuer Code -->.Value

Code:

Private Sub TextBox1_Change()
For i = 1 To Sheets("Preis").Cells(Rows.Count, 2).End(xlUp).Row + 1
If TextBox1.Text = Sheets("Preis").Cells(i, 2).Value Then
TextBox3.Text = Sheets("Preis").Cells(i, 4).Value
If TextBox1 > 99 Then
TextBox2.Text = Clear
TextBox2.Activate
End If
End If
Next
Cells(9, 4) = Format(TextBox1.Text, "")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

biinng, 2. August 2010

#25
BIINNG

biinng

der letzte Beitrag war nicht ganz richtig.

Es lag am Format der Textbox3.
Code:

TextBox3.Value = Format(TextBox3.Text, "##.#0€")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ich habe zwar noch nicht verstanden warum das Format so ein durcheinander verursacht hat aber es ist gelöst das ist wichtig. *grins

biinng, 3. August 2010

#26
HARY

hary

Hallo Kai
Habe in der angehaengten Mappe mal zwei Codes drinn. Einmal mit find und einmal mit Schleife. Mit find ist z.Z. aktiv.
Artikelnummer eingeben, springt dann auf Anzahl. Berechnet wird direkt in der Liste ohne extra zelle.
gruss hary

hary, 3. August 2010

#27
BIINNG

biinng

Kassenbuch-Bastelstunde

Ja Hammer.. ich danke dir. Da gibt es nur ein kleinen Schönheitsfehler. Sobald ich die Anzahl der Bestellten Artikel eingeben will. Es kommt ja auch vor das man zb. 10 Cola oder Schnäpse hat und bei deiner Variante Springt er gleich bei der ersten Eingegeben Zahl wieder in die Artikel Box.

Ansonsten bin ich begeister wie kurz deine Vba Sheets sind *Smilie .
Hier mal mein Stand wie weit ich derzeit bin.

Also Perfekt wäre es wenn die Eingabe der Anzahl (Textbox2) mit der Entertaste Bestätigt werden muss.

Code:

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
TextBox1.Activate
'TextBox2.Text = ""
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

-----------------------------------------------

Dein Sheets habe ich erfolgreich bei mir in der Mappe eingebaut. *top

biinng, 3. August 2010

#28
HARY

hary

Moin
verstehe ich richtig.
Jetzt geht es mit Textbox2(Anzahl >9) bestaetigen mit der Entertaste?
Habe diesen Code fuer die Textbox2 in meinem Bsp.
Code:

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
If TextBox2 = "" Then Exit Sub
Cells(16, 4) = ArtikelBezeichnung
Cells(16, 7) = Int(TextBox2)
Cells(16, 9) = CDbl(TextBox3) * Int(TextBox2)
Rows("16:16").Insert Shift:=xlDown
TextBox1.Text = ""
TextBox2 = ""
TextBox3 = ""
Cells(10, 4) = ""
TextBox1.Activate
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

hary, 3. August 2010

#29
BIINNG

biinng

Passt Perfekt..... der Code. Hätte ich eigentlich selber drauf kommen können. *mrcool

Nun gut ..... gleich noch was anderes.

Code:

Private Sub TextBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then Exit Sub
If TextBox6 = "" Then Exit Sub
Cells(16, 4) = Int(TextBox5) ---> Typen unverträglich
Cells(16, 9) = Int(TextBox6)
Rows("16:16").Insert Shift:=xlDown
TextBox6.Text = ""
TextBox5.Text = ""
TextBox1.Activate
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn du da ein Tipp hättest und das Int hat es die Bedeutung "Syntax GANZZAHL"?
Wenn ja ist es klar das Int(Textbox5) ein Typenfehler hat da es ja mit Buchstaben gefüllt ist.

biinng, 3. August 2010

#30

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

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