schleife, buchstaben hochzählen?
08.02.2007 11:34:57
thomas
ich möchte meine zellen (als bsp B11:Z100) mit einer bestimmten formel per vba automatisch ausfüllen lassen, um auch händisch die zellen mit zahlen füttern zu können ohne die eigendliche formel dadurch zu löschen.
das hochzählen von den zeilen 11 bis 100 ist kein problem aber wie mache ich das mit den spalten? wie kann ich buchstaben hochzählen?
mein problem:
in Case(B & k) wird ja die zelle definiert, durch k sind die zeilen definiert und werden hochgezählt.
aber wie mache ich dass mit B, das B bis Z hochgezählt wird?
weiters habe ich in .FormulaLocal = "=(A" & k & "-B10)" dasselbe problem:
A ist eine fixe Spalte, jedoch sollte dann B wiederum weiter nach Z hochgezählt werden wobei 10 wieder eine fixe Zeile ist?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
For i_ = 1 To 100
Dim k As String
k = 10 + i_
Application.EnableEvents = False
Select Case Target(1, 1).Address(0, 0)
Case ("B" & k)
If IsEmpty(Target(1, 1)) Then
Target(1, 1).FormulaLocal = "=(A" & k & "-B10)"
End If
End Select
Application.EnableEvents = True
Next i_
End Sub
besten dank
thomas