bei select hakt es?
21.03.2006 16:44:41
lisa
Wer kann helfen
Ich habe diesen unten stehenden Code aufgezeichnet um 3 Spalten zu kopieren und in anderen Tabellenblättern einzufügen, aber bei Select bleibt der Makro stehen und ich finde nicht herraus warum.
Ich habe auch schon des öffteren gehört, dass man auf select verzichten kann, nur wie finde ich nicht .
Kann evtl. jemsánd der sich damit auskennt etwas von seiner Zeit abknappsen um mir mal zu helfen ich stehe nämlich auf dem Schlauch.
das wäre sehr nett
Private Sub CommandButton3_Click()
ActiveSheet.Unprotect "meins"
Selection.EntireColumn.Hidden = False
Columns("A:D").Select
Selection.Copy
Sheets("Tabelle1").Select
ActiveSheet.Unprotect "meins"
Selection.EntireColumn.Hidden = False
Columns("A:A").Select
ActiveSheet.Paste
Selection.EntireColumn.Hidden = True
ActiveSheet.Protect "meins"
Sheets("November-Januar").Select
ActiveSheet.Unprotect "meins"
Selection.EntireColumn.Hidden = False
Columns("A:A").Select
ActiveSheet.Paste
Selection.EntireColumn.Hidden = True
ActiveSheet.Protect "meins"
Sheets("Januar-März").Select
ActiveSheet.Unprotect "meins"
Selection.EntireColumn.Hidden = False
Columns("A:A").Select
ActiveSheet.Paste
Selection.EntireColumn.Hidden = True
ActiveSheet.Protect "meins"
End Sub