Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1348to1352
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
Inhaltsverzeichnis

Schleife automatisch wiederholen

Schleife automatisch wiederholen
07.02.2014 12:22:46
Salim
Guten Tag,
Ich habe folgenden Code zusammengestellt.

Sub Interet()
' Interet Macro
Range("E44:J44").Select
Selection.Copy
Range("E41:J41").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Jetzt die Frage :
Wie kann ich es codieren, so dass die Schleife solange wiederholt wird, bis die Summe (E47:J47) Herzlichen Dank
Salim

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

Betreff
Datum
Anwender
Anzeige
AW: Schleife automatisch wiederholen
07.02.2014 12:33:30
Rudi
Hallo,
eine Möglichkeit:
Sub Interet()
' Interet Macro
Do
Range("E44:J44").Copy
Range("E41:J41").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Loop Until WorksheetFunction.Sum(Range("E47:J47")) 

Gruß
Rudi

AW: Schleife automatisch wiederholen
07.02.2014 12:46:44
Salim
Hallo Rudi,
Funktioniert Super, vielen Dank
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige