19.03.2020, 16:40
Hallo Zusammen,
ich bin Excel-Leihe und versuche mich schon den ganzen Tag an dieser Aufgabe:
Ich habe eine Rechnungsvorlage in Excel 2010, welche bei jedem Druck automatisch eine fortlaufende Nummer bekommen soll. Zusätzlich brauche ich aber auch ein Feld in welches ich die Anzahl der zu druckenden Rechnungen bestimmen kann (alle mit fortlaufender Nummer).
Soweit habe ich 2 Makros erstellt:
1. Makro: fortlaufende Nummer
Sub Makro2()
'
' Dim wert As String
ActiveWindow.SelectedSheets.PrintOut 'Druckt den angegebenen Druckbereich
wert = Range("E3").Value ' Bereich, wo Wert ist: E3 abändern
Range("E3").Value = wert + 1 ' E3 abändern
End Sub
2. Makro: Anzahl der zu druckenden Rechnungen
Sub Test()
Dim lAnzahl As String
Dim i As Long
Anf:
lAnzahl = InputBox("Wie oft soll das Makro laufen ?", , 3)
If lAnzahl = "" Then Exit Sub
'Prüfen ob eine Zahl eingegeben wurde
If IsNumeric(lAnzahl) Then
For i = 1 To CLng(lAnzahl)
'hier steht dann dein Makro(Makro2)
MsgBox "Makro Start Nr.: " & i
Next i
Else
MsgBox "Bitte ein Zahl eingeben !", vbInformation
GoTo Anf
End If
End Sub
Zudem habe ich einen Button erstellt mit dem das (mit hinterlegen des Makros) ganze gestartet werden soll, ca. so: ich klicke auf diesen Button, werde gefragt welche Anzahl ich brauche und dann druckt er die Rechnungen mit fortlaufender Nummer.
Leider klappt das ganze nicht und ich weiß nicht wieso bzw. finde keine Alternative.
Ich würde mich sehr über Eure Hilfe freuen, ob es Verbesserung oder auch eine ganze Alternative ist.
Vielen Dank schonmal!
VG
Michael
ich bin Excel-Leihe und versuche mich schon den ganzen Tag an dieser Aufgabe:
Ich habe eine Rechnungsvorlage in Excel 2010, welche bei jedem Druck automatisch eine fortlaufende Nummer bekommen soll. Zusätzlich brauche ich aber auch ein Feld in welches ich die Anzahl der zu druckenden Rechnungen bestimmen kann (alle mit fortlaufender Nummer).
Soweit habe ich 2 Makros erstellt:
1. Makro: fortlaufende Nummer
Sub Makro2()
'
' Dim wert As String
ActiveWindow.SelectedSheets.PrintOut 'Druckt den angegebenen Druckbereich
wert = Range("E3").Value ' Bereich, wo Wert ist: E3 abändern
Range("E3").Value = wert + 1 ' E3 abändern
End Sub
2. Makro: Anzahl der zu druckenden Rechnungen
Sub Test()
Dim lAnzahl As String
Dim i As Long
Anf:
lAnzahl = InputBox("Wie oft soll das Makro laufen ?", , 3)
If lAnzahl = "" Then Exit Sub
'Prüfen ob eine Zahl eingegeben wurde
If IsNumeric(lAnzahl) Then
For i = 1 To CLng(lAnzahl)
'hier steht dann dein Makro(Makro2)
MsgBox "Makro Start Nr.: " & i
Next i
Else
MsgBox "Bitte ein Zahl eingeben !", vbInformation
GoTo Anf
End If
End Sub
Zudem habe ich einen Button erstellt mit dem das (mit hinterlegen des Makros) ganze gestartet werden soll, ca. so: ich klicke auf diesen Button, werde gefragt welche Anzahl ich brauche und dann druckt er die Rechnungen mit fortlaufender Nummer.
Leider klappt das ganze nicht und ich weiß nicht wieso bzw. finde keine Alternative.
Ich würde mich sehr über Eure Hilfe freuen, ob es Verbesserung oder auch eine ganze Alternative ist.
Vielen Dank schonmal!
VG
Michael