For-Each schleife anhalten
23.10.2005 16:38:36
john
Das Program sollte eine Liste durchlaufen und für jeden Eintrag bestimmte Tabellenblätter aufmachen. Das problem ist, daß die Blätter hintereinander geöffnet werden ohne daß der User seiner Daten eigeben kann. Die Schleife funktioniert, aber ich weiß nicht wie ich das Program anhalten kann und ob es überhaupt möglich ist. Ich möchte, daß nach der Dateneingabe im Tabellenblatt der Codeschleife nur durch das Anklicken des Save-Data-Button weiter läuft.
Ich wäre sehr Dankbar, wenn Sie mir einen Tip geben Können.
John
[code]
Sub EnterData()
Dim objIC As Worksheet
Set objIC = ThisWorkbook.Worksheets("Indicator choice")
Dim i As Range
Dim LIN As Range
Set LIN = objIC.Range("B1:B4")
For Each i In LIN
Select Case i.Value
Case 1
Equity_Growth 'ruft ein Tabellenblatt auf
Case 2
TotalAssetGrowth 'ruft ein Tabellenblatt auf. Code ist identisch mit Equity Growth- nur mit einem anderen Tabellenblatt.
End Select
Next i
Debug.Print "Schleife Fertig"
End
Sub
Sub Equity_Growth()
Dim objcboYear1 As Object
Dim objcboYear2 As Object
Set objcboYear1 = ThisWorkbook.Worksheets("Liabilities").cboYear1Set objcboYear2 = ThisWorkbook.Worksheets("Liabilities").cboYear2
Worksheets("Liabilities").Activate
MsgBox "Please Select a period For data entry."
Debug.Print "period msgbox clicked"
'Hier fehlt ein Kommando das program anzuhalten bis ein Command Button angeklickt wird.
End Sub
[/code]