Situation:
zwei Userforms: UserForm1 und UserForm3
In UserForm 1 wird mit folgendem Code eine Variable ermitelt (ABC genannt):
Private Sub ComboBox1_Change()
UserForm3.Label2.Caption = "Die Liste enthält aktuell " & _
WorksheetFunction.CountIf(Sheets(1).Columns(2), ComboBox1.Value) & " Einträge."
ABC = WorksheetFunction.CountIf(Sheets(1).Columns(2), ComboBox1.Value)
End Sub
Bein F8 durchlauf hat sie an dieser Stelle z.B. den Wert 170 (wird auch so angezeigt, wenn man mit dem Pfeil auf ABC fährt)
Dann wechselt das Makro nach einigen anderen abarbeitungen zu UserForm3 (mit Hide/Show) Dort wird folgendes makro abgearbeitet:
Sub NurPapier()
if ABC > 150 then
mach das Else mach jenes
Application.ScreenUpdating = False
Sheets("Tabelle3").Select
Application.ActivePrinter = "\\CPPUMPSRV101\HP Color LaserJet 4500 auf Ne05:"
ActiveWindow. etc....
An dieser Stelle hat ABC aber dann den Wert "Leer".
Aufgabenstellung: Wie krieg ich meine ABC-Wert von UserForm1 in UserForm3 in das NurPapier-Makro rübergerettet (natürlich mit den entsprechenden Wert von 170)? Mit an Hide oder Unload kann's nicht liegen. Ist alles mit Hide hinterlegt!
Ich hoffe, ich habe alles so Formuliert, dass alle Infos vorhanden sind.
Danke für Lösungsansätze!
Rolf