Thema Datum  Von Nutzer Rating
Antwort
Rot For Schleife bei Button "Undo" mit i = i-1 weiter
 11.06.2010 13:03:05 Juliane
NotSolved

Ansicht des Beitrags:
Von:
Juliane		 Datum:
11.06.2010 13:03:05		 Views:
1569		 Rating:
     
Antwort:
  Ja
Thema:
For Schleife bei Button "Undo" mit i = i-1 weiter
Hallo ihr klugen Koepfe da draussen,

ich habe folgendes Problem:

Ich lasse ueber eine For / Next - Schleife und ein Userform Werte in verschiedene Zellen eintragen. Dabei aendert sich immer die Spalte. Entsprechend der Schleife wird nach und nach eine Zelle aktiviert. Wenn ich im Uderform of "ok" druecke, nimmt meine activeCell den Wert der Combobox an. Druecke ich auf "skip" wird activecell = "missing" ausgegeben. Solange, bis ich die komplette Kategorie abgearbeitet habe.

Wenn der Knopf "undo" gedrueckt wird, moechte ich, dass die Schleife einen Schritt zurueck springt und von dort aber trotzdem bis zum Ende der Kategorie durchlaeuft. Quasi, wenn ich einen Eingabefehler gemacht habe. Ich habe allerdings keine Idee, wie ich das umsetzen kann. Weil i = i-1 fuehrt zu wilden Dingen nur nicht zum Erwuenschten.

(Ich habe verschiedene Kategorien, fuer die ich den selben Algorythmus verwende, deshalb bitte nicht ueber die Definition von "c" wundern). Hier nun meine Testkategorie:

Sub InputHSEmonthlyTestOct()


Sheets("Monthly by HSE").Activate


Dim i As Integer
Dim b As Double
Dim c


For i = 101 To 108

'Definition von c fuer hoehrer Spalten

If i 122 And i 148 Then


c = "b" + Chr(i - 52)

End If
End If
End If

'Ende der Definiton

UserForm1.Label_Category.Caption = Range("e11").Value
UserForm1.Label_Unit.Caption = Range(c & "14").Value

Range(c & "20").Activate

UserForm1.Show

Next

Sheets("Administration").Activate

End Sub

Fuer das Userform folgende Text:


Private Sub BUT_InputOK_Click()

ActiveCell.Value = UserForm1.BOX_Input.Value
UserForm1.Hide

End Sub

Private Sub BUT_InputSkip_Click()

ActiveCell.Value = "missing"
UserForm1.Hide

End Sub


Ich hoffe, jemand weiss Rat. Ich wuerde mich sehr ueber Hilfe freuen.

Vielen Dank
Juliane

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot For Schleife bei Button "Undo" mit i = i-1 weiter
 11.06.2010 13:03:05 Juliane
NotSolved