Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zu Viel für ein Anfänger (amonat )
zurück: geschützte Zellen überprinen weiter: überprüfen ob in einer Zeile kein Wert steht Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Ponko
Blutiger Anfänger


Verfasst am:
04. Mai 2007, 14:09
Rufname:
Wohnort: Basel CH


Zu Viel für ein Anfänger (amonat ) - Zu Viel für ein Anfänger (amonat )

Nach oben
       Version: Office XP (2002)

Hallo Liebe Excel Profis
Habe da so ein Problem mit dem ich nicht zu Recht komme, ist einfach eine Nummer zu groß für mich.
Nun ein lieber Forum User hat mir mal ein Code Geschrieben genau nach dem was ich wollte Funktioniert super war gute Arbeit. Nun aber erst jetzt bemerkte ich dass ich etwas ganz zentrales vergessen habe. Das ganze geht um eine Zahlungskontrolle.
Habe 12 Felder mit dem ich den Zahlungseingang Buche. Nun wen ich aber Zwei Zahlungen im Monat habe also 01.02.07 für Feb. Und dann am 28.02.07 Für März den geht das nicht hat jemand eine Idee wie man den Code ein bisschen verändern kann das er das auf den Folgemonat verbuchen könnte?


Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 16 And Target.Row = 28 Then
        buchen
        Cells(31, 18).Value = Cells(31, 18).Value + Cells(7, 10).Value
        Cells(31, 18).Value = Cells(31, 18).Value + Cells(9, 10).Value
    End If
End Sub

Private Sub buchen()
    Set myrange = ActiveSheet.Range("J7,J9,J23,J25")
    If VarType(Range("P25").Value) = 7 Then ' Wenn Eingabe Datum, dann
        amonat = Month(Range("P25"))
        Cells(41 + amonat * 2, 4) = WorksheetFunction.Sum(myrange)
        Cells(41 + amonat * 2, 3) = Range("P25").Value
        If amonat > 9 Then amonat = amonat - 12
        Cells(47 + amonat * 2, 12) = Range("P25").Value
        Cells(47 + amonat * 2, 13) = Range("J17").Value
       
    End If
    Range("P25").Value = ""
    Range("P25").Select
    Sheets("Index").Select
   
 End Sub


Ich hoffe es ist nicht all zu Komplieziert
gruss ponky
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Anfänger braucht Unterstützung 7 riwo 198 21. Feb 2012, 00:08
Guenter_Steiner Anfänger braucht Unterstützung
Keine neuen Beiträge Excel Formate: Anfänger - Problem -> Zeilen teilen 7 Beginna 805 08. Jul 2010, 12:15
Beginna Anfänger - Problem -> Zeilen teilen
Keine neuen Beiträge Excel Formeln: Lösung für Anfänger ??? 2 luna0107 411 03. Mai 2010, 22:33
luna0107 Lösung für Anfänger ???
Keine neuen Beiträge Excel Formeln: Excel Anfänger braucht dringend Hilfe! Welcher Befehl?DB? 10 assy 514 22. Feb 2010, 15:56
assy Excel Anfänger braucht dringend Hilfe! Welcher Befehl?DB?
Keine neuen Beiträge Excel Formeln: Suchhilfe für Anfänger 3 Gast 596 18. Aug 2008, 15:22
Alterweg Suchhilfe für Anfänger
Keine neuen Beiträge Excel Formeln: Blutiger Anfänger benötigt Hilfe ... 1 Gast 291 27. Mai 2008, 20:14
urs Blutiger Anfänger benötigt Hilfe ...
Keine neuen Beiträge Excel Formate: Anfänger 5 hawkins 1122 25. März 2008, 09:21
hawkins Anfänger
Keine neuen Beiträge Excel Formeln: anfänger hat frage zu prozentberechnung 2 mcneal 497 23. Jan 2008, 11:02
mcneal anfänger hat frage zu prozentberechnung
Keine neuen Beiträge Excel Formeln: Für Anfänger: Zellen-Farbe per Checkbox ändern.. 17 Tetrikus 6603 21. Dez 2007, 01:18
Hübi Für Anfänger: Zellen-Farbe per Checkbox ändern..
Keine neuen Beiträge Excel VBA (Makros): Anfänger sucht Hilfe 5 holdrio 493 25. März 2007, 22:06
Gast Anfänger sucht Hilfe
Keine neuen Beiträge Excel VBA (Makros): Progressbar, nur Probleme (Anfänger) 1 rollerfreak2 1020 27. Feb 2007, 17:15
Gast Progressbar, nur Probleme (Anfänger)
Keine neuen Beiträge Excel Formeln: Wieviele Einträge pro Tag? (Anfänger) 9 Orthanc 816 11. Feb 2007, 14:12
fridgenep Wieviele Einträge pro Tag? (Anfänger)
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme