Für 100.- Inkl. wärst dus los
Beiträge von TiGGeR
-
-
Zitat
Original von TiGGeR
Hi TweakersIch 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
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 SelectIf PPDecide = "wahr" Then
PPOutput = " (CHF 6.- pro Nacht)"
Else
PPOutput = ""
End IfActiveDocument.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 = PPDayOnArrSelect 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 SelectIf 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€€: Ich habe mittlerweile herausgefunden, dass Bookmarks Textmarken sind auf deutsch, aber dennoch frisst er mir den CDate, der jetzt auf Fields (12) liegt nicht...
-
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
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 SelectIf PPDecide = "wahr" Then
PPOutput = " (CHF 6.- pro Nacht)"
Else
PPOutput = ""
End IfActiveDocument.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 = PPDayOnArrSelect 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 SelectIf 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 -
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! -
okay, sonst einfach kurz pm senden...
-
Zitat
Original von Blackmagic
Offtopic wär ja noch egal, nur der Marktplatz sollte irgendwie sicherer werden vor diesen "Anmelden & Abzocken" AffenDas 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? -
...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
-
Zitat
Original von dogimann
Jawoll.........
Danke Dir.......(DU musst mich ned Sietzen, trotz meines höheren Alters ).
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 -
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.
-
-
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...
-
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?!?
-
Zitat
Original von CruSher
das mitm remember remember the 5th of november?genau die hab ich gemeint ja!
-
hey jungs und mädels^^
ich sueche d red vom v usm film v für vendetta uf dütsch als film, uf youtube findi sie nur uf änglisch
cheers sascha
-
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...
-
Zitat
Original von Thurisaz
administrator der ganzen geschichte sein
aber eben, die zeit fehlt
@home den teamviewer installieren, vom büro aus nach hause zugreifen und so alles umgehen ^^
-
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.prfMit 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
-
*PUSH*
Bräuchte wirklich inputs
-
hmmm versuch mal sfc /scannow auszuführen, vllt. lässt sich die datei so reparieren...
btw. such mal bei google nach geyekrtnfcdvwb.dll - wir sind berüühmt xD
-
"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...