Zellen aktivieren
12.05.2004 12:47:59
Nadine
Ich bin dabei ein Materialbestellprogramm in Excel zu überarbeiten und versuche die "Selects" rauszubekommen. Mit folgendem Code sollen in jedem Blatt bestimmte Spalten ausgeblendet werden und nur 2 bestimmte wieder eingeblendet. Soweit funktioniert auch alles.
Problem ist dann: es soll dann in jedem Blatt eine bestimmte Zelle aktiviert werden, so dass die Benutzer sofort mit der Eingabe loslegen können. Bei der Anweisung
.Range(Cells(Rowindex, Spaltennummer1)).Select
bekomme ich immer eine Fehlermeldung.
Kann man die Zellen auch ohne Select bzw. Activate markieren?
Danke für die Hilfe
Nadine
Sub Spalten()
Dim neuBlatt As Worksheet
Dim Rowindex As Integer
Rowindex = 4
For Each neuBlatt In Worksheets
With neuBlatt
.Unprotect "Andy"
.Columns("C:CN").EntireColumn.Hidden = True
.Columns(Spaltennummer1).Hidden = False
.Columns(Spaltennummer2).Hidden = False
.Protect "Andy", True, True, True
.Range(Cells(Rowindex, Spaltennummer1)).Select
End With
Next neuBlatt
End Sub