Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hochzählen bei Wert 30 stoppen

Hochzählen bei Wert 30 stoppen
20.04.2005 19:45:38
Rolf
Hallo Excelprofis,
bei jedem Auslösen des folgenden Makros wird der Inhalt der Zelle A1 um "1" erhöht. Ich möchte das Makro so erweitern, daß beim 30. mal der Inhalt der Zelle A1 nicht mehr erhöht wird.
Hat jemand eine Idee, wie das Makro dann aussehen muß?

Sub Rechenoperationen01()
Dim i As Integer
Sheets("Tabelle1").Activate
i = Range("A1").Value
i = i + 1
Range("A1").Value = i
End Sub

Vielen Dank im voraus
Rolf

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
if [a1]=30 then exit sub ?
20.04.2005 19:53:51
ransi
hallo rolf
geht das so?

Sub Rechenoperationen01()
Dim i As Integer
if [a1]=30 then exit sub
Sheets("Tabelle1").Activate
i = Range("A1").Value
i = i + 1
Range("A1").Value = i
End Sub

ransi
AW: Hochzählen bei Wert 30 stoppen
20.04.2005 20:11:37
Klaus-Dieter
Hallo Rolf,
versuche es mal so:

Sub rechnen()
If Worksheets("Tabelle1").Cells(1, 1).Value < 30 Then
Worksheets("Tabelle1").Cells(1, 1).Value = Worksheets("Tabelle1").Cells(1, 1).Value + 1
End If
End Sub

Gruß Klaus-Dieter

Anzeige
AW: Hochzählen bei Wert 30 stoppen
20.04.2005 20:16:38
Andre
Hallo Rolf,

Sub Rechenoperationen01()
If Range("A1") = 30 Then
[a1] = [a1] + 0
End If
If Range("A1") < 30 Then
[a1] = [a1] + 1
End If
End Sub

Tschüü Andre
AW: Hochzählen bei Wert 30 stoppen
20.04.2005 20:16:52
Andre
Hallo Rolf,

Sub Rechenoperationen01()
If Range("A1") = 30 Then
[a1] = [a1] + 0
End If
If Range("A1") < 30 Then
[a1] = [a1] + 1
End If
End Sub

Tschüü Andre
AW: Hochzählen bei Wert 30 stoppen
20.04.2005 21:01:51
Rolf
Hallo Ransi, Klaus-Dieter und Andre,
ich habe alle Makros getestet - funktionieren alle.
Vielen Dank für eure Mühe
Rolf
[a1] = [a1] - ([a1] < 30)
20.04.2005 20:26:29
ransi
hallo
oder so um die verwirrung komplett zu machen:

Sub Rechenoperationen01()
[a1] = [a1] - ([a1] < 30)
End Sub

ransi
Anzeige
AW: [a1] = [a1] - ([a1] < 30)
20.04.2005 22:18:50
Tinu
Hallo Ransi
ist ja super! aber erkläre mir bitte den ausdruck ([a1] &lt 30)
besten Dank
Tinu

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige