rows count + Past
18.07.2017 12:50:34
Georg
der Code macht fast alles was er will. Was ich nicht hinkriege:
In der neu erzeugten Datei sind noch Formeln von der Vorlage drin ab D19 u E19.
Ich möchte alle Zellen, die Formeln enthalten, mit Werten überschreiben ab Zeile 19, Spalte D und E.
schauts euch mal an ganz am ENDE mit den ? und Danke:
Sub RechnungVorlage()
Dim strFilter As String
Dim strFileName As String
Dim strDateiname As String
Dim shp As Shape
Dim WBZiel As Workbook
Dim WBQuelle As Workbook
Dim Rechnung_Blanko As String
Dim RechnungsNummer As String
Dim Rechnungsjahr As Integer
'DateiÖffnen Dialog
strFilter = "Excel-Dateien(*.xlsx), *.xlsx" '** Dateifilter definieren
ChDrive "C"
ChDir "C:\Temp" '** Laufwerk und Pfad definieren, welcher geöffnet werden soll
'** Den im Dialogfeld gewählten Namen auslesen
strFileName = Application.GetOpenFilename(strFilter)
'** Gewählte Datei öffnen
Set WBZiel = Workbooks.Open(strFileName)
'** Hinweis ausgeben
MsgBox "Die Datei '" & WBZiel.Name & "' wurde geöffnet.", vbInformation, "Hinweis"
Application.Windows("RechnungsVorlage_Cenda2_Version.xlsm").Activate
'die Rechnungsnummer wird erfragt:
RechnungsNummer = Application.InputBox("Rechnungsnummer eingeben", "Rechnung")
'Rechnungsjahr
Rechnungsjahr = Application.InputBox("RechnungsJahr eingeben", "Rechnung")
Worksheets("Rechnung").Copy After:=Workbooks("Rechnung_Blanko.xlsx").Sheets(1)
Application.Windows("Rechnung_Blanko.xlsx").Activate
Sheets(2).Activate
ActiveSheet.Name = "Rechnung" & "_" & RechnungsNummer & "_" & Rechnungsjahr
Application.DisplayAlerts = False
Worksheets(1).Delete
Application.DisplayAlerts = True
ChDrive "c:\"
ChDir "\temp\"
strDateiname = "Rechnung" & "_" & RechnungsNummer & "_" & Rechnungsjahr
Application.Dialogs(xlDialogSaveAs).Show (strDateiname)
For Each shp In ActiveSheet.Shapes
shp.Delete
Next
'Sheets(1).Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).FormulaLocal = _ paste...
End Sub
Anzeige