Wir wünschen allen Forenteilnehmern ein frohes Fest und einen guten Rutsch ins neue Jahr. x

2 Makros verbinden
#1
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
Top
#2
Hallo,

ersetze folgende Zeile:

Code:
MsgBox "Makro Start Nr.: " & i


mit dieser:

Code:
Call Makro2()
Gruß Atilla
Top
#3
Hallo Atilla,

vielen Dank!!!

Hat sofort funktioniert.
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste