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

if-Abfrage beenden

if-Abfrage beenden
23.04.2003 09:21:50
Nicole
Hey Ihrs,

ich habe in einer Schleife 4 IF-Abfragen. Im Moment werden diese ja auch bei gefundenen Daten in der ersten Abfrage noch alle durchlaufen. Kann ich das nicht stoppen, so dass bei gefundenen Daten in der ersten Abfrage sofort wieder an den Schleifen-Anfang (Do Until) gesprungen wird?? Hier der Code:

Do Until i = ActiveSheet.UsedRange.Rows.Count

If ActiveCell.Value = Sheets("Grunddaten").Cells(28, 2).Value Then
z = ActiveCell.Row
Range("A" & z, "J" & z).Copy
Sheets("Hammer").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats
ActiveCell.Offset(1, 0).Select
Sheets("Auftragseingabe").Select
=> hier jetzt Code zurück zum DO-UNTIL-ANFANG <============
End If

If ActiveCell.Value = Sheets("Grunddaten").Cells(29, 2).Value Then
z = ActiveCell.Row
Range("A" & z, "J" & z).Copy
Sheets("Hammer").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats
ActiveCell.Offset(1, 0).Select
Sheets("Auftragseingabe").Select
End If

=> jetzt kommen noch 2x ähnliche IF-Abfragen, dann

ActiveCell.Offset(1, 0).Select
i = i + 1
Loop

Danke für die Hilfe.
Nicole




1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: if-Abfrage beenden
23.04.2003 09:28:17
Harald Neumann

Hallo Nicole,

probier es doch einmal mit Select Case.

Wenn eine Case-Bedingung erfüllt ist, ega welche, werden
die anderen Case-Bedingungen garnicht mehr angesprungen,

Gruss Harald

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige