For Next-Schleife wird übersprungen
18.07.2005 09:47:07
philipp
beim Testen eines Vorläufigen Codes wurde beim schrittweise debuggen immer meine For next Schleife übersprungen. Ich weiß wirklich nicht warum. Die Tabelle 1 bis Tabelle 37 sind vorhanden.
Hier ist der Code:
Sub reinkopieren()
Dim korrektur As Workbook
Dim tabelle As Integer
Dim row As Integer
Dim maxRow As Integer
Const Formelsonder As String = "=WENN(SUMME(F3:H3)<0,3125;0,3125-SUMME(F3:H3);0)"
Set korrektur = ActiveWorkbook
For tabelle = 1 To tabelle = 37 Step 1
Sheets(tabelle).Range("J2").Select
maxRow = ActiveSheet.Cells.Find(What:="*", After:=ActiveSheet.Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row
If tabelle = 1 Or 13 Then
ActiveCell.Offset(1, 0).Select
End If
Next tabelle
End Sub
Der gelbe Corser springt immer auf die Zeile ("For tabelle = 1 ...) und danach auf die letzte Zeile (End Sub ). Er macht überhaupt nichts in meine For next schleife wißt ihr warum?
gruß philipp