Beiträge von TiGGeR

  • ActiveDocument.Bookmarks ("PP").Select



    €€: Ich habe mittlerweile herausgefunden, dass Bookmarks Textmarken sind auf deutsch, aber dennoch frisst er mir den CDate, der jetzt auf Fields (12) liegt nicht... :(

  • ActiveDocument.Bookmarks ("PP").Select

    Hi Tweakers


    Ich blick bei Makros nicht mehr wirklich durch, aber sollte ein solches in ein neues Dokument migrieren. Kann mir jemand helfen bitte? :(
    Ich habe ein neues Dokument erstellt, basierend auf einer total neuen Normal.dotm und möchte nun dieses Makro einfügen, doch hängt er sich beim debuggen bereits bei der 3. Zeile auf

    Code
    1. ArrDate1 = ActiveDocument.Fields (10) .Result


    Kann mir wer sagen, was ich genau für die ActiveDocument.Fields resp für die ActiveDocument.Bookmarks im Dokument vorbereiten muss, damit das Makro wieder reibungslos abläuft?


    Danke und Gruss tiG


    €:das ganze Makro sieht folgendermassen aus:


    Sub Option_()
    '6 Franken für Parkplätze zwischen 1.12 und 22.4
    ArrDate1 = ActiveDocument.Fields(10).Result
    ArrDate1 = CDate(ArrDate1)
    PPMonthOnArr = DatePart("m", ArrDate1)
    PPDayOnArr = DatePart("d", ArrDate1)
    Select Case PPMonthOnArr
    Case Is = 12, Is < 4
    PPDecide = "wahr"
    Case Is = 4
    If PPDayOnArr <= 22 Then
    PPDecide = "wahr"
    Else: PPDecide = "falsch"
    End If
    Case Else
    PPDecide = "falsch"
    End Select


    If PPDecide = "wahr" Then
    PPOutput = " (CHF 6.- pro Nacht)"
    Else
    PPOutput = ""
    End If


    ActiveDocument.Bookmarks("PP").Select
    Selection.InsertAfter PPOutput





    'Preis für HP nach Datum: Sommersaison: 1.5 - 30.10
    priceSummer = "25"
    priceWinter = "38"
    ArrDate = ActiveDocument.Fields(10).Result
    ArrDate = CDate(ArrDate)
    HPMonthOnArr = DatePart("m", ArrDate)
    HPDayOnArr = DatePart("d", ArrDate)
    HPYearOnArr = DatePart("yyyy", ArrDate)
    Select Case HPMonthOnArr
    Case Is = 10
    If HPDayOnArr = 30 Then
    HPDecide = "wahr"
    Else
    HPDecide = "falsch"
    End If
    Case Is > 10, Is < 5
    HPDecide = "wahr"
    Case Else
    HPDecide = "falsch"
    End Select

    If HPYearOnArr > 2007 Then
    If HPMonthOnArr >= 5 Then
    priceSummer = "27"
    priceWinter = "38"
    End If
    End If

    If HPDecide = "falsch" Then
    HPOutput = priceSummer
    Else
    HPOutput = priceWinter
    End If

    ActiveDocument.Bookmarks("HPpricechange").Select
    Selection.InsertAfter HPOutput


    'Davos Inclusive nur im Sommer anzeigen
    textSummer = "Im Sommer fahren Sie tagsüber mit unseren Bergbahnen umsonst und so oft Sie wollen auf unsere atemberaubenden Berge. Beachten Sie dazu den Sommerfahrplan."
    GCMonthOnArr = PPMonthOnArr
    GCDayOnArr = PPDayOnArr


    Select Case GCMonthOnArr
    Case Is = 10
    If GCDayOnArr = 30 Then
    GCDecide = "wahr"
    Else
    GCDecide = "falsch"
    End If
    Case Is >= 10, Is < 5
    GCDecide = "wahr"
    Case Else
    GCDecide = "falsch"
    End Select


    If GCDecide = "falsch" Then
    ActiveDocument.Bookmarks("guestcard").Select
    Selection.InsertAfter textSummer
    End If




    'Antwort innerhalb von 7 Tagen nach Date
    ReplyDatum = DateAdd("d", 7, Date)
    InputRep = InputBox("Bitte geben Sie ein alternatives Datum für das gewünschte Antwortdatum an, oder übernehmen Sie das bereits eingetragene.", "Antwortdatum", ReplyDatum)
    ReplyDatum = CDate(InputRep)
    ReplyWochentagnummer = Weekday(ReplyDatum, vbMonday)
    ReplyWochentag = WeekdayName(ReplyWochentagnummer)


    ReplyOutput = ReplyWochentag & ", " & ReplyDatum & " "
    ActiveDocument.Bookmarks("replyondate").Select
    Selection.InsertAfter ReplyOutput


    'Saisonabhängiges Programm von In and Out
    textSummer = ", von Wandern über Klettern hin zu Schwimmen und Vollmond Nordic-Walking Tours"
    textWinter = ", von Freeridecamps und Lawinenkursen über geführte Touren bis hin zu Airboarding, Iglubau und Eskimo-Trips."
    If GCDecide = "falsch" Then
    ActiveDocument.Bookmarks("inout").Select
    Selection.InsertAfter textSummer
    Else
    ActiveDocument.Bookmarks("inout").Select
    Selection.InsertAfter textWinter
    End If
    End Sub

  • Cablecom

    seltsame vorstellungen von kundenfreundlichkeit haben die...
    ich habe auch bei shell mal ne rechnung über 3 monate nicht bezahlt, umzugsstress usw. irendwo im altpapier verlorengegangen xD
    jedenfalls schreiben die kleingedruckt unters aktuelle total, dass noch xxx sfr von der vorperiode ausstehend sind. solange die aktuellen rechnungen stetig beglichen werden scheint das denen egal zu sein. ich mach das jetzt schon seit nem halben jahr so, hab sie zwar letzen monat endlich eingezahlt (aktueller betrag und ausstehender betrag summiert auf einem EZ) diesen monat stand kein ausstehender betrag mehr - ergo hab ich mit einem EZ 2 rechnungen beglichen, shell hätte papier sparen können und ich aufwand, da ich die zahlungen nun in einem schritt abwickeln konnten...
    DAS NENN ICH KUNDENFREUNDLICHKEIT!

  • Fehler/Vorschläge im neuen Board

    Zitat

    Original von Blackmagic
    Offtopic wär ja noch egal, nur der Marktplatz sollte irgendwie sicherer werden vor diesen "Anmelden & Abzocken" Affen


    Das Problem ist dann bloss, dass die seriösen Angebote von wenigpostern nicht angezeigt werden können...
    Ich fänds aber grundsätzlich auch eine gute Idee! Das Minimum dürfte einfach nicht zu hoch aber nicht zu tief angesetzt sein, da es aktive Mitglieder gibt, die nur im OT posten - und OT wird ja soviel mir ist nicht gezählt oder?

  • HP Notebook Stromadapter - 19V

    ...falls das noch aktuell ist, werd ich zu hause mal in meiner kiste kramen, hab noch n hp netzteil rumliegen, weiss aber nicht, welche stärke...
    melde mich sonst wieder bei dir!
    was hast du denn fürne preisvorstellung?


    cheers tiG

  • Outlook Links gehn nimmer


    bitte gerne, freut mich, dir geholfen zu haben ;)
    war gerade was am lesen nebenbei, kurz 20 sek googeln copy/paste und weiterlesen, deshalb die höflichkeitsform ;-)

  • Outlook Links gehn nimmer

    Gehen Sie im InternetExplorer unter "Extras" in die "Internetoptionen...". Unter dem Reiter "Programme" finden Sie den Knopf "Zurücksetzen...". Haben Sie diesen Knopf betätigt, sollten Ihre Links wieder funktionieren.

  • Akku für Acer Aspire 5672WLMi (Notebook)

    als bezugsquelle kann ich dir accudoc empfehlen, habe vor nem jahr nen akku für ein ibm t20 da gekauft und es läuft heute noch knappe 2 stunden ohne strom ;)


    http://accudoc.ch/accuasp/groupid/11050/default.htm


    ich glaube das wäre der link, den du brauchst, aber ohne gewähr, es handelt sich beim angegebenen modell um einen akku für das aspire 5672 (was genau der unterschied zum wlmi ist weiss ich leider nicht)...



    €: musst selber unter laptop, acer, aspire, other dein modell wählen gehen, link geht nur auf homepage...

  • Video aus Videoportal

    du könntest das vid ja auch mit camtasia studio oder einem anderen screen recorder abfilmen und die tonspur aufnehmen? ;)


    ich bin mir nicht sicher, ob das bei dem vid auch funktioniert, aber werden die nicht vorübergehend im temp. internet files gespeichert?!?

  • HTTPS over RPC Logindaten entfernen

    Naja, es ist bloss das Zertifikat vom OWA, Outlook unterstützt ja die Funktion "HTTPS over RPC" somit musst du nicht im umständlichen OWA rumfuchteln, sondern kannst bequem die volle Funktionalität von Outlook nützen, es wird mit installiertem Zertifikat auf den Mailserver der Domäne verbunden und alle Mails übers www ins Outlook geladen...

  • HTTPS over RPC Logindaten entfernen

    Zitat

    Original von Sinclair
    Weiss ned genau WO die Verbindungen erscheinen? Screenshot?


    Ansonsten könnten die Stichworte für Google die folgenden sein:
    Outlook History oder outlook.prf


    Mit Screenshot kann ich leider nicht dienen, aber es handelt sich um die Anmeldemaske von Windows, wie wenn du eine TS Sitzung startest. Outlook ist für HTTPS over RPC eingerichtet (Direkter Zugriff via Outlook auf dein pers. Postfach von ausserhalb der Domäne).


    btw. durch neu erstellen des Mailprofils ist der Fehler nicht behoben leider :(

  • Hilfe: Komische Fehlermeldung

    "Installieren Sie das Programm mit dem Originalinstallationsmedium neu." Der erste Lösungsansatz steht schon erstaunlicherweise in der Meldung selber...
    So wie ich das beurteile, stammt die Meldung vom Firefox. Versuch mal den Firefox zu de- und reinstallieren, evtl. hilft das...