.Select einer Range in einem anderen Tabellenblatt
08.03.2015 18:31:27
Christian
Vlt kann mir jemand helfen. Ich weis nicht warum das nicht funktioniert. Ich muss eine Range in einem anderen tabellenblatt um eine Zelle nach rechts verschieben.
Code
If (Sheets("Tabelle1").Cells(1, i) = Sheets("14.12.-14.09.15+23.10.-12.12.15").Cells(8, j) And Sheets("Tabelle1").Cells(1, i) <> "") Then 'Wenn die Zugnummer im Fahrplan gefunden wurde dann
Sheets("14.12.-14.09.15+23.10.-12.12.15").Range(Sheets("14.12.-14.09.15+23.10.-12.12.15").Cells(8, j + 1), Sheets("14.12.-14.09.15+23.10.-12.12.15").Cells(39, j + 200)).Select
Selection.Cut
Sheets("14.12.-14.09.15+23.10.-12.12.15").Cells(8, j + 2).Select
Selection.Paste
End If