Sheets(strRegister).Select
Columns("A:A").Select
Selection.Insert
Range("A1").Select
Wenn ich das Programm ausführe, werden aber 2 Spalten eingefügt. Wo liegt dann da der Fehler? Ich hoffe Ihr könnt mir helfen, denn z. Zt. lösche ich die zweite Spalte wieder weg.
Stefan