vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Re: Fehler bei Select Case? 
Autor: Sebastian
Datum: 29.10.02 08:13
Ich hab das ganze nun mal mit If probiert. Aber auch hier wird das ganze nur einmal statt dreimal durchlaufen. Mache ich einen prinzipellen Fehler??

Der Code:
For i = 0 To 2
    z = Zeiten(i)
'    Select Case z
'        Case Is <= (ExcelIndexParameter + 4)
     If z >= (ExcelIndexParameter + 4) And z <= (ExcelIndexParameter + 20) Then
            x = Zeiten(i) - (ExcelIndexParameter + 5)
            NewPro.Range("C" & z) = frmhaupt.UserControl11.TextBoxElem(x)
'        Case Is <= (ExcelIndexParameter + 21)
    ElseIf z >= (ExcelIndexParameter + 21) And z <= (ExcelIndexParameter + _
      37) Then
            x = Zeiten(i) - (ExcelIndexParameter + 22)
            NewPro.Range("C" & z + 2) = frmhaupt.UserControl12.TextBoxElem(x)
'        Case Is <= (ExcelIndexParameter + 38)
    ElseIf z >= (ExcelIndexParameter + 38) And z <= (ExcelIndexParameter + _
      54) Then
            x = Zeiten(i) - (ExcelIndexParameter + 39)
            NewPro.Range("C" & z + 4) = frmhaupt.UserControl13.TextBoxElem(x)
'        Case Is <= (ExcelIndexParameter + 55)
    ElseIf z >= (ExcelIndexParameter + 55) And z <= (ExcelIndexParameter + _
      71) Then
            x = Zeiten(i) - (ExcelIndexParameter + 56)
            NewPro.Range("C" & z + 6) = frmhaupt.UserControl14.TextBoxElem(x)
'        Case Is <= (ExcelIndexParameter + 72)
    ElseIf z >= (ExcelIndexParameter + 72) And z <= (ExcelIndexParameter + _
      88) Then
            x = Zeiten(i) - (ExcelIndexParameter + 73)
            NewPro.Range("C" & z + 8) = frmhaupt.UserControl15.TextBoxElem(x)
'        Case Is <= (ExcelIndexParameter + 89)
    ElseIf z >= (ExcelIndexParameter + 89) And z <= (ExcelIndexParameter + _
      105) Then
            x = Zeiten(i) - (ExcelIndexParameter + 90)
            NewPro.Range("C" & z + 10) = frmhaupt.UserControl16.TextBoxElem(x)
'        Case Is <= (ExcelIndexParameter + 106)
    ElseIf z >= (ExcelIndexParameter + 106) And z <= (ExcelIndexParameter + _
      122) Then
            x = Zeiten(i) - (ExcelIndexParameter + 107)
            NewPro.Range("C" & z + 12) = frmhaupt.UserControl17.TextBoxElem(x)
'        Case Is <= (ExcelIndexParameter + 123)
    ElseIf z >= (ExcelIndexParameter + 123) And z <= (ExcelIndexParameter + _
      139) Then
            x = Zeiten(i) - (ExcelIndexParameter + 124)
            NewPro.Range("C" & z + 14) = frmhaupt.UserControl18.TextBoxElem(x)
'    End Select
    End If
Next
Gruß

Sebastian
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fehler bei Select Case?160Sebastian29.10.02 07:45
Re: Fehler bei Select Case?78Sebastian29.10.02 08:13
Re: Fehler bei Select Case?331unbekannt29.10.02 13:04
Hab es mittlerweile anderst gelöst o.T.70Sebastian29.10.02 14:41

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel