Hallo zusammen.
habe dieses Makro mit Mühe und Hilfe erstellt.
funktioniert auch !!
-----------------------------------------------------------------
Problem ist beim copieren wird alles copiert .(z.B.Werte/Formeln)
möchte aber nur die Werte der Celle copieren.(ohne Formeln)
-----------------------------------------------------------------
Sub Makro3() '
Dim Mldg, Stil, Titel, Hilfe, Ktxt, Antwort, Text1
Mldg = " Möchten Sie die Daten Speichern ?" & Chr(13) & _
"" & Chr(13) & "Achtung beim Drucken werden alle Eingaben gelöscht" _
& Chr(13) & _
"================================"
Stil = vbYesNo + vbDefault
Titel = " Hardy Abrechnung"
Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt)
If Antwort = vbNo Then
Text1 = "Nein"
Sheets("Abrechnung_Monat").Select
End If
If Antwort = vbYes Then
Text1 = "Ja"
Dim TBNames$, WBName$
WBName = ActiveWorkbook.Name
WBName = InputBox(" Soll das Tabellenblatt gespeichert werden?" & Chr(13) & _
" Herr/Frau")
If WBName = "" Then Exit Sub
Worksheets("Abrechnung_Monat").Copy
ActiveWorkbook.SaveAs WBName
ActiveWorkbook.Close WBName
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub
für eure Mühe mir zuhelfen
im voraus vielen Dank
MfG
Hardy 55
|