AW: Spalte in 150 Zeilen in 10er Schritten nummerieren
13.11.2004 14:14:39
benno
Hallo Ehster
deine frage hat zwei möglichkeiten
zeile1 =1
zeile2 =11 usw,
oder
zeile1 =1
zeile10=11
anbei ein makro wo du einstellen kannst was du brauchst
Sub Zahl_Aufst_xfach()
ActiveCell.Select
Dim Zahl
Dim menge
Dim zahlwiederholung
zahlwiederholung = 1
Zahl = InputBox("StartZahl minus 1-das heißt ! beginn mit 1 eingabe 0 ")
menge = InputBox("Wieviele Zeilen willst du Nummerieren ??")
If Zahl = ("") Then
MsgBox ("Du hast keine START-ZAHL eingegeben !! Makro bitte neu Starten !!"), (vbCritical)
Exit Sub
End If
If menge = ("") Then
MsgBox ("Du hast keine MENGE eingegeben !! Makro bitte neu Starten !!"), (vbCritical)
Exit Sub
End If
For S = 1 To menge
'hier stellst du die Zahl ein (derzeit zb.10,20,30)bei eingabe 9
Zahl = Zahl + 10 'also hier die schrittweite der Zahl
For W = 1 To zahlwiederholung
ActiveCell.Value = Zahl
'Offset(1, 0)wenn du 1 änderst zb. auf 10 numeriert er zb.nur jede 10te Zeile
ActiveCell.Offset(1, 0).Range("A1").Select 'und hier die schrittweite der Zeilen
Next W
Next S
End Sub
lg benno