Hallo,
ich will mit einem Makro Daten auf dem Tabellenblatt verschieben,
genauergesagt eine aus Word importierte Liste anders anordnen.
Das mache ich mit dem Makro hier:
ActiveCell.Offset(0, 1).Range("A1:D2").Select
Selection.Cut Destination:=ActiveCell.Offset(0, 1).Range("A1:D2")
ActiveCell.Offset(1, -1).Range("A1").Select
Selection.Cut Destination:=ActiveCell.Offset(-1, 1).Range("A1")
ActiveCell.Offset(-1, 3).Range("A1:C2").Select
Selection.Cut Destination:=ActiveCell.Offset(0, 1).Range("A1:C2")
ActiveCell.Offset(1, -1).Range("A1").Select
Selection.Cut Destination:=ActiveCell.Offset(-1, 1).Range("A1")
ActiveCell.Offset(0, 4).Range("A1").Select
Selection.Cut Destination:=ActiveCell.Offset(-1, 1).Range("A1")
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Select
Das klappt auch wunderbar, nur erscheint immer ein Hinweisfenster in dem steht in etwa "durch ihre aktion werden verbundene zellen getrennt..." hier muss ich nun immer auf ok klicken.
Ich suche nach einer möglichkeit bei der diese meldung nicht auftaucht oder "automatisiert" bestätigt wird.