---

was mach ich falsch?? bin in VBA ein anfänger..  was stimmt mit dieser if anweisung nicht? anfangs hats funktioniert!!

' Get the active document.
Set oDoc = ThisApplication.ActiveDocument

Dim iRev As String
iRev = "-"

' Get the user defined (custom) property set.
Dim oDocCustomPropertySet As PropertySet
Set oDocCustomPropertySet = oDoc.PropertySets.Item("Inventor User Defined Properties")

If oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 1").Value = "" Then
iRev = "-"

    ElseIf oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 1").Value <> "" And oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 2").Value = Null Then
    iRev = oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Zust.1").Value

        ElseIf oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 2").Value <> " " And oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 3").Value = " " Then
        iRev = oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Zust.2").Value
   
            ElseIf oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 3").Value <> " " And oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 4").Value = " " Then
            iRev = oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Zust.3").Value
                   
                ElseIf oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 4").Value <> " " And oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 5").Value = " " Then
                iRev = oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Zust.4").Value
           
                    ElseIf oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 5").Value <> " " And oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 6").Value = " " Then
                    iRev = oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Zust.5").Value
           
                        ElseIf oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 6").Value <> " " And oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 7").Value = " " Then
                        iRev = oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Zust.6").Value
           
                            ElseIf oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 7").Value <> " " And oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 8").Value = " " Then
                            iRev = oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Zust.7").Value
           
                                ElseIf oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Datum 8").Value <> " " Then
                                iRev = oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Zust.8").Value
   

   
End If

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

oops.. ich hab gemerkt bin falsch hier in Anwendungen, wie soll ich einen Beitrag löschen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Willkommen bei CAD.de

Wichtige Links für den problemlosen Einstieg:
System-Info | sinnvoll fragen | CAD.de-Hilfe | Nettiquette | Forensuche 

Du bist im falschen Brett, ich lese Inventor >> hier << wäre imho besser.
Wenn Du dort Deinen Beitrag neu erstellst, vergiß bitte nicht, vorher Deine Systeminfo auszufüllen.

Hinweise zur 'besseren' Fragestellung:
WAS genau funktioniert nicht?
Welche Fehlermeldung kommt?
Welche Zeile wird angemeckert?

Schuß ins Blaue, ohne jemals einen Inventor in der Hand gehabt zu haben: es hängt an den harten Zuweisungen {D5CDD505-2E9C-101B-9397-08002B2CF9AE}, die es in (einer an)der(en) Datei so nicht (mehr) gibt.

[rredit] OK, er hat's gefunden. >> hier << geht's weiter, dieser thread kann zu.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

[Diese Nachricht wurde von runkelruebe am 31. Jul. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Alles klar Danke !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Enduro,

Zitat:

---

Original erstellt von Enduro:
was mach ich falsch?? bin in VBA ein anfänger..  was stimmt mit dieser if anweisung nicht? anfangs hats funktioniert!!
[snip]

---

Was bekommst du denn für eine Fehlermeldung? Was erwartest du für ein Ergebnis? Wie stellt sich das Ergebnis dar? Welche Software benutzt du überhaupt (VBA kommt in vielen Applikationen vor)? Warum funktionieren deine Großbuchstaben nur bei dem VBA Kürzel? Warum prellt dein Ausrufezeichen?

Alles Fragen, die uns helfen, dir zu helfen und die potentielle Tippgeber ggf. ermutigen sich tatsächlich mit deinem Problem zu beschäftigen, da musst du schon einen Anreiz zumindest in der Form geben, dass du deinen Teil eine vernünftigen Fehlerbschreibung erledigst.

Wenn du etwas Muße hast wäre es schön, wenn du mal die Hilfe auf CAD.de überfliegst (zu Systeminfo und Profil), nicht dass dich irgendjemand wegen solcher einfachen, technischen Dinge ignoriert, der dir helfen könnte 

Vielleicht kannst du auch über die Newsletterartikel drüberschauen, wo ein paar Gedanken zusammengefasst sind, wie du Richtig Hilfe anfordern kannst - Teil 1, Teil 2 und als Highlight Teil 3

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP