Einzelnen Beitrag anzeigen
Alt 12.06.2019, 19:52   #9
Bonnilein
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Experten

Ich habe nun über den Makro Recorder ein Markro mit meinem vorhaben erstellt.
Dieses haut auch im großen und ganzen hin. Ausser noch ein paar kleine Veränderungen, die ich gerne mit ausführen wollte. Habe ich an den betreffenden Stellen im Code geschrieben.

Ich benutze MS Office 2010 unter Windows 7 64 bit

Sub Aufmass_in_Rechnung_kopieren()
'
' Aufmass_in_Rechnung_kopieren Makro
' Kopiert werden soll von Aufmass zur Rechnungvorlage.
' Die Rechnung liegt im Pfad Aufmass/Rechnungen/Rechnungsvorlage.xlsm -- Tabelle1
' Soll geöffnet werden wenn noch nicht geöffnet
'
Dim LetzeZeile As Long
LetzteZeile = Cells(Rows.Count, 2).End(xlUp).Row
'
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=9, Criteria1:= _
Array("1.161,60 €", "2.304,00 €", "756,00 €"), Operator:=xlFilterValues ' Hier soll nur alles was Null ist ausgeblendet werden
ActiveSheet.Range("$A$29:$F$133").AutoFilter Field:=2 ' Hier müsste der Pfad zu "Rechnungsvorlage"
Range("A30:E133").Select
Selection.ClearContents
Windows("Aufmass.xlsm").Activate
Range("C5:C" & LetzteZeile).Select
Selection.Copy
Windows("Rechnungsvorlage.xlsm").Activate ' Hier müsste der Pfad zu "Rechnungsvorlage"
Range("A30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Aufmass.xlsm").Activate
Range("B5:B" & LetzteZeile).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsvorlage.xlsm").Activate ' Hier müsste der Pfad zu "Rechnungsvorlage"
Range("B30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Aufmass.xlsm").Activate
Range("H5:H" & LetzteZeile).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsvorlage.xlsm").Activate ' Hier müsste der Pfad zu "Rechnungsvorlage"
Range("C30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Aufmass.xlsm").Activate
Range("E5:E" & LetzteZeile).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsvorlage.xlsm").Activate ' Hier müsste der Pfad zu "Rechnungsvorlage"
Range("D30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Aufmass.xlsm").Activate
Range("F5:F" & LetzteZeile).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsvorlage.xlsm").Activate ' Hier müsste der Pfad zu "Rechnungsvorlage"
Range("E30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$29:$F$133").AutoFilter Field:=2, Criteria1:="<>"
Windows("Aufmass.xlsm").Activate
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=9

' Hier möchte ich abschliessend zur Rechnungsvorlage

End Sub


Vielleicht kann mir bei meinem Vorhaben jemand behilflich sein

Ich danke schon im Vorraus

Gruß
Bonnilein

Geändert von Bonnilein (12.06.2019 um 20:18 Uhr).
Bonnilein ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten