VBA-Syntax
22.09.2006 18:54:19
thomas
Dim x As Integer
Dim y As Integer
Sub start()
If Cells(50000, 256) = "" Then
x = ActiveCell.Column
y = ActiveCell.Row
ActiveCell.FormulaR1C1 = "F"
ActiveCell.Interior.ColorIndex = 36
Cells(y, x + 1).Select
Cells(50000, 256) = "x"
Else
Selection.Formula = "F"
Selection.Interior.ColorIndex = 36
End If
End Sub
Der erste Teil vor "ELSE" sollte beim Drücken der Schaltfläche bewirken
dass in einer Zelle "F" eingetragen wird, sowie der Hintergrund auf gelb
abgeändert wird. Aber der Curser soll dann eins nach rechts rücken.
Dass macht er jetzt nicht mehr. Was ist hier nicht richtig.
Chris b hat mich gut unterstützt.
Danke für die Hilfe
thomas
Anzeige