Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Wow, ganz grosse Klasse, funktioniert perfekt. Da hab ich doch tatsächlich 4 Monate gebraucht(und geärgert), bis ich auf die Idee gekommen bin, dass hier nachzufragen.

Aber ganz ehrlich, selbst wenn ich mich da eine Woche dran gesetzt hätte, so gut hätte ichs nie hingekriegt.

Vielen Dank macht gleich Spass damit zu arbeiten :-)

*schmunzel* Du hast recht, werd mich wieder melden, sobald ich mir die Zähne ausgebissen hab.

Merci

Hallo miteinander

Um von einer Zelle in die andere zu springen, sobald ich einen Wert eingegeben hab, ist folgender Code entstanden. Nun habe ich versucht diesen Code 500x zu schreiben (da 500 Zeilen), jetzt zeigt es mir einen Fehlercode an, der Code sei zu lang. Kann mir jemand einen "Loop" schreiben, damit dies bis Zeile 500 funktioniert?

Vielen Dank.

Lieben Gruss
SVP86


If Not Intersect(Range("H11"), Target) Is Nothing Then
    Range("B11").Select
End If
If Not Intersect(Range("B11"), Target) Is Nothing Then
    Range("H12").Select
End If
If Not Intersect(Range("H12"), Target) Is Nothing Then
    Range("B12").Select
End If
If Not Intersect(Range("B12"), Target) Is Nothing Then
    Range("H13").Select
End If
If Not Intersect(Range("H13"), Target) Is Nothing Then
    Range("B13").Select
End If
If Not Intersect(Range("B13"), Target) Is Nothing Then
    Range("H14").Select
End If
If Not Intersect(Range("H14"), Target) Is Nothing Then
    Range("B14").Select
End If
If Not Intersect(Range("B14"), Target) Is Nothing Then
    Range("H15").Select
End If

etc....