Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Per VBA Zähler in einer Zelle weiterzählen

641 views
Skip to first unread message

Franz22

unread,
Mar 5, 2011, 2:16:43 PM3/5/11
to
Hallo, in der Zelle A1 steht eine 1. Wie müsste der Teil eines Makros
aussehen, mit dem ich pro Durchlauf des Makro den Zähler immer um eins
(bis max. 4) erhöhe. (Mit einem anderen Makro stelle ich ihn dann
wieder auf 1). Vielen Dank vorab.

Claus Busch

unread,
Mar 5, 2011, 2:23:32 PM3/5/11
to
Hallo Franz,

folgender Code zählt um 1 hoch bis 4 und stellt dann wieder auf 1
zurück:
Sub Hochzaehlen()
If Range("A1") < 4 Then
Range("A1") = Range("A1") + 1
Else
Range("A1") = 1
End If
End Sub


Mit freundlichen Grüssen
Claus Busch
--
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Díetmar Vollmeíer

unread,
Mar 5, 2011, 2:53:55 PM3/5/11
to
Guten Abend Claus!

*Claus Busch* schrieb am 05.03.2011 um 20:23 Uhr...


> Am Sat, 5 Mar 2011 11:16:43 -0800 (PST) schrieb Franz22:

>> Hallo, in der Zelle A1 steht eine 1. Wie müsste der Teil eines Makros
>> aussehen, mit dem ich pro Durchlauf des Makro den Zähler immer um eins
>> (bis max. 4) erhöhe. (Mit einem anderen Makro stelle ich ihn dann
>> wieder auf 1). Vielen Dank vorab.

> folgender Code zählt um 1 hoch bis 4 und stellt dann wieder auf 1
> zurück:
> Sub Hochzaehlen()
> If Range("A1") < 4 Then
> Range("A1") = Range("A1") + 1
> Else
> Range("A1") = 1
> End If
> End Sub

Geht auch kürzer ;)

Sub Hochzaehlen()
[a1] = ([a1] Mod 4) + 1
End Sub
--
Servus | Wer etwas will sucht Wege,
Didi | wer etwas nicht will sucht Gründe!

Rainer Georg Blankenagel

unread,
Mar 5, 2011, 3:03:48 PM3/5/11
to
Franz22 <Franz22 <fgb...@web.de>>:

Mach's im gleichen Makro:

If Range("A1") < 4 then


Range("A1") = Range("A1") + 1
Else
Range("A1") = 1
End If


Rainer

Franz22

unread,
Mar 5, 2011, 3:46:56 PM3/5/11
to
On 5 Mrz., 21:03, Rainer Georg Blankenagel <f...@leganeknalb.de>
wrote:
> Franz22 <Franz22 <fgbu...@web.de>>:
>
> > Hallo, in der Zelle A1 steht eine 1. Wie m sste der Teil eines Makros
> > aussehen, mit dem ich pro Durchlauf des Makro den Z hler immer um eins
> > (bis max. 4) erh he. (Mit einem anderen Makro stelle ich ihn dann

> > wieder auf 1). Vielen Dank vorab.
>
> Mach's im gleichen Makro:
>
> If Range("A1") < 4 then
>    Range("A1") = Range("A1") + 1
> Else
>    Range("A1") = 1
> End If
>
> Rainer

Vielen Dank allerseits. Das hilft bestens.
Franz

0 new messages