09.09.2020, 15:44
Hallo zusammen,
vorab sage ich gleich mal dass ich mich mit VBA nicht so gut auskenne.
Ich habe eine Datei mit mehreren Sheets ( die im Aufbau identisch sind), in denen haufenweise Formeln sind. Diese gehören täglich in Werte umgewandelt, da sich die Dateien, aus deren die Formeln ihre Daten beziehen, laufend ändern.
Bis jetzt waren es 4 Sheets und das Makro lief einwandfrei.
Jetzt ist ein 5. Sheet dazu gekommen ( "KB"). Der Vorgang ist laut VBA der selbe, aber bei der Ausführung wird im 5. Sheet etwas anderes in einem anderen Bereich gemacht.
Hat hierfür jemand eine Erklärung?
Danke schon mal vorab für eure Hilfe
Gruß Michael
[font=Arial, sans-serif] Sheets("M51").Select[/font]
[font=Arial, sans-serif] Dim zelle As Range[/font]
[font=Arial, sans-serif] Dim mySelection As Range[/font]
[font=Arial, sans-serif] Set mySelection = Selection[/font]
[font=Arial, sans-serif] Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select[/font]
[font=Arial, sans-serif] Selection.Copy[/font]
[font=Arial, sans-serif] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/font]
[font=Arial, sans-serif] :=False, Transpose:=False[/font]
[font=Arial, sans-serif] ActiveSheet.Range("$A$1:$JA$2915").AutoFilter Field:=1, Criteria1:="="[/font]
[font=Arial, sans-serif] [/font]
[font=Arial, sans-serif] Sheets("M6").Select[/font]
[font=Arial, sans-serif] Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select[/font]
[font=Arial, sans-serif] Selection.Copy[/font]
[font=Arial, sans-serif] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/font]
[font=Arial, sans-serif] :=False, Transpose:=False[/font]
[font=Arial, sans-serif] ActiveSheet.Range("$A$1:$IZ$2853").AutoFilter Field:=1, Criteria1:="="[/font]
[font=Arial, sans-serif] [/font]
[font=Arial, sans-serif] Sheets("M7").Select[/font]
[font=Arial, sans-serif] Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select[/font]
[font=Arial, sans-serif] Selection.Copy[/font]
[font=Arial, sans-serif] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/font]
[font=Arial, sans-serif] :=False, Transpose:=False[/font]
[font=Arial, sans-serif] ActiveSheet.Range("$A$1:$JA$2853").AutoFilter Field:=1, Criteria1:="="[/font]
[font=Arial, sans-serif] [/font]
[font=Arial, sans-serif] Sheets("M8").Select[/font]
[font=Arial, sans-serif] Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select[/font]
[font=Arial, sans-serif] Selection.Copy[/font]
[font=Arial, sans-serif] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/font]
[font=Arial, sans-serif] :=False, Transpose:=False[/font]
[font=Arial, sans-serif] ActiveSheet.Range("$A$1:$IZ$2853").AutoFilter Field:=1, Criteria1:="="[/font]
[font=Arial, sans-serif] [/font]
[font=Arial, sans-serif] Sheets("KB").Select[/font]
[font=Arial, sans-serif] Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select[/font]
[font=Arial, sans-serif] Selection.Copy[/font]
[font=Arial, sans-serif] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/font]
[font=Arial, sans-serif] :=False, Transpose:=False[/font]
[font=Arial, sans-serif] ActiveSheet.Range("$A$1:$JA$2853").AutoFilter Field:=1, Criteria1:="="[/font]
vorab sage ich gleich mal dass ich mich mit VBA nicht so gut auskenne.
Ich habe eine Datei mit mehreren Sheets ( die im Aufbau identisch sind), in denen haufenweise Formeln sind. Diese gehören täglich in Werte umgewandelt, da sich die Dateien, aus deren die Formeln ihre Daten beziehen, laufend ändern.
Bis jetzt waren es 4 Sheets und das Makro lief einwandfrei.
Jetzt ist ein 5. Sheet dazu gekommen ( "KB"). Der Vorgang ist laut VBA der selbe, aber bei der Ausführung wird im 5. Sheet etwas anderes in einem anderen Bereich gemacht.
Hat hierfür jemand eine Erklärung?
Danke schon mal vorab für eure Hilfe
Gruß Michael
[font=Arial, sans-serif] Sheets("M51").Select[/font]
[font=Arial, sans-serif] Dim zelle As Range[/font]
[font=Arial, sans-serif] Dim mySelection As Range[/font]
[font=Arial, sans-serif] Set mySelection = Selection[/font]
[font=Arial, sans-serif] Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select[/font]
[font=Arial, sans-serif] Selection.Copy[/font]
[font=Arial, sans-serif] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/font]
[font=Arial, sans-serif] :=False, Transpose:=False[/font]
[font=Arial, sans-serif] ActiveSheet.Range("$A$1:$JA$2915").AutoFilter Field:=1, Criteria1:="="[/font]
[font=Arial, sans-serif] [/font]
[font=Arial, sans-serif] Sheets("M6").Select[/font]
[font=Arial, sans-serif] Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select[/font]
[font=Arial, sans-serif] Selection.Copy[/font]
[font=Arial, sans-serif] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/font]
[font=Arial, sans-serif] :=False, Transpose:=False[/font]
[font=Arial, sans-serif] ActiveSheet.Range("$A$1:$IZ$2853").AutoFilter Field:=1, Criteria1:="="[/font]
[font=Arial, sans-serif] [/font]
[font=Arial, sans-serif] Sheets("M7").Select[/font]
[font=Arial, sans-serif] Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select[/font]
[font=Arial, sans-serif] Selection.Copy[/font]
[font=Arial, sans-serif] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/font]
[font=Arial, sans-serif] :=False, Transpose:=False[/font]
[font=Arial, sans-serif] ActiveSheet.Range("$A$1:$JA$2853").AutoFilter Field:=1, Criteria1:="="[/font]
[font=Arial, sans-serif] [/font]
[font=Arial, sans-serif] Sheets("M8").Select[/font]
[font=Arial, sans-serif] Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select[/font]
[font=Arial, sans-serif] Selection.Copy[/font]
[font=Arial, sans-serif] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/font]
[font=Arial, sans-serif] :=False, Transpose:=False[/font]
[font=Arial, sans-serif] ActiveSheet.Range("$A$1:$IZ$2853").AutoFilter Field:=1, Criteria1:="="[/font]
[font=Arial, sans-serif] [/font]
[font=Arial, sans-serif] Sheets("KB").Select[/font]
[font=Arial, sans-serif] Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select[/font]
[font=Arial, sans-serif] Selection.Copy[/font]
[font=Arial, sans-serif] Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/font]
[font=Arial, sans-serif] :=False, Transpose:=False[/font]
[font=Arial, sans-serif] ActiveSheet.Range("$A$1:$JA$2853").AutoFilter Field:=1, Criteria1:="="[/font]