Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

@ Josef E. Bitte um Tipp für Makro

@ Josef E. Bitte um Tipp für Makro
02.01.2007 21:48:01
Dennis
Hallo Josef...
Gestern hast du mir super mit einem Makro im Kassenbuch geholfen. Heute fiel mir dazu ein kleines Problem auf. Ich wollte heute mal die Monate Februar usw. anlegen und dacht einfach die Sachen rüber zu kopieren. Klappte auch alles super. Mein keines Problem, was mir da auffiel war, dass beim Makro oben in der Kopfzeile immer Januar 2007 steht. Du hast es im Makro so festgelegt. Ich möchte jedoch jeden Monat den entsprechenden Monat oben stehen haben. Hast du einen Tipp wo und ob ich jeweils eine Änderung vornehmen kann? Kann man es vermeiden, für jeden Monat ein extra Makro zu erstellen? Muss ich mir evtl. einen anderen Platz für die Monatsanzeige suchen, als in der Kopfzeile?
Wäre super, wenn du mir da als Ersteller des Makros noch einen Tipp geben könntest. DANK schon mal im voraus.
Hier nochmal die Datei: https://www.herber.de/bbs/user/39303.xls
Lieben Gruß
Dennis

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: @ Josef E. Bitte um Tipp für Makro
02.01.2007 22:29:16
ramses
Hallo
ändere die Zeile
.PageSetup.RightHeader = "&""Times New Roman,Fett""&16Kassenbuch&""Times New Roman,Standard""&12" & _
Chr(10) & "Januar 2007"
in
.PageSetup.RightHeader = "&""Times New Roman,Fett""&16Kassenbuch&""Times New Roman,Standard""&12" & _
Chr(10) & ActiveSheet.Name
Dann wird der Name der aktiven Tabelle verwendet.
Gruss Rainer
AW: @ Josef E. Bitte um Tipp für Makro
02.01.2007 22:30:33
chris
Hallo Dennis,bin zwar nicht Josef aber vieleicht hilft dir das.
https://www.herber.de/bbs/user/39325.zip
gruß Chris
Anzeige
AW: @ Josef E. Bitte um Tipp für Makro
02.01.2007 22:33:28
Josef
Hallo Dennis!
Nimm diesen Code und wähle eine der zwei Optionen. (Siehe Kommentar im Code)
Sub bereich_drucken()
    Dim lRow As Long
    
    With ActiveSheet
        lRow = .Cells(Rows.Count, 2).End(xlUp).Row
        .PageSetup.PrintTitleRows = "$2:$3"
        .PageSetup.RightHeader = "&""Times New Roman,Fett""&16Kassenbuch&""Times New Roman,Standard""&12" & _
            Chr(10) & .Name 'Anzeige laut Tabellenname(Blattregister)
        
        ''oder
        '.PageSetup.RightHeader = "&""Times New Roman,Fett""&16Kassenbuch&""Times New Roman,Standard""&12" & _
            Chr(10) & Format(Date, "mmmm yy") 'Anzeige laut aktuellem Datum
        
        .PageSetup.RightFooter = "&D" & Chr(10) & "Seite &P von &N"
        .PageSetup.Zoom = 88
        .PageSetup.PrintArea = CStr("C2:M" & lRow + 5)
        .PrintPreview 'Out
        .PageSetup.PrintTitleRows = ""
        .PageSetup.PrintArea = CStr("C" & lRow + 8 & ":K" & lRow + 45)
        .PrintPreview 'Out
        .PageSetup.PrintArea = ""
    End With
    
End Sub

Gruß Sepp
Anzeige
@ Dennis-Nochmal Formel
03.01.2007 12:01:23
michael
Hi Dennis
Ich trau mich fast nicht, aber bevor du alles Kopierst, bitte Überprüf
deine Formel noch mal.
Meiner Meinung nach müsste sie so aussehen:
..=WENN(I4="";"";WENN(I4=2;SUMME(D4:E4)* 0,065421+(F4*-0,065421)
;WENN(I4=1;SUMME(D4:E4)*0, 159664+(F4*-0,159664))))
des weiteren
beziehst du die Spalte E in deine Berechnung mit ein-wenn du eine Rechnung bezahlst
ändert sich nichts an der Steuer-nur dein Kassastand vermindert sich um diesen Betrag.
lieben Gruß
der lästige michael
@ Michael
03.01.2007 12:47:42
Dennis
Hallo...
Bin dir nicht böse... Hast ja vollkommen recht. Ich bin wohl irgendwie etwas daneben mit meinen Gedanken. Hab ich sofort geändert und bedanke mich. Zu Spalte E hast du auch recht. Ich muss aber ja keine Mwst. rechnen. Wenn ich in der jeweiligen Zeile keine Zahl bei der Ust.-Höhe eingebe, rechnet Excel die Mwst. auch nicht.
DANKE und lieben Gruß
Dennis
Anzeige
@ Ramses, Chris und Sepp
03.01.2007 12:56:12
Dennis
Euch sage ich ein riesen DANK... Problem gelöst.
Lieben Gruß
Dennis

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige