Wie kann ich diese Aufgabe in Excel erstellen oder ist das überhaupt möglich?

... komplette Frage anzeigen

1 Antwort

Leg dir zwei Makrofunktionen an. Der Aufruf sieht dann so aus:

="Seite " & PERSONAL.XLSB!seite() & " von " & PERSONAL.XLSB!seitenanzahlgesamt()
Public Function Seite() As Integer
 ' Gibt die Seite zurück, auf der sich die Zelle mit der Formel Seite befindet
 ' 03.06.2015 Suboptimierer

Dim bGefunden As Boolean Dim i As Integer Dim j As Integer Dim iSelfZeile As Integer Dim iSelfSpalte As Integer Dim iStartTemp As Integer
Seite = 0 iSelfZeile = Application.Caller.Row iSelfSpalte = Application.Caller.Column
' Horizontale Seitentrenner durchsuchen bGefunden = False For i = 1 To ActiveSheet.HPageBreaks.Count iStartTemp = 0 If i > 1 Then _ iStartTemp = ActiveSheet.HPageBreaks(i - 1).Location.Row If (iStartTemp < iSelfZeile) And _ (ActiveSheet.HPageBreaks(i).Location.Row > iSelfZeile) Then Seite = i bGefunden = True End If Next If bGefunden = False Then _ Seite = i
' Vertikale Seitentrenner durchsuchen bGefunden = False For j = 1 To ActiveSheet.VPageBreaks.Count iStartTemp = 0 If j > 1 Then _ iStartTemp = ActiveSheet.VPageBreaks(j - 1).Location.Column If (iStartTemp < iSelfSpalte) And _ (ActiveSheet.VPageBreaks(j).Location.Column > iSelfSpalte) Then Seite = Seite + (j - 1) * (ActiveSheet.HPageBreaks.Count + 1) bGefunden = True End If Next If Not bGefunden Then _ Seite = Seite + (j - 1) * (ActiveSheet.HPageBreaks.Count + 1) End Function
Public Function SeitenAnzahlGesamt() As Integer SeitenAnzahlGesamt = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1) End Function
Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von Suboptimierer
03.02.2016, 14:06

Wenn du mehrere Exemplare drucken willst und diese Exemplare durchnummerieren willst, könntest du dir ein Makro schreiben, welches den Befehl "Sheets.PrintOut" ( https://msdn.microsoft.com/de-de/library/office/ff838253.aspx ) enthält und die Anzahl der Exemplare sich zum Beispiel aus einer Zelle liest.
Dieses Makro könntest du dann auf eine eigene Druckschaltfläche legen.

0

Was möchtest Du wissen?