Vba Hilfe
06.11.2005 09:04:23
Lucien
Ich habe mir folgendes Makro zusammen gebastelt:
Dim ajoute As String
Dim i As Integer, Ligne As Long
ajoute = InputBox(("Combien voulez vous rajouter au stock ?"), " (AJOUTE AU STOCK) ", 0, 5000, 5000)
For i = 1 To 2
i = ajoute
Ligne = Range("H72").End(xlUp).Row + i
Range("H" & i).Value = "x"
Next
Excel macht aber nicht das was ich möchte.
Ich möchte dass wenn in die Inputbox 10 geschrieben wird,dass Excel dann ab der zelle "H72" 10 Zellen nach oben geht und in diese ein x schreibt, also "H72:H62" soll ein x stehen.
Wenn in die Inputbox 4 steht dann soll er ab Zelle "H72" 4 Zellen nach oben gehen und in diese ein x schreiben.
Was muss ich am Makro verändern?
Danke und gruss Lucien