Re: Zahlenreihen verlängern per Makro
26.06.2003 20:07:07
Stony
Hallo Thomas,Du sagtest ohne VBA, nun bin ich am Überlegen ob du bei "VBA" die Makros ausgeschlossen hast oder nicht..
Nur mit Formeln bezweifle ich, das sowas funktioniert.. Ist ja keine Zellen-Formatierung in dem Sinn..
Ich habe hier ein Makro für dich: (Zahlenreihe_verlängern)
'-------den Code in ein Modul einfügen und fertig-----
Sub Zahlenreihe_verlängern()
'
' Makro4 Makro
' Makro am 26.06.2003 von Stony aufgezeichnet
wh = InputBox("Anzahl der Wiederholung:", _
"Für Aktive Zelle nach unten..") 'Eingabe-Fenster
If wh <> "" Then 'Anfang
Do While Not ActiveCell.Value = "" 'Loop-Schleife beenden, wenn Zelle ohne Inhalt..
For i = 1 To wh - 1 'Anzahl der Wiederholvorgänge
ActiveCell.Select
Application.CutCopyMode = False '"Kopieren ohne Ausschneiden"-Vorgang
Selection.Copy 'Kopier-Vorgang
ActiveCell.Offset(1, 0).Range("A1").Select '1 Zelle nach unten
Selection.Insert Shift:=xlDown 'Zellen nach unten verschieben
Next i 'nächste Wiederholung
'Ende der Wiederhohlung
ActiveCell.Offset(1, 0).Range("A1").Select 'Zeile nach unten
Loop 'Loop-Schleife läuft bis -siehe oben: "Do While Not..."
End If ' Ende
End Sub
'--------------------------Code Ende------------------------
Ich hoffe es hilft dir weiter..
mfg Stony