Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makrowiederholung über zellwert

Forumthread: Makrowiederholung über zellwert

Makrowiederholung über zellwert
05.02.2005 00:39:41
louis
hallo forum,
ich würde gerne ein makro beliebig wiederholen und die anzahl der wiederholungen über einen zellwert steuern.
Habe aber keine ahnung wie ich das machen soll.
kann mir jemand helfen
danke schon im vorraus
louis
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makrowiederholung über zellwert
RainerK
Hi,
mal so als Ansatz:

Sub test()
'Zahl steht in Zelle A1
Dim i As Integer
For i = 1 To Cells(1, 1).Value
MsgBox i 'oder hier Dein Makro
Next i
End Sub

MfG Rainer
AW: Makrowiederholung über zellwert
louis
Hallo Rainer,
danke für den tip
ich habe die nacht noch rumprobiert und bin zu folgender lösung gekommen

Private Sub CommandButton1_Click()
Dim Check, Counter
Test = True: Zähler = 0    ' Variablen initialisieren.
Do    ' Äußere Schleife.
Do While Zähler < 20
Range("A1:B1").Select
Selection.Copy
x = 2
SucheLeer:
If Cells(x, 1).Value = "" Then
Range(Cells(x, 1), Cells(x, 1)).Select
ActiveSheet.Paste
Else
x = x + 1
GoTo SucheLeer
End If ' Innere Schleife.
Zähler = Zähler + 1    ' Zähler hochzählen.
If Zähler = Cells(3, 3).Value Then   ' Wenn Bedingung = True,
Test = False    ' Attributwert auf False setzen.
Exit Do    ' Innere Schleife verlassen.
End If
Loop
Loop Until Test = False
End Sub

funzt prima
werde jetzt mal deinen vorschlag ausprobieren
mfg und schönes we
louis
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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