Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
560to564
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
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige