Microsoft Excel

Herbers Excel/VBA-Archiv

if-Abfrage beenden

Betrifft: if-Abfrage beenden
von: Nicole
Geschrieben am: 23.04.2003 - 09:21:50

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




  

Re: if-Abfrage beenden
von: Harald Neumann
Geschrieben am: 23.04.2003 - 09:28:17

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

 

Beiträge aus den Excel-Beispielen zum Thema "if-Abfrage beenden"