Office: (Office 2010) Makro erstellen

Hallo Karin,
Der dienstplan wird nun sicher gespeichert.
Danke......
Ich habe jetzt noch eine letzte sache damit
Es perfekt is...
Eine suche hat mich schon zu einem Ergebnis gebracht,
http://www.ms-office-forum.net/forum/showthread.php?t=277420
Den Beitrag kennst du vermutlich, ich würde gerne wenn es problemlos möglich ist auf Grund der doch langen ladezeit des Makros einen
Fortschrittsbalken einbauen.
Ist das Problemlos möglich?
Also kann ich den ersten teil des ladebalken vor dem eigentlichen Code einfügen und den Rest am ende... oder muss ich dazu meinen Code extrem ändern?

Gruß sven

 

Hallo,

ich habe die Sache mit dem Ladebalken mit dem einfügen einer Statusbar umgesetzt
zu dem lasse ich den Dienstplan im Hintergrund öffnen und wider schliessen, um die Ladezeit zu kürzen
klappt Prima.

ist es eigentlich möglich die Auswahl der KW in eine Userform einzuarbeiten?
und wie müsste es dann aussehen?
im Moment ist es ja so das die KW Automatisch ermittelt wird an Hand des Schaltflächen Name
also:

Code:

Dim strKW As String
    ' KW aus der Schalteraufschrift extrahieren
    'strKW = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Caption
    'strKW = Mid(strKW, InStr(strKW, " ") + 1)
    ' Bildschirmaktualisierung ausschalten
    Application.ScreenUpdating = False
    Range("E16").Formula = "='[Testplan.xls]" & strKW & ".KW'!B17"
    Range("B21:B23").Formula = "='[Testplan.xls]" & strKW & ".KW'!B18"
    Range("B23").Formula = "='[Testplan.xls]" & strKW & ".KW'!B20"

wie müsste ich es schreiben um es in einer Userform umzusetzen?
ist ja doch wesentlich kompakter als so viele Schaltflächen

ich denke daran die KW aus dem Namen des Optionsfeldes auszulesen
oder einer Befehlsschaltfläche wie im Beispielbild:


Gruß Sven

 

Hi Sven,

bei CommandButton müsstest du irgendwo (in Variable, in Tag-Eigenschaft oder im Tabellenblatt) zwischenspeichern, welcher Button gedrückt wurde und das würde für jeden Button einen Code bedeuten. Bei OptionButton ist das nicht notwendig, denn dann kannst du in einer Schleife darüberlaufen und prüfen, ob der OptionButton aktiv ist - falls Ja, dann kannst du mittels OptionButton.Caption die KW daraus ablesen.

Bis später,
Karin

 

Hallo Karin,
ich beneide dich echt.

das bekomme ich so nicht hin. mir fehlt hier echt noch die Erfahrung.

bei meinen Versuchen ist das herausgekommen:

Code:

Dim myControl As Control
    For Each myControl In Auswahl.Controls
    If OptionButton.Caption(myControl) = "OptionButton" Then
    Dim strKW As String
    strKW = Mid(strKW, InStr(strKW, " ") + 1)

klappt natürlich nicht :-(

ich brauch einen lehrgang

 

Hi Sven,

wenn du den Code innerhalb des UF ausführst, kannst du das UF einfach mit Me ansprechen und benötigst den Namen dabei nicht

Code:

    Dim ctrElement As Control
    Dim strKW As String
    For Each ctrElement In Me.Controls
        If TypeName(ctrElement) = "OptionButton" Then
            If ctrElement Then
                strKW = ctrElement.Caption
                Exit For
            End If
        End If
    Next ctrElement
    MsgBox strKW

Bis später,
Karin

 

Hi, und danke......
Innerhalb der UF.
Bedeutet ich kann nach dem Code
Auch einfach Unload Me
Statt den Formular Name schreiben
Und ganz am Ende eine MsgBox
Die auswirft das der Import erfolgreich
War..... vielen dank Karin

Der Beitrag ist somit erledigt