Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schleife automatisch wiederholen

Forumthread: 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

Anzeige

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige