Ladebalken
13.04.2015 09:50:10
Philipp
Ich habe in einem älteren Beitrag ( https://www.herber.de/forum/archiv/900to904/902228_Ladebalken_fuer_Makros.html - zweitletzte Antwort) eine sehr schöne Beispieldatei gefunden, wie ein Ladebalken über ein vba-Formular generiert wird (1. Beispiel).
Diesen Ladebalken wollte ich gerne in meiner Datei integrieren, wobei ich gänzlich versagt habe und auf eure Hilfe hoffe. Ich habe schon viel rum probiert, aber bekomme jedes mal einen anderen Fehler. Leider befasse ich mich erst seit kurzer Zeit mit VBA und bin daher (noch) kein Profi :)
Meine Vorgehensweise:
Ich war so frech und habe das Formular (Den Balken) einfach mal in mein Excel-dokument gespeichert. Der erste Unterschied zur Beispieldatei ist, dass meine Subs nicht in einem externen Modul, sondern in den Worksheets stehen.
Dieser Code steht in in meinem Worksheet Tabelle1:
'Initialisierung für den Prozessbalken
Public SW As Long
Public Schritt As Double
Public Länge As Double
Public Sub plan_load_Click()
Dim i As Long
Dim speichergroesse As Long
Dim pep_zeilen As Long
Dim woche_zeilen As Long
Dim erste_ladezeile As Long
If Tabelle9.Cells(1, 2) > 0 Then
PB1.Show
erste_ladezeile = 0
pep_zeilen = 7
woche_zeilen = 12
i = 3
speichergroesse = Tabelle9.Cells(2, 1)
'Deklarationen für den Prozessbalken
SW = 3005 'Schrittweite festlegen
Länge = 0
Schritt = PB1.Label1.Width / SW
While i
"Unnötigen Code", bei welchem einfach nur irgendwelche Dinge hin und her kopiert werden habe ich durch ein "'bla bla bla" ersetzt :)In meinem Formular steht folgendes:
Option Explicit
Public SW As Long
Public Sub UserForm_Activate()
SW = 0
Label2.Width = 0
Call Tabelle1.plan_load_Click
End Sub
Bin für jede Hilfe dankbar!
Liebe Grüße, Philipp