Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Sub Makro1()
Sheets("Tabelle1").Select
Columns("C:C").Select
Selection.Copy
Sheets("Tabelle2").Select
Columns("A:A").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Columns("B:B").Select
Selection.Copy
Sheets("Tabelle2").Select
Columns("B:B").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Columns("A:A").Select
Selection.Copy
Sheets("Tabelle2").Select
Columns("C:C").Select
ActiveSheet.Paste
End Sub