Cursor in neue Spalte
18.01.2003 07:15:11
Georg
mit folgender Anweisung (stammt von Nepumuk) lass ich eine neue Spalte einfügen.
Public Sub Spalte_einfuegen()
Dim Spalte As Integer
For Spalte = Range("IV1").End(xlToLeft).Column To 2 Step -1
If Cells(1, Spalte) = Cells(1, 1) Then Columns(Spalte + 1).Insert Shift:=xlToRight
Next
End Sub
Nun möchte ich, dass der Cursor in der neu eingefügten Spalte in der ersten Zelle steht.
Kann mir jemand weiterhelfen?
Vielen Dank; Georg
Anzeige