Fortlaufende Rechnungsnummer und abgeschnittene Ze

Hallo und vielen Dank für die Unterhaltung dieser Hilfeseite,
ich habe zwei "Probleme":
Wir haben unsere Rechnungsstellung von Word auf Excel umgestellt. In Word hat ich ein Makro, welches mir eine fortlaufene Rechnung / Projektnummer per Button lieferte. Dies sah so aus:


Sub RechnungsnummerN()
Dim AutoNum$
Dim Nummer
Dim NeuNummer
AutoNum$ = WordBasic.[GetPrivateProfileString$]("Microsoft Word", "Rechnungsnummer", "C:\Users\  _
_
Martin\pronum.ini")
WordBasic.Insert AutoNum$
Nummer = WordBasic.Val(AutoNum$)
NeuNummer = Nummer + 1
AutoNum$ = Str(NeuNummer)
WordBasic.SetPrivateProfileString "Microsoft Word", "Rechnungsnummer", AutoNum$, "C:\Users\ _
Martin\pronum.ini"
End Sub

Habe dies Makro in Excel kopiert. Aber dies Meldet Fehler 424 Object needed.
Kann ich mir das für meine Zwecke umstricken?
Das zweite Problem ist, dass Text am Ende von Zellen beim Drucken und in der Vorschau abgeschnitten wird. Im Layout und Seitenumbruch sieht es - Dank AutoZellenHöhe- ganz normal aus.
Wenn ich die Zeile manuell vergrössere, dann passt es aber nachher im Druck.
Gibts ´ne Lösung?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub RechnungsnummerN() Dim lNextNr lNextNr = GetSetting(appname:="Excel", _ section:="ExelRechnung", _ Key:="Rechnungsnummer", _ Default:=1) SaveSetting appname:="Excel", _ section:="ExelRechnung", _ Key:="Rechnungsnummer", _ Setting:=lNextNr + 1 MsgBox "NächsteNr ist " & lNextNr End Sub

Sub RechnungsnummerN() Dim lNextNr As Long Dim lThisYear As Long Const StartNr = 1 lThisYear = GetSetting(appname:="Excel", _ section:="ExelRechnung", _ Key:="RechnungsJahr", _ Default:=0) If lThisYear Year(Date) Then SaveSetting appname:="Excel", _ section:="ExelRechnung", _ Key:="RechnungsJahr", _ Setting:=Year(Date) SaveSetting appname:="Excel", _ section:="ExelRechnung", _ Key:="Rechnungsnummer", _ Setting:=StartNr End If lNextNr = Val(GetSetting(appname:="Excel", _ section:="ExelRechnung", _ Key:="Rechnungsnummer", _ Default:=StartNr)) SaveSetting appname:="Excel", _ section:="ExelRechnung", _ Key:="Rechnungsnummer", _ Setting:=lNextNr + 1 ActiveCell.Value = lNextNr End Sub

Nochmals lieben Dank. Vor allem im Namen meines Chefs.
Er würde gern 20 per paypal senden wenn Du nix dagegen hast.
Wir haben von Word auf Excel umgestellt, weil Word immer wieder Zahlen aus dem Beschreibungstext der Rechnung mit multipliziert hat. Das hatte oft unangenehme Anrufe zur Folge :)
Dafür konnte ich im Word an jeder X-Beliebigen Stelle per Makro eine Projekt- und eine Rechnungsnummer einfügen. Zudem waren die ersten beiden Ziffern der Postleitzahl Bestandteil der Rechnung (Via Textmarke und deren Aufruf).
Wenn ich das Richtig sehe funktioniert dies in Excel wohl immer nur für ganze Zellen. D.h. man müsste die Nummern aus mehreren Zellen aneinander Reihen. Nachteil: Man sieht dennoch Abstände dazwischen und es würde sich auf die eigentliche Rechnungstabelle nach unten auswirken.
Könntest DU uns da gegen Gebühr vielleicht Abhilfe schaffen?

Sub Projektnummer() Dim lNextNr As Long Dim lThisYear As Long Const StartNr = 100 lThisYear = GetSetting(appname:="Excel", _ section:="ExelRechnung", _ Key:="ProjektJahr", _ Default:=0) If lThisYear Year(Date) Then SaveSetting appname:="Excel", _ section:="ExelRechnung", _ Key:="ProjektJahr", _ Setting:=Year(Date) SaveSetting appname:="Excel", _ section:="ExelRechnung", _ Key:="Projektnummer", _ Setting:=StartNr End If lNextNr = Val(GetSetting(appname:="Excel", _ section:="ExelRechnung", _ Key:="Projektnummer", _ Default:=StartNr)) SaveSetting appname:="Excel", _ section:="ExelRechnung", _ Key:="Projektnummer", _ Setting:=lNextNr + 1 ActiveCell.Value = "Angebot Nr: " & Left(ActiveSheet.Range("C10"), 2) & "" & lNextNr & "07" End Sub

Sub Projektnummer() Dim lNextNr As Long Dim lThisYear As Long Const StartNr = 100 lThisYear = GetSetting(appname:="Excel", _ section:="ExelRechnung", _ Key:="ProjektJahr", _ Default:=0) If lThisYear Year(Date) Then SaveSetting appname:="Excel", _ section:="ExelRechnung", _ Key:="ProjektJahr", _ Setting:=Year(Date) SaveSetting appname:="Excel", _ section:="ExelRechnung", _ Key:="Projektnummer", _ Setting:=StartNr End If lNextNr = Val(GetSetting(appname:="Excel", _ section:="ExelRechnung", _ Key:="Projektnummer", _ Default:=StartNr)) SaveSetting appname:="Excel", _ section:="ExelRechnung", _ Key:="Projektnummer", _ Setting:=lNextNr + 1 ActiveCell.Value = "Angebot Nr: " & lNextNr & Left(ActiveSheet.Range("C10"), 2) & "07" & " _ | München, den " & Date End Sub

Beliebteste Forumthreads (12 Monate)

Fortlaufende Rechnungsnummer und abgeschnittene Ze

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fortlaufende Rechnungsnummer und abgeschnittene Ze

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread