Office: (Office 2019) Fehler bei Zahl und addieren

Hallo Andreas,
ich habe die Formel in Zelle I1 verschoben, das sollte keine Kollision mit dem Druckbereich geben. Dein Problem wahr wohl nicht der Kode sondern die Formatierung der Zelle, sie muß als Datum formatiert sein.
Bei dem anderen Problem haben wir eine klare Fehlermeldung. Als im Kode von frm_Main in Zeile 222 einen Breakpoint setzen und dann schreittweise ausführen. Nach jedem Schritt die Variablen prüfen. Ist der Pfad korrekt? Gibt es die Datei?
Gruss, Wilhelm

 

Hallo Wilhelm,
Mach ich aber hab keine Ahnung was du damit meinst,
Ich versuche es mal.
Mfg Andreas

 

Hallo Andreas,
Du öffnest das Modul in VBA Editor und scrollst zur Zeile 220, dort ist die
Private Sub lb_Mitglied_Nachweise_Change().
Dann in Zeile 225 links in den Rahmen klicken, siehe Breakpoint 1.
Dadurch wird ein Breakpoint gesetzt, siehe Breakpoint 2.
Erneutes klicken entfernt ihn wieder, alternativ mit F9.
Jetzt das Formular öffnen und die Aktion ausführen. Der Kode wird beim Breakpoint unterbrochen und kann mit F8 schrittweise ausgeführt werden.
Gruus, Wilhelm

 

Guten Morgen Wilhelm,
Wieder eine Schlaflose Nacht*entsetzt *entsetzt *entsetzt
Ich finde den Fehler einfach nicht. Sorry
mehr wie das Bild bekomme ich nicht raus. auch die 2.")" nach der 4 nimmt er bei mir nicht an.
Mfg Andreas

 

Hallo Andreas,
das finden wir schon!
Wir zerlegen zunächst die Zeile in einfachere Anweisungen:
Dim strAusgewaehlt As String, strDateityp As String

strAusgewaehlt = lb_Mitglied_Nachweise.Text
strDateityp = VBA.Strings.Right(strAusgewaehlt, 4)
'If Right$(LCase$(lb_Mitglied_Nachweise.Text), 4) = ".pdf" Then
'If LCase$(Right$(lb_Mitglied_Nachweise.Text, 4)) = ".pdf" Then
If VBA.Strings.StrComp(strDateityp, ".pdf", vbTextCompare) = 0 Then
Haben die beiden Variablen strAusgewaehlt und strDateityp den richtigen Wert?
Gruss, Wilhelm

 

Hallo Andreas,
ich habe zum testen den Pfad geändert. Bei mir funktioniert die Anzeige von pdf und jpg.
Gruss, Wilhelm

 

Hi Wilhelm,
Bin kurz vor dem Durchdrehen*mad.gif* *mad.gif* *mad.gif*
Was meinst du mit Pfad?
Ich bekomme immer das selbe angezeigt.
siehe Bild.
Angezeigt habe ich Sie auch vorher bekommen, aber wenn ich dann Das Mitglied Buche war der Fehler.
Nicht beim aufrufen der Bilder oder pdf.

 

Ich möchte es gern nochmal erklären,
Ich nutze den Nachweis des Mitgliedes nur zum Ansehen im Frame.
Um die Buchung Des Mitgliedes Vorzunehmen.
Wenn ich die Daten eingeben habe, und das mit dem Button "Buchen" will gibt's den Fehler,
Er soll eigentlich nichts weiter tun wie das Die Page "Aktivität erfassen" wieder zurück geht das ich wieder Neue Mitglieder aufrufen kann.
Und von neuem Anfangen kann zu Buchen.
Ich hoffe du verstehst was ich meine.
Mfg Andreas

 

Hallo Andreas,
ich habe den Pfad zum Server geändert damit ich lokal arbeiten kann, im Modul Mitgliederverwaltung:
'Public Const ServerOrdner As String = "O*biggrin.gif*A - DarmstadtAustauschverzeichnisBeckerBGM"
Public Const ServerOrdner As String = "D:TempBGM"

Dein Bild zeigt das Problem genau, jetzt beheben wir es.
Du versucht mit der Anweisung
Set strDateityp =
einer Variable einen Wert zuzuweisen, was nicht funktioniert.
Allerdings ist schon der Name der Variablen strDateityp ein Hinweis auf den Fehler.
strDateityp ist von Type String, also kein Object, siehe Dim Anweisung.
Set erwartet aber ein Object, daher der Fehler.
Soweit zur Erklärung.

Was mit aber auffällt ist das in meinem Kode die Zeile
Set objImageFile = CreateObject(Class:="WIA.ImageFile")
steht. D.H. es wird einer Variablen vom Type Object ein Object zugewiesen.
Ich schicke Dir meine Version.
Bitte zuerst den Server Pfad wieder ändern, siehen oben.
Gruss, Wilhelm

 

hmm, *redface.gif*
Sorry ich verstehe es nicht.
Ich verzweifele gerade an mir selber.
Dankeschön für Deine Geduld.
Ich muss erst mal Pausieren,
Mfg Andreas