Blattwechsel dann VBA
14.07.2016 10:09:56
Jorgi
ich möchte gerne das immer wenn ich in das Tabellenblatt
Auswertung gehe, das dann das Makro aktualisiert. Momentan läuft das über ein Button.
Private Sub CommandButton1_Click()
Range("B2") = "=IF(AND('Zusammenfassung '!R[3]C[-1]="""",'Zusammenfassung '!R[3]C[-1]= _
_
0),"""",'Zusammenfassung '!R[3]C[-1])"
Range("C2") = "=IF(RC[-1]="""","""",""13181"")"
Range("H2") = "=IF(RC[-6]="""","""",""RE"")"
Range("O2") = "=IF(RC[-13]="""","""",'Zusammenfassung '!R[3]C[-10])"
Range("Q2") = "=IF(RC[-15]="""","""",'Zusammenfassung '!R[3]C[-14])"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B65000"), Type:=xlFillDefault
Range("B2:B65000").Select
Range("C2").AutoFill Destination:=Range("C2:C" & Cells(Rows.Count, "B").End(xlUp).Row), _
Type:=xlFillDefault
Range("H2").AutoFill Destination:=Range("H2:H" & Cells(Rows.Count, "B").End(xlUp).Row), _
Type:=xlFillDefault
Range("O2").AutoFill Destination:=Range("O2:O" & Cells(Rows.Count, "B").End(xlUp).Row), _
Type:=xlFillDefault
Range("Q2").AutoFill Destination:=Range("Q2:Q" & Cells(Rows.Count, "B").End(xlUp).Row), _
Type:=xlFillDefault
End Sub
Das gleiche will ich machen beim Tabellenblatt SAP
das ist aber ein anderer Code.
Wer kann mir denn helfen?
Danke Jorgi