Excel Maske zum ändern und anzeigen von Daten

[Max]

Hallo Atilla,

ist das eventuell die gleiche Thematik wie hier?
http://www.clever-excel-forum.de/thread-1189.html

Gruß
Max

[Kuwer]

Hallo Mike,

das Entscheidende ist doch, was in den Zellen K8 und J3 steht. In der Datei aus dem Beitrag #55 von Ralf steht in K8 #NV, also in VBA der Fehler 2042, welcher eben dann moniert wird. ;)

Gruß Uwe

[Mike4711]

Hallo Kuwer,

ja....in der Zelle K8 steht #NV
aber nur, wenn du in Zelle "K6" eine Artikelnummer angibst, die es nicht gibt.

Wenn du in Zelle "K6" diese Artikelnummer eingibst: 209901
wird in Zelle "K8" der Name des Lieferanten angezeigt und das soll der Erste Teil des Dateinamens sein, der zweite Teil ist die Zelle "J3"

#NV ist eine Meldung, von der Formel, die in der Zelle "K8" wieder gegeben wird, wenn der Wert nicht gefunden wird.

Gruß Mike

[Mike4711]

Hi Kuwer,

hab noch vergessen zu sagen, das auch der Fehler angezeigt wird, wenn in der Zelle der Lieferant angezeigt wird. :)

Gruß Mike

[atilla]

Hallo Herbert,

es liegt nicht am Code.

Teste mal folgenden Code, dann wirst Du erkennen wo der Fehler liegt.

Code:

Sub SpeichernAlsPDF2()
   Dim mydocument As Worksheet
   Dim pdfName As String
   Dim pdfPath As String
   Dim Name1 As String
   Dim Name2 As String
  
  
   Set mydocument = Worksheets("Einkauf") 'Mappe anpassen
  
   With mydocument
      If .Range("J3") <> "" Then
         If Not IsError(.Range("K8")) Then
            pdfName = .Range("K8") & " order " & .Range("J3") & ".pdf"
            pdfPath = "I:\" & pdfName
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
         Else
            MsgBox "Liferant ist nicht bekannt oder Fehler im Formelwert der Zelle K8"
         End If
      Else
         MsgBox "Keine Bestell-Nummer eingetragen"
      End If
   End With

End Sub

Ich habe auch eine Rechtschreibschwäche, deshalb ist es um so wichtiger mit zwingender Variablendeklaration (Option Explicit) zu arbeiten, denn dann wirst Du schnell auf unterschiedliche Schreibweisen im Code aufmerksam gemacht. Ich habe im Code den Variablen andere Typen zugewiesen, schau es Dir genauer an.

[Mike4711]

Hallo Atilla,

hab da gerad so nen Gedanken.

Hier zu Hause benutze ich Excel 2013

Arbeitet der Code vielleicht nicht mit jeder Version zusammen?

In der Kompakten Codeversion von Rabe?
Denn als alleinstehendes Modul mit meinem Aufruf

Call SpeichernAlsPDF

Geht es ja wieder?

Gruß Mike

[Kuwer]

Hallo Kuwer,

ja....in der Zelle K8 steht #NV
aber nur, wenn du in Zelle "K6" eine Artikelnummer angibst, die es nicht gibt.

Wenn du in Zelle "K6" diese Artikelnummer eingibst: 209901
wird in Zelle "K8" der Name des Lieferanten angezeigt und das soll der Erste Teil des Dateinamens sein, der zweite Teil ist die Zelle "J3"

#NV ist eine Meldung, von der Formel, die in der Zelle "K8" wieder gegeben wird, wenn der Wert nicht gefunden wird.

Gruß Mike

Alles klaro, dann noch viel Spaß beim Basteln und Aneinandervorbeireden. :21:

Gruß Uwe

[atilla]

Hallo Mike,

nein, das hat damit nichts zu tun. Lies Dir die Beiträge genauer durch.
Uwe hat es Dir beschrieben, und ich habe Dir dazu eine passende Lösung angeboten.

Schreib nicht immer geht nicht, sondern beschreib genau, was Du gemacht hast, und ob und welche Fehlermeldungen wann auftauchen.

[atilla]

Hallo Uwe,

die Brille muss ich auch unbedingt haben :19:

[Mike4711]

Hallo Uwe,
Hallo Atilla,

Beitrag 65 sah für mich so aus, das nicht ich damit angesprochen wurde sondern Herbert.

Ich war der Meinung, das Herbert und Atilla sich mit sich mit dem Code beschäftigen, da dieser Code nicht mein Ursprünglicher Code ist und Atilla Herbert anschreibt, fühle ich mich nicht angesprochen.

Mein eigener Code, den ich zu Anfang hatte, funktionierte prima.
Ich wiederhole mich jetzt......nach der kompakten Zusammenstellung von Rabe, geht er nicht mehr.

Ich finde es gut, das sich mehrere Profis hier mit einbinden, doch ich kann euch nicht dabei helfen.
Da verliere ich den Überblick, wer denn jetzt wen meint.

Ich suche einen Code im Netz, der das machen soll, was ich gern hätte und passe höchstens Zellen und Pfade an.

Hat denn noch niemand mit bekommen, das ich nicht VBA programmieren kann? :)

Ich bin VBA Nichtskönner.:27: :19:

Grüße an euch alle, die hier wegen mi, dauernd mit dem Kopf schütteln.