Da fehlt ein End If, aber wo?

Bild

Betrifft: Da fehlt ein End If, aber wo?
von: xico
Geschrieben am: 15.10.2003 10:52:38

Hallo liebe Forumsteilnehmer,

als blutiger VBA-Anfänger, der seinen Spass daran gefunden hat, habe ich im folgenden Code ein End If fehlerhaft:


Sub Increase()
Dim d, e As Integer
For d = Sheets(1).Cells(13, 11).Value To 16
For e = 41 To 80
  If Sheets(1).Cells(13, 11) = "99" Then
   Exit Sub
  Else
   If Cells(e, 25) <> "1" Then
     Next e
   Else
     Select Case Cells(e, d)
      Case Is = ""
       Cells(e, d) = ""
      Case Is <> ""
       Cells(e, d) = Cells(e, d) * Sheets(1).Cells(13, 4)
     End Select
   End If
  End If
 Next e
 Next d
End Sub


Ich habe schon so manches probiert, geht aber nicht.

Danke für Antworten.
Xico
Bild


Betrifft: AW: Da fehlt ein End If, aber wo?
von: GerdW
Geschrieben am: 15.10.2003 10:59:54

If sind schon ok aber das hier:
If Cells(e, 25) <> "1" Then
Next e 'hat hier nichts zu suchen
Else

Gerd


Bild


Betrifft: AW: Da fehlt ein End If, aber wo?
von: Andreas St
Geschrieben am: 15.10.2003 10:59:56

Hallo,

du hast zweimal next e, das geht so nicht.

Versuch's mal so:
(Mit Goto und Sprungmarken zu arbeiten ist zwar nicht gerade so toll, aber was soll's)

Sub Increase()
Dim d, e As Integer
For d = Sheets(1).Cells(13, 11).Value To 16
For e = 41 To 80
  If Sheets(1).Cells(13, 11) = "99" Then
   Exit Sub
  Else
   If Cells(e, 25) <> "1" Then
     GoTo Marke
   Else
     Select Case Cells(e, d)
      Case Is = ""
       Cells(e, d) = ""
      Case Is <> ""
       Cells(e, d) = Cells(e, d) * Sheets(1).Cells(13, 4)
     End Select
   End If
  End If
Marke:
 Next e
 Next d
End Sub


Gruss
Andreas


Bild


Betrifft: AW: Da fehlt ein End If, aber wo?
von: Andreas Walter
Geschrieben am: 15.10.2003 11:01:08

Ich tippe auf


Sub Increase()
Dim d, e As Integer
For d = Sheets(1).Cells(13, 11).Value To 16
For e = 41 To 80
  If Sheets(1).Cells(13, 11) = "99" Then
   Exit Sub
  Else
   If Cells(e, 25) <> "1" Then
     Exit For   <-------------------------------Hier geändert
   Else
     Select Case Cells(e, d)
      Case Is = ""
       Cells(e, d) = ""
      Case Is <> ""
       Cells(e, d) = Cells(e, d) * Sheets(1).Cells(13, 4)
     End Select
   End If
  End If
 Next e
 Next d
End Sub



Bild


Betrifft: AW: Da fehlt ein End If, aber wo?
von: RAnton
Geschrieben am: 15.10.2003 11:03:04

Hall Xico,

das geht so nicht.


Sub Increase()
Dim d, e As Integer
For d = Sheets(1).Cells(13, 11).Value To 16
For e = 41 To 80
  If Sheets(1).Cells(13, 11) = "99" Then
   Exit Sub
  Else
   If Cells(e, 25) <> "1" Then
     Next e <------------------------- dieses Next macht keinen Sinn
   Else
     Select Case Cells(e, d)
      Case Is = ""
       Cells(e, d) = ""
      Case Is <> ""
       Cells(e, d) = Cells(e, d) * Sheets(1).Cells(13, 4)
     End Select
   End If
  End If
 Next e
 Next d
End Sub



Was genau willst du denn machen.

Gruß
RAnton


Bild


Betrifft: Danke
von: Xico
Geschrieben am: 15.10.2003 11:16:03

Lieben Dank an Euch :-)


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Application Eigenschaft ?"