statt select Case als (eine) Schleife
07.09.2007 09:41:46
Lorenz
folgendes Problem (Frage): Wie kann man den Sheet.Name (außerhalb der Klammer, welche automatisch als Tabelle1,Tabelle2,..3 von Excel vergeben wird) ansprechen? Die einzelnen Tabellen wurden nach N1, N2, N3, N... bis N9) umbenannt. Leider ist es mir nur lt folgendem Prinzip gelungen:
Private Sub Worksheet_Activate()
Dim i As Integer
For i = 3 To 9
Select Case i
Case 3
Cells(i, 1) = N1.Name
Case 4
Cells(i, 1) = N2.Name
Case 5
Cells(i, 1) = N3.Name
Case 6
Cells(i, 1) = N4.Name
Case 7
Cells(i, 1) = N5.Name
Case 8
Cells(i, 1) = N6.Name
Case 9
Cells(i, 1) = N7.Name
Case 10
End Select
Next i
End Sub
Ich hätte es aber gerne nach dem Prinzip:
For i = 3 To 9
Cells(i, 1) = "N" & i.Name
Next i
so schaffte ich es aber nicht. Hat vielleich jemand `nen Tipp auf Lager?
Danke im voraus u. Grüsse
Lorenz