Druckmakro noch ohne Formel- wie einarbeiten?
31.03.2017 14:38:05
Frank
doch noch ein Problem...
Erstellt werden soll Deckblatt, welches am Ende auch in einer anderen Datei abgespeichert wird. Einige Zellen werden über Formeln aus anderen Tabellenblätter gefüttert. Das Funktioniert soweit. Jedoch in der gespeicherten Datei steht dann 'BEZUG'.
Die saubere Lösung ist sicherlich ein Makro mit den Formeln, welche mir die Ergebnisse in den Zielzellen einträgt.
Nun hängt es aber etwas an der Erstellung des Makros.
Hier mal das "Druckmakro" jedoch fehlen hier noch die drei Formeln.
Im Deckblatt Zelle F33 hat die Formel =ANZAHL2(Bearbeiten!C:C)
Zelle F35 =ZÄHLENWENN(Bearbeiten!L:L;"ja")
und Zelle F37 =ZÄHLENWENN(Bearbeiten!L:L;"nein")
Bekommt man das mit in das Druckmakro?
Sub Makro17()
' Erstelle Deckblatt
Range("AC28:AC31").Select
Selection.Copy
Sheets("Deckblatt").Select
Range("A14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A65").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Druckmenü").Select
Range("AC34").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Deckblatt").Select
Range("L66:M68").Select
Range("C43").Select
Sheets("Druckmenü").Select
Range("Q45").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Deckblatt").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Druckmenü").Select
Range("R33:S33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Deckblatt").Select
Range("F21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F72").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Druckmenü").Select
Range("R35:S35").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Deckblatt").Select
Range("F74").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F23").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M19").Select
Sheets("Druckmenü").Select
Range("Y35:Z35").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Deckblatt").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range("M70").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Vielleicht kann mal jemand drüber schauen?
MFG Frank