Makro: endlosschlaufe ungewollt

Dieses Thema Makro: endlosschlaufe ungewollt im Forum "Microsoft Office Suite" wurde erstellt von Billy, 10. Apr. 2005.

Thema: Makro: endlosschlaufe ungewollt und nochmal ich ^^ öhm bei meinem Makro hier hab ich irgend wo was falsches gemacht. das ding führt ne...

  1. und nochmal ich ^^

    öhm bei meinem Makro hier hab ich irgend wo was falsches gemacht. das ding führt ne endlosschlaufe aus

    ich hoffe das hier nützt euch etwas

    Code:
    Function chk_x(ws As Worksheet, Bereich, anfang_zeile, ende_zeile, s_fkurz, fuehrer_zeile)
    Dim columns As Long, x As Long, y As Long, fuehrer As Long, error As Long
    columns = ws.Range(Bereich).columns.Count + 1
    x = 2
    error = 0
    fuehrer = 0
    MsgBox (Anfang -->  & anfang_zeile &  -  & ende_zeile &  -->  & s_fkurz)
    
    For x = 2 To columns
      
      For y = anfang_zeile To ende_zeile
        If Cells(y, x) = s_fkurz Then
          MsgBox (y=  & y)
          fuehrer = fuehrer + 1
        End If
      Next
      
     ->Wenn fuehrer = 1
      If fuehrer = 1 Then
        Cells(fuehrer_zeile, x).Value = X
      End If
      
     ->msgbox
      MsgBox (Error =  & error &  || X =  & x &  || Columns=  & columns)
      fuehrer = 0
      error = error + 1
      If error >= 10 Then
        x = columns + 1
      End If
    Next
    
    End Function
    wäre froh wenn wer den fehler findet

    mfg Billy / fire-x

    /* Edit /*

    hat sich erledigt
     
  2. Hallo Fire-X,

    Ich poste deine Frage mal nach oben.

    Gruß
    Silke
     
  3. Aber warum das denn? Im Edit steht, es hätte sich erledigt.
     
  4. hi öll

    ist nett dass ihr es nach oben postet aber es hat sich im moment erledigt =)

    das ganze ist bei einer externen Abteilung die nun daran schrauben und mir dann sagen, was sie brauchen. also stimmt es schon -> es hat sich im moment erledigt ^^

    mfg fire-x
     
Die Seite wird geladen...

Makro: endlosschlaufe ungewollt - Ähnliche Themen

Forum Datum
Excel VBA Makro zum suchen eines Textes und anschließend einen Breich zu kopieren Microsoft Office Suite 22. Jan. 2015
Word 2013 VBA: Makro aus einer anderen Datei aufrufen Microsoft Office Suite 16. Juni 2014
Excel VBA Makro zum suchen und markieren von Zeilen die ein bestimmtes Wort enthalten Microsoft Office Suite 16. Juni 2014
Excel: Makro ASCII verschieben Windows XP Forum 8. Nov. 2013
Makros und anderes - Excel Microsoft Office Suite 15. März 2013