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

Schleife

Forumthread: Schleife

Schleife
Karsten
Hallo,
ich möchte diesen Code 10 mal als Schleife durchlaufen lassen (auch wenn es sinnos erscheint).
Kann mir jemand weiterhelfen?
Danke.
Dim unterkante_1 As Range
Set unterkante_1 = ActiveWindow.VisibleRange
Zeile1 = ActiveCell.Row
ActiveWindow.ScrollRow = WorksheetFunction.Max(1, Zeile1 - unterkante_1.Rows.Count / 1.01)
Gruß
Karsten
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Schleife
06.07.2010 21:11:16
Holger
Hallo,
Probiere mal das aus
Dim i as integer
for i = 1 to 10
hier dein Code
next i
AW: Schleife
06.07.2010 21:21:06
Karsten
Hallo Holger,
danke.
Gruß
Karsten
AW: Schleife
06.07.2010 21:12:18
Josef

Hallo Karsten,
man(n) muss ja nicht alles verstehen;-))

Sub nonsense()
  Dim unterkante_1 As Range
  Dim Zeile1 As Long, lngC As Long
  
  For lngC = 1 To 10
    Set unterkante_1 = ActiveWindow.VisibleRange
    Zeile1 = ActiveCell.Row
    ActiveWindow.ScrollRow = WorksheetFunction.Max(1, Zeile1 - unterkante_1.Rows.Count / 1.01)
  Next
End Sub

Gruß Sepp

Anzeige
AW: Schleife
06.07.2010 21:20:48
Karsten
Hallo Sepp,
danke.
Gruß
Karsten
;

Beliebteste Forumthreads (12 Monate)

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