- #1
B
Billy
Guest
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
wäre froh wenn wer den fehler findet
mfg Billy / fire-x
/* Edit /*
hat sich erledigt
ö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