Bestimmten Zellbereich verschieben
10.12.2007 18:26:53
Erwin
ich komm einfach nicht weiter! Ich habe eine größere Excel-Tabelle, in der in Spalte A mehrere verschiedene Namen/Begriffe stehen. Jetzt möchte ich eine Schleife erstellen, die alle Einträge in Spalte A mit Montag, Dienstag und Mittwoch bis 5 Zellen rechts davon bis zur Spalte E markieren, ausschneiden und in derselben Zeile bei Spalte F wieder einfügen. Praktisch die gesamten Zellen um 6 Spalten verschieben.
Das habe ich bereits gemacht, aber es kommt immer nur "Typen unverträglich".
Sub verschieben()
Dim rng As Range
For Each rng In Sheets("Tabelle1").Range("A:A")
If rng = "Montag" Or "Dienstag" Or "Mittwoch" Then
Sheets(Tabelle1).Range(Cells(rng.Row, 1), Cells(rng.Row, 5)).Select
Selection.Cut
ActiveCell.Offset(0, 6).Select
ActiveSheet.Paste
End If
Next
End Sub
Hoffentlich kann mir einer weiterhelfen!!!!
Danke im voraus
Erwin