Bestehendes Makro Teil II

[d'r Bastler]

Moin Nanu,

in der Annahme, dass du Dich im Moment noch genüsslich in den Kissen rekelst, schon mal eine Wasserstandsmeldung: Die Übernahme der Daten aus der geschlossenen Datei eines Unterverzeichnisses funktioniert schon mal. Musste dazu allerdings tief in die Trickkiste der Vergangenheit greifen.

Wenn dann bei Dir mal Arbeitszeit ist, habe ich hoffentlich auch noch den Referenz bearbeiten und die Übersetzungen fertig. Zur Implementierung in Deine Mappen bekommst eine kleine Anleitung extra.

Genieß Dein Frühstück,
vg

[d'r Bastler]

Jou saah'na Nanu,

gau dim!! ok, das war jetzt nicht fair, du kannst ja kein chinesisch... also übersetzt:

Guten Morgen Nanu,

es ist erledigt! Es sind leider wieder Änderungen in mehreren Modulen, so daß Du Deine Formatierungen hier nicht wieder findest. Du kannst sie aber step-by-step in Deine Mappen integrieren:

1.) überschreibe Dein Blatt System mit meinem neuen
2.) ersetzte bzw. füge diese drei Module in Deine Mappe ein: mdlLanguage, mdlReferenzen und mdlSystem
3.) ersetze die bisherige usfAdmin durch meine neue

Die Technik VBA zu importieren ist Dir ja bekannt. Damit müssten -sollte ich nichts übersehen haben- eigentlich alle Ergänzungen bei Dir angekommen sein.

Falls nicht, musst eben doch meine neue Version noch einmal formatieren, sorry!

El Gestor Di Cualidad.xlsb

(221.25 KiB) Noch nie heruntergeladen

Deine Filial-Tabellen kannst Du beliebig in Unterverzeichnissen des Gestors ablegen, sonst werden sie nicht gefunden. Falls die jetzt allerdings auf einem Netzlaufwerk liegen, müssten wir den Pfad dahin noch anpassen.

Freue mich auf Deine Rückmeldung: nach ausführlichem Testen, versteht sich

Yoi gin ! = Cu soon!
lg

[Nanu]

Ok muchas gracias Bastler,
Freitag haben wir Feiertag da werde ich mir das mal in Ruhe ansehen und in mein Programm integrieren.
Dann gebe ich dir eine Rückmeldung. Wobei ich dir die theoretisch auch jetzt schon geben kann
Wie immer alles Super!!
Saludos Nanu

[Nanu]

Hola Bastler,
wollte ja wenigstens mal schauen was so alles neu ist aber nach der Anmeldung kommt direkt der Debugger. Mache ich etwas falsch?

4.jpg (46.42 KiB) 3963 mal betrachtet

5.jpg (11.08 KiB) 3963 mal betrachtet

Saludos Nanu

[thowe]

Hallo Nanu

In diesem phantastischen Werk von heb wird irgendwo, ich nehme an, im Modul mdlSystem (oder so ähnlich) - ichhabe die Datei nicht heruntergeladen
die Variable/Enum(?) wb.path deklariert sein.

Guck mal nach und passe den Pfad ZU DEINER DATEI/FODLER bei wb. path an

lg thowe

[d'r Bastler]

Moin allerseits,
die Fehlermeldung "Pfad" irritiert mich sehr, denn es wurde vorher die System aufgerufen, die wb als ThisWorkbook definiert, path ist eine defnierte Eigenschaft davon.
Einzige Idee: Du hast unterhalb von Gestor kein Unterverzeichnis. Falls es das ist, Asche auf mein Haupt , das hätte ich abfangen müssen ... Sorry! Ich schau mir das später noch mal an.

Als Schnellschuss: für vor der Zeile mal on error resume next ein, dann sollte es erst einmal laufen.
vg

[d'r Bastler]

ok, zweiter Versuch ...
ich laufe nur dann in eine Fehlermeldung, wenn es unter El Gestor kein Unterverzeichnis gibt, das .xlsm-Dateien enthält. Um dem aus dem Weg zugehen, erlaube ich die Nutzung der letzten beiden Buttons im usfAdmin jetzt nur, wenn in der ComboBox etwas verfügbar ist. Dazu der Code für die usfAdmin neu:

Code: Alles auswählen

Option Explicit

Sub UserForm_Activate()
Dim i As Integer, c As Integer
Unload usfPW
With x_tab_0
    c = .Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 2 To c
    ComboBox1.AddItem .Cells(1, i)
    Next i
End With

CommandButton9.Enabled = False
CommandButton10.Enabled = False

ListRefs
SetLanguage
ComboBox2.SetFocus
lblLang.Caption = cbx
End Sub

Private Sub CommandButton1_Click()
    ActiveSheetDelete
End Sub

Private Sub CommandButton2_Click()
    Vision "all"
End Sub

Private Sub CommandButton3_Click()
    Vision "home"
End Sub

Private Sub CommandButton4_Click()
    AllSheetsReset
End Sub

Private Sub CommandButton5_Click()
    AdminSheetsShow
End Sub

Private Sub CommandButton6_Click()
    AdminSheetsHide
End Sub

Private Sub CommandButton7_Click()
    ReferenceDelete
End Sub

Private Sub CommandButton8_Click()
    Unload Me
End Sub

Private Sub CommandButton9_Click()
    OpenReference
End Sub

Private Sub CommandButton10_Click()
    GetReferenceValues
End Sub

Private Sub ComboBox1_Change()
iCol = ComboBox1.ListIndex + 2
    SetLanguage
End Sub

Private Sub ComboBox2_Change()
If ComboBox2.ListIndex <> -1 Then
    CommandButton9.Enabled = True
    CommandButton10.Enabled = True
Else
    CommandButton9.Enabled = False
    CommandButton10.Enabled = False
End If
End Sub

Wichtig sind dabei nur die Änderungen in den ersten 20 und letzten zwölf Zeilen.

Hoffe ich konnte helfe ...
vg

[d'r Bastler]

Moin thowe,

inzwischen kennst Du die Struktur meiner VBAsteleien (ICH BAUE KEINE PHANTSATISCHEN WERKE, ich VBAstle !) so gut, dass Du mit Deiner Vermutung mdlSystem oder so schon ziemlich dicht dran bist. Tatsächlich ist wb dort Public As WorkBook definiert und wird in der Sub System mit = ThisWorkBook gefüllt. Der Aufruf dieser Sub ist in der zweiten Zeile der Fehler-meldenden Sub ListRefs schon erfolgt, weswegen mich die Fehlermeldung ja auch so irritiert.

@Nanu Bin gespannt, was du noch zu berichten hast...

vg

[Nanu]

Muchas gracias. Wie gesagt Freitag ist Feiertag und da werde ich mich mit deinem Programm ausführlich beschäftigen.
Saludos Nanu

[Nanu]

Hola Bastler,
habe immer noch den selben Fehler. Bestimmt mache ich etwas falsch. Habe aber noch nicht herausgefunden was.
Ich bleibe dran
Saludos Nanu