Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1520to1524
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro ausführen bis ...

Makro ausführen bis ...
01.11.2016 14:42:10
Fritz
Hallo VBA-Kundige,
benötige erneut eure Hilfe wie folgt:
Ich möchte ein Makro mehrmals ausführen.
Nach jeder Ausführung soll der Wert im Tabellenblatt "Tabelle1" in Zelle C66 um 1 erhöht werden. Das Makro sollte so oft wiederholt werden, bis entweder Zelle C67 die Zahl 1 ausweist oder die Zahl in C66 dem Zahlenwert in C68 entspricht.
Für Eure Unterstützung im Voraus besten Dank.
mfg
Fritz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro ausführen bis ...
01.11.2016 15:04:46
Bastian
So was ?
Gurß Basti
Sub asfas()
With Worksheets("Tabelle1")
If .Range("C67").Value  1 Then
If .Range("C68").Value  .Range("C66").Value Then
.Range("C66").Value = .Range("C66").Value + 1
End If
End If
End With
End Sub

AW: Makro ausführen bis ...
01.11.2016 15:26:29
KlausF
Hallo Fritz,
ich habe Dich so verstanden, dass Du bereits ein Makro vorliegen
hast, welches mehrmals hintereinander ausgeführt werden soll(?)
Wenn ja, dann vielleicht so (anderenfalls das Makro von Bastian):
Sub Zellwerte()
Dim i As Integer
With Worksheets("Tabelle1")
For i = 1 To 2
'Hier Dein Makro
Range("C66").Value = Range("C66").Value + 1
If Range("C67").Value = 1 Then Exit Sub
If Range("C66").Value = Range("C68").Value Then Exit Sub
i = i - 1
Next i
End With
End Sub
Gruß
Klaus
Anzeige
AW: Makro ausführen bis ...
01.11.2016 15:32:21
Fritz
Hallo Bastian und Klaus,
vielen Dank für Eure Hilfe.
Werde es heue abend testen und melde mich später hier noch mal.
Gruß
Fritz
AW: Makro ausführen bis ...
01.11.2016 18:35:19
Fritz
Hallo Klaus und Bastian,
es war in der Tat gemeint, dass ein bereits vorhandenes Makro entsprechend oft ausgeführt werden soll.
Insofern habe ich den Code von Klaus verwendet und es funktioniert.
Euch beiden nochmals herzlichen Dank.
Gruß
Fritz

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige