1. Fall ich möchte das er die Tabelle "owssvr" Aktualisiert, dann soll er Spalte A bis W kopieren und in Tabelle reinschreiben auch von A bis W er zeigt mir bei "Columns ("A:W"). Select ein Fehler an.
Private Sub CommandButton1_Click()
Sheets("owssvr").Select
ActiveWorkbook.RefreshAll
Columns("A:W").Select
Selection.Copy
Sheets("Tabelle3").Select
Columns("A:W").Select
ActiveSheet.Paste
End Sub
2. Fall: Ich habe eine andere Liste die soll er öffnen (ALLE MELDUNGEN ÜBERSPRINGEN) dann Spalte A und B löschen, dann Zeile 1 und Zeile 3 löschen,
dann soll er Saplte A bis M kopieren und in andere Exeldatei "Tabelle4" in Spalte B bis N kopieren auch hier zeigt er wieder Fehler an.
Private Sub CommandButton2_Click()
' Makro4 Makro
Workbooks.Open Filename:="L:\Verpackungsplanung\280_VPTA Zeiten\280_10_VPTA_Listen\Bestand. _
XLS"
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Columns("A:M").Select
Range("M1").Activate
Selection.Copy
Windows("LIST_20160120_Abbauplan_2016_RS.xlsx").Activate
Sheets("Tabelle4").Select
Columns("B:N").Select
ActiveSheet.Paste
End Sub