Office: (Office 2019) Fehler bei Zahl und addieren

Hallo Wilhelm,
Mitglied anlegen funktioniert, dann aber nichts mehr, ich vermute das kein Namensordner angelegt wird.
Mfg Andreas

 

Hallo Andreas,
Das kannst Du doch debuggen. Schau in
Private Sub btn_Mitglied_Anlegen_Click()
Kommt die Msgbox mit "Mitglied ... wurde angelegt"?
Direkt danach wird der Ordner angelegt:
MkDir ServerOrdner & strNachname & " " & strVorname
Wird der Ordner angelegt?
Gruss, Wihelm

 

Hallo Wilhelm,
Ich habe es jetzt probiert.
Mitglied wird angelegt also das Sheet aber kein Namens Ordner auf dem Server Verzeichnis.
Deshalb bekomme ich ein Fehler wenn ich irgendwas buchen möchte.

Mit den Bildern kann ich deshalb momentan nicht testen.
Kannst du nochmal danach schauen bitte.
Mfg Andreas

 

Ich nochmal,
Ich habe es jetzt Ordner werden angelegt,
.png .jpg geht anzuzeigen.
.pdf wäre echt klasse wenn das noch ginge.
Ich habe festgestellt das wenn das bild aufgerufen ist ich die Aktivität buche.
und das nächste bild anklicke bricht er ab.
geh ich wieder neu auf das Formular kann ich wieder eine Buchung machen.
dann wieder abbruch.
Ich danke dir sehr es wird so wie ich mir es vorstelle.
Ich hoffe du hilfst mir noch das Tool noch richtig stabil zu machen.
Bis jetzt bin ich begeistert.
Mfg Andreas

 

Hallo Andreas,
das Problem mit dem Abbruch beim Anklicken eines weiteren Bildes ist klar.
Wenn man auf den Button btn_Buchen klickt dann werden die aktuellen Daten für die Aktivität gespeichert. Anschliessend wird das Formular gelöscht. U.a. wird auch die Auswahl in der Combobox cbo_Mitglieder gelöscht. Wenn Du nun in der Listbox auf ein Bild klickst fehlt ein Teil des Pfades zu der anzuzeigenden Datei (der Text der Combobox ist leer).
Um das Problem korrekt zu beheben muß auch die Listbox gelöscht werden, sie wird dann nach Auswahl des Mitglieds wieder gefüllt. Dazu bitte im Modul "Aktivitaet_erfassen" in der "Function Aktivität_erfassen()" ganz unten die Anweisung
frm_Main.lb_Mitglied_Nachweise.Clear
einfügen.
PDF Dateien werden nicht in der ImageBox sondern mit dem Standard PDF Viewer angezeigt. Wenn also der ausgewählte Nachweis eine PDF Datei ist das wird diese mit der Anweisung
ActiveWorkbook.FollowHyperlink Dateiname.pdf
angezeigt.
Wie man heraus findet ob eine Datei vom Typ PDF ist lernst Du ja morgen auf der Schulung. Falls nicht mit:
Dim Pos as integer
Pos = VBA.Strings.InStrRev(Dateiname, ".")
If VBA.Strings.StrComp(VBA.Strings.Mid(Dateiname, Pos + 1), "PDF", vbTextCompare) = 0 Then
ActiveWorkbook.FollowHyperlink Dateiname
end if

Viel Spass bei der Schulung.
Gruss, Wilhelm

 

Hi Wilhelm,
Danke für deine Wünsche wegen dem Lehrgang.
Ich habe noch ein Problem.
Guck Dir das bitte nochmal an.
Im Word habe ich es Dokumentiert.
Danke
Mfg Andreas

 

Hallo Andreas,
bzgl. Problem mit den Aktivitäten, die Frage an den Experten: welchen Wert hat die Variable strNachweis in der markierten Zeile? Fehlt evtl. ein Teil des Pfades?
Das Problem bei Jahresabschluss schau ich morgen an.
Gruss, Wilhelm

 

Hallo Wilhelm,
Der Pfad stimmt,
siehe bild,
was ich mich wunder ist wenn ich mit dem Cursor

Image_Nachweis.Picture

Gehe kommt:

Image_Nachweis.Picture = Nothing

Und sorry ich bin kein Experte, der Kurs war nur für msgBox und Inputbox.
Muss wohl da noch mehr Geld und Zeit Investieren.*mad.gif*
Danke für Deine Hilfe
Mfg Andreas

 

Hallo Andreas,
der Jahresabschluss sollte jetzt funktionieren.
Zum anderen Problem: ok, die Variable hat einen Wert. Aber ist die Datei auch wirklich vorhanden?
Gruss, Wilhelm

 

Hallo Wilhelm,
Vielen Dank (Jahresabschluss funktioniert).
Wo war denn der Fehler?
Zum Thema Bild. Habe festgestellt das jpg geht.
png aber nicht, so wie pdf.
Ich habe den Button "Nachweis öffnen" da funktioniert alles wie es soll.
Ich habe aber echt keine Ahnung wie ich das in dein Formular reinbekomme.
Ich hoffe auf deine Unterstützung.
Mfg Andreas
Ach So noch was ist mir aufgefallen, wenn ich alle Mitglieder Sheets lösche ausser b b dann lädt die Load frm_Main noch
Wenn ich aber b b auch lösche dann öffnet sich das Formular nicht mehr?

 

Hallo Andreas,
das Problem mit dem Öffnen des Formualrs ist beboben.
Das Button "Nachweis öffnen" öffnet ein Formular mit einem Web Control. Diese kann wohl mehr Dateiformate verarbeiten wie das Image Control. Bitte versuch ein Web Control in das Fomular für die Erfassung der Aktivitäten einzubauen, kann ja erst Mal "quick and dirty" sein. Wenn es dann funktioniert kannst Du das Image COntrol löschen. Wegen der Pfanangabe kann ich z.Z. nicht testen.
Gruss, Wilhelm

 

Hallo Wilhelm,
Ich habe einschlagende Erfolge erzielt,*biggrin.gif* *biggrin.gif* *biggrin.gif*
Läuft alles Anzeige der Bilder, und Druck einer UserForm.
Was mir noch wichtig Wäre ist das beim Formular "Aktivität erfassen"das Letzte Datum des Mitgliedes steht (Sport Datum).Tabelle Mitglied Oben Spalte H.
Könntest du das mal versuchen?
Lieben Dank für deine Geduld.
Mfg Andreas

 

Hallo Andreas,
das maximale Datum in Spalte H wird jetzt mit einer Formel berechnet und in Zelle E2 (siehe Formel Datum letzter Nachweis.JPG) abgelegt. Nach der Auswahl eines Mitglieds werde der Wert von dort gelesen und in das Formular eingetragen (siehe Datum letzter Nachweis.JPG). Evtl. muß Du diese Formel noch bei anderen Mitgliedern eintragen. Bitte mit SHIFT + Strg + ENter abschjliessen.
Gruss, Wilhelm

 

Danke funktioniert.
Jetzt habe ich noch ein Fehler.
Brauch noch da Deine Hilfe dann müsste es passen.
Wenn ich eine Aktivität Buchung mache bekomme ich ein Fehler.
Ich denk das hängt mit dem Webbrowser und Image zusammen.
Versuche Bilder hochzuladen.
Danke Dir
Mfg Andreas

 

Danke funktioniert.
Jetzt habe ich noch ein Fehler.
Brauch noch da Deine Hilfe dann müsste es passen.
Wenn ich eine Aktivität Buchung mache bekomme ich ein Fehler.
Ich denk das hängt mit dem Webbrowser und Image zusammen.
Versuche Bilder hochzuladen.
Mfg Andreas