Wert um 1 erhöhen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Wert um 1 erhöhen
von: Jens
Geschrieben am: 16.06.2002 - 13:23:51

Hallo Excelfreunde
ich möchte per Makro unter der letzten gefüllten Zelle in Spalte 1 den Wert der letzten Zelle um 1 erhöht einfügen. Wie mache ich das?
Vielen Dank im Voraus Jens

nach oben   nach unten

Re: Wert um 1 erhöhen
von: Ramses
Geschrieben am: 16.06.2002 - 14:04:44

Hallo Jens,

Dieses Makro in ein Modul kopieren und ausführen


Sub AddOne()
Dim Cr as Long
Cr = 65356
If Cells(Cr,1)= "" Then
    Cr = Cells(cr,1).End(xlup).Row
End If
'Abbruch wenn in Spalte A noch kein Eintrag ist.
If Cr = 1 Then exit sub
'Erhöhen des letzten Wertes um 1
Cells(Cr+1,1) = Cells(cr,1) + 1
End Sub

nach oben   nach unten

Re: Wert um 1 erhöhen
von: stonee
Geschrieben am: 16.06.2002 - 14:10:26

Hey jens,

probier mal so:
funktioniert fuer Spalte A und erstes Sheet des Workbooks

--------------------------------------------------
Dim currentcell As Variant
Dim tempcell As Variant

Set currentcell = Sheets(1).Range("A1")

While Not IsEmpty(currentcell)

Set tempcell = currentcell.Offset(1, 0)
Set currentcell = tempcell

Wend

tempcell = currentcell.Offset(-1, 0)
currentcell.Value = tempcell + 1
--------------------------------------------------

gruss,
stonee

nach oben   nach unten

Re: Wert um 1 erhöhen
von: stonee
Geschrieben am: 16.06.2002 - 14:19:42

hey ramses,

wieder was gelernt in excel, mit dieser end property!


nach oben   nach unten

Re: Wert um 1 erhöhen
von: Ramses
Geschrieben am: 16.06.2002 - 15:17:39

Jeder programmiert eben auf seine Weise :-))
Wichtig ist nur das Ergebnis.

Gruss Rainer

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Macro über 99 Zeilen hinaus"