Hochzählen bei Wert 30 stoppen

Bild

Betrifft: Hochzählen bei Wert 30 stoppen
von: Rolf
Geschrieben am: 20.04.2005 19:45:38
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
Bild

Betrifft: if [a1]=30 then exit sub ??
von: ransi
Geschrieben am: 20.04.2005 19:53:51
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
Bild

Betrifft: AW: Hochzählen bei Wert 30 stoppen
von: Klaus-Dieter
Geschrieben am: 20.04.2005 20:11:37
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

Bild

Betrifft: AW: Hochzählen bei Wert 30 stoppen
von: Andre
Geschrieben am: 20.04.2005 20:16:38
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
Bild

Betrifft: AW: Hochzählen bei Wert 30 stoppen
von: Andre
Geschrieben am: 20.04.2005 20:16:52
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
Bild

Betrifft: AW: Hochzählen bei Wert 30 stoppen
von: Rolf
Geschrieben am: 20.04.2005 21:01:51
Hallo Ransi, Klaus-Dieter und Andre,
ich habe alle Makros getestet - funktionieren alle.
Vielen Dank für eure Mühe
Rolf
Bild

Betrifft: [a1] = [a1] - ([a1] < 30)
von: ransi
Geschrieben am: 20.04.2005 20:26:29
hallo
oder so um die verwirrung komplett zu machen:

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

ransi
Bild

Betrifft: AW: [a1] = [a1] - ([a1] < 30)
von: Tinu
Geschrieben am: 20.04.2005 22:18:50
Hallo Ransi
ist ja super! aber erkläre mir bitte den ausdruck ([a1] < 30)
besten Dank
Tinu
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Oberfläche anpassen"