Hallo Experten,
ich will nicht immer, wenn ich meine Arbietsmappen öffne auf den Button klicken müssen:
„makros aktivieren“
Gut, es gibt die Möglichkeit alle makros zulassen. Aber da ich ab und zu excel sheets erhalte, will ich eigentlich nur meine zulassen.
Ist das machtbar, sich selbst zu authorizieren?
Bei dieser Datei werden Makros immer zugelassen, bei allen anderen Dateien , die nciht von mir wird dann gefragt.
Grüße
Winter
(der keiner ist bei 15°C)
Hallo, Winter!
ich will nicht immer, wenn ich meine Arbietsmappen öffne auf
den Button klicken müssen:
„makros aktivieren“
Gut, es gibt die Möglichkeit alle makros zulassen. Aber da ich
ab und zu excel sheets erhalte, will ich eigentlich nur meine
zulassen.
Ist das machtbar, sich selbst zu authorizieren?
Bei dieser Datei werden Makros immer zugelassen, bei allen
anderen Dateien , die nciht von mir wird dann gefragt.
Dazu gibt’s die Sicherheitsstufen „Hoch“ und „Sehr hoch“. Dazu musst Du Dein Makro entsprechend signieren und ablegen.
Gruß, Manfred
Hallo Manfred
Dazu gibt’s die Sicherheitsstufen „Hoch“ und „Sehr hoch“. Dazu
musst Du Dein Makro entsprechend signieren und ablegen.Gruß, Manfred
Danke
und wie SIGNIERE ich mein Makro ?
mfg
Winter
Selfcert.exe
und wie SIGNIERE ich mein Makro ?
Hallo Winter,
ich habe das noch nie gemacht, also keine Ahnung ob selfcert.exe schon im Office dabei ist oder man es sich bei MS holen kann.
Wie man es benutzt weiß ich leider auch nicht, vielleicht steht das ja in der Office-Hilfe wie gesagt wurde im Link.
Wie auch immer, soweit ich weiß ist es kostenlos.
Lese dazu auch mal das:
/t/makro-digital-signieren/2499364
Gruß
Reinhard
Danke (RTFM)
Danke Reinhard
für dein höflich formuliertes RTFM 
Grüße (Schönes Wochenende)
Winter
für dein höflich formuliertes RTFM
Hallo Winter,
*jammer* diesmal bin ich aber echt unschuldig.
Natürlich flutscht mir manchmal rtfm raus, aber diesmal hatte ich keinerlei Gedanken daran, denn hier ist leider keine Vba-Hilfe installiert (Ist leider Standardeinstellung bei Office-Setup)
Ich hatte also keine Chance schuldig zu werden und natürlich wenn in der Hilfe dick und breit und leicht zu finden die Zertifizierung mit selfcert erklärt wird hätte ich schon mal flüchtig rtfm erwähnt, eventuell *grien*
Grüße (Schönes Wochenende)
dito
Gruß
Reinhard
Grüezi zusammen
und wie SIGNIERE ich mein Makro ?
ich habe das noch nie gemacht, also keine Ahnung ob
selfcert.exe schon im Office dabei ist oder man es sich bei
MS holen kann.
Wie man es benutzt weiß ich leider auch nicht, vielleicht
steht das ja in der Office-Hilfe wie gesagt wurde im Link.
Wie auch immer, soweit ich weiß ist es kostenlos.
SelfCert ist in Office mit dabei, muss aber gegebenenfalls von der Installations-CD noch nachinstalliert werden.
Eine schöne Anleitung zur Verwendung findet sich hier:
http://excelabc.de/excel/et/excel.php?Seite=et00006
Selfcert hat aber den Nachteil, dass es nicht exportiert werden kann und bei einem Verlust des Userprofils ein neues Zertifikat erstellt werden muss.
Ich verwende daher seit längerem erfolgreich die folgende kleine Software zum erstellen des Zertifikates - die anschliessende Verwendung ist dann genau gleich wie bei SelfCert:
http://www.abylonsoft.de/selfcert/index.htm
–
Mit freundlichen Grüssen
Thomas Ramel
In Deckung gehen!
Ist alles prima, habe das heruntergeladen, danke.
Aber der Autor macht darauf aufmerksam, dass er für diese Freeeware kein „GEWEHRLEISTUNG“ geben kann!!!
Erich
OT: Peng Peng
Aber der Autor macht darauf aufmerksam, dass er für diese
Freeeware kein „GEWEHRLEISTUNG“ geben kann!!!
Hallo Erich,
wie mal im Hohlspiegel vom Spiegel, Überschrift einer Werbungsanzeige eines Schützenvereins:
Schießen lernen, Freunde treffen, Spaß haben 
)
Gruß
Reinhard
Grüezi Erich
Ist alles prima, habe das heruntergeladen, danke.
Aber der Autor macht darauf aufmerksam, dass er für diese
Freeeware kein „GEWÄHRLEISTUNG“ geben kann!!!
Hmmm, und welche Gewähr soll er deiner Ansicht nach leisten?
Besser als SelfCert ist es allemal und mehr gewähren tut MS auf SelfCert auch nicht - wo also liegen deine Bedenken?
Es geht hier nicht um einen kommerziellen und professionellen Einsatz (dann müsste man sich an Verisign und andere Zertifikats-Ersteller wenden und dementsprechend auch löhnen und die begrenzete Laufzeit in Kauf nehmen), sondern nur darum, für die eigenen Makro-haltigen Dateien die Abfrage beim öffnen weg zu bekommen.
Ich kann deine Aufregung also nicht ganz nachvollziehen - zumal Du es nach eigenen Angaben ja selbst auch heruntergeladen hast
–
Mit freundlichen Grüssen
Thomas Ramel
Ist alles prima, habe das heruntergeladen, danke.
Aber der Autor macht darauf aufmerksam, dass er für diese
Freeeware kein „GEWÄHRLEISTUNG“ geben kann!!!Hmmm, und welche Gewähr soll er deiner Ansicht nach leisten?
Hallo Thomas,
sachlich hast du mit allem Recht, aber es ging m.E. um GEW E HRLEISTUNG, so habe ich Erich verstanden und entsprechend geantwortet )
Mal was Andreas, ich tue mich schwer mit Diagrammen, die muß man immer selectieren, das Ergebnis von =PlotArea.Left eines Diagrammes ist ein seltsamer Wert der nicht addierbar ist zu Achtivechart.left.
Sicher geht es da wieder um Pixel, Points, Inches usw. 
Konkretes Beispiel, Hilfslinie in einem Diagramm farbig, siehe dazu:
http://www.hostarea.de/server-01/Januar-9024f659e3.xls
Da ist ein Punkt(xy) Diagramm aus den Daten in A1:B10.
In C1 steht der Y-Wert wo die farbige Hilfslinie als Linie gezeichnet werden soll, in C2 die Farbe.
Ausgewertet werden C1 und C2 durch das Worksheet_Change-Ereignis.
Nachstehend ist der Code der bei Worksheet_Change aufgerufen wird.
Erstelle ich einfach durch Markierung von A1:B10 ein Diagramm, so wie in Blatt 3, so funktioniert der Code.
Füge ich nun in das Diagramm Titel und Achsenbeschriftungen ein, so wird die Linie an falscher Stelle gezeichnet.
Wenn ich nun im Code
dy= …
einen Faktor einbaue, z.B. 1,55, also so
dy= 1.55 * …
so wird die Linie wieder richtig gezeichnet.
Woher kommt dieser Faktor, warum wieso usw
Es wäre nett wenn du oder jmd. anders hiermal darüber schauen könntest.
Danke ^ Gruß
Reinhard
Sub LinieZiehen2()
Dim N, x1, x2, y, dy
For Each N In ActiveSheet.Shapes
If N.Name Like "Lin\*" Then N.Delete
Next N
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlCategory).Select
x1 = Selection.Left + ActiveSheet.ChartObjects("Chart 1").Left + 3.25
x2 = x1 + Selection.Width
y = ActiveSheet.ChartObjects("Chart 1").Top + Selection.Top
ActiveChart.Axes(xlValue).Select
dy = 1.55 \* Range("C1") \* (Selection.Top - Selection.Height) / (-1 + Selection.MaximumScale - Selection.MinimumScale)
y = y + dy + 5
Range("A1").Select
ActiveSheet.Shapes.AddLine(x1, y, x2, y).Select
Selection.ShapeRange.Line.Weight = 3.25
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = Range("C2")
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Range("A1").Select
End Sub
Grüezi Reinhard
Ist alles prima, habe das heruntergeladen, danke.
Aber der Autor macht darauf aufmerksam, dass er für diese
Freeeware kein „GEWÄHRLEISTUNG“ geben kann!!!Hmmm, und welche Gewähr soll er deiner Ansicht nach leisten?
Hallo Thomas,
sachlich hast du mit allem Recht, aber es ging m.E. um
GEW E HRLEISTUNG, so habe ich Erich verstanden und
entsprechend geantwortet
OK, das mag gerne so sein, der Fipptehler ist ja tatsächlich auf der Download-Seite vorhanden.
Wenn dem so ist, dann vermisse ich den Zwinker-Smiley in Erichs Antwort, der dazu führen kann, dass auch andere den Sarkasmus überlesen.
Mal was Andreas, ich tue mich schwer mit Diagrammen, die muß
man immer selectieren,
Wenn Du sie über das Chart-Objekt ansprichst ist dies nicht notwendig; das ist nur ein objekt-Angabe mehr:
With ActiveSheet.ChartObjects(„Chart 1“).Chart
End With
das Ergebnis von =PlotArea.Left eines
Diagrammes ist ein seltsamer Wert der nicht addierbar ist zu
Achtivechart.left.
Sicher geht es da wieder um Pixel, Points, Inches usw.
Ja, das ist korrekt - die Platzierung der PlotArea des Charts ist nicht ganz einfach - neben der einen Richtung verschiebt sich da IMO auch die andere immer geringfügig. Das Ganze ist nicht sehr einfach in den Griff zu kriegen, daher habe ich es, nachdem ich mich mal damit befasst hatte, auch schnell wieder zur Seite gelegt (ich bin von Natur aus eher faul was solche Dinge betrifft )
…ich muss mal graben was ich dazu finden kann, wenns von Nöten ist.
Konkretes Beispiel, Hilfslinie in einem Diagramm farbig, siehe dazu:
http://www.hostarea.de/server-01/Januar-9024f659e3.xls
Da ist ein Punkt(xy) Diagramm aus den Daten in A1:B10.
In C1 steht der Y-Wert wo die farbige Hilfslinie als Linie
gezeichnet werden soll, in C2 die Farbe.
Ausgewertet werden C1 und C2 durch das
Worksheet_Change-Ereignis.
[Code gesnippt]
Ja, das ist eine Variante um horizontale Linien ins Diagramm zu bringen.
Geht es darum Alternativen zur Technik mit einer eigenen Datenreihe oder den Error-Bars zu finden?
Ich persönlich mag die Technik mit zusätzlichen Datenreihen viel lieber - ist nicht so ein Gefummel mit Pixel und Points
Hallo Reinhard,
Schießen lernen, Freunde treffen, Spaß haben
Ja, dafür kann ich Gewehr leisten
Gruss
Erich
Hallo Thomas;
Mein kleines Scherzlein wurde ja inzwischen erkannt, auch ohne Smiley!
Gruss
Erich
Grüezi Erich
Mein kleines Scherzlein wurde ja inzwischen erkannt, auch ohne
Smiley!
OK, ich habs dann auch begriffen
Schiebs auf den Schweizerischen Kleingeist und mein Bestreben die Anliegen der User in NewsGroups und Foren ernst zu nehmen,
wenn keine Andeutung in anderer Richtung auszumachen ist.
–
Mit freundlichen Grüssen
Thomas Ramel
Mal was Andreas, ich tue mich schwer mit Diagrammen, die muß
man immer selectieren,Wenn Du sie über das Chart-Objekt ansprichst ist dies nicht
notwendig; das ist nur ein objekt-Angabe mehr:With ActiveSheet.ChartObjects(„Chart 1“).Chart
End With
aha, danke, ja, jetzt geht es ohne Select.
Ja, ich müßte mir mal die Muße nehmen mir die Grundlagen richtig einzubläuen, was ist ein Objekt, was ein OleObjekt, was ein Shape, was ein Chart, was ein Chartobjekt, u.s.v.m. *seufz*
das Ergebnis von =PlotArea.Left eines
Diagrammes ist ein seltsamer Wert der nicht addierbar ist zu
Achtivechart.left.
Sicher geht es da wieder um Pixel, Points, Inches usw.Ja, das ist korrekt - die Platzierung der PlotArea des Charts
ist nicht ganz einfach - neben der einen Richtung verschiebt
sich da IMO auch die andere immer geringfügig. Das Ganze ist
nicht sehr einfach in den Griff zu kriegen, daher habe ich es,
nachdem ich mich mal damit befasst hatte, auch schnell wieder
zur Seite gelegt (ich bin von Natur aus eher faul was solche
Dinge betrifft
Aha, ich wurde ja schon irre, das Mistding (also die neue Linie) war immer ein Stück zu weit links und zu weit oben.
Plotarea oder Chartarea war egal.
Die Lagebestimmung von ChartObjects(„Chart 1“) lief problemlos mit Top,left usw., da gab es keine Verschiebung.
…ich muss mal graben was ich dazu finden kann, wenns von
Nöten ist.
Ja, ich sammele sowas gerne,
nein, habe mich jetzt daran ausgetobt
Ja, das ist eine Variante um horizontale Linien ins Diagramm
zu bringen.
Geht es darum Alternativen zur Technik mit einer eigenen
Datenreihe oder den Error-Bars zu finden?
Nein, eine neue Datenreihe per Vba einzufügen die dann die neue farbige Hilslinie darstellen soll bekomme ich hin.
Mich störte nur daß bei einer eigenen Datenreihe für die farbige Hilfslinie, diese auch in der legende angezeigt wurde.
Mit 35 Promille nochmal im Rotlichtmilieu in eine Bar zu gehen kann tendenziell ein Fehler für die Brieftasche sein, aber was sind denn nu „Error-Bars“ ?
Ich persönlich mag die Technik mit zusätzlichen Datenreihen
viel lieber - ist nicht so ein Gefummel mit Pixel und Points
Ich glaube auch die von MS wollten das Gefummel nicht, schauen wie breit das Fenster ist, welche Bildschirmauflösung der PC hat, usw. sonst gäbe es analog zu InchesToPoints auch PlotareaWertToPoints oder
PlotareaWertToPixel.
Und es gäbe eine Variable xlStandardFontWidth, damit man die Spaltenbreite einfach auswerten kann so wie die Zeilenhöhe
Gruezi
Reinhard
Grüezi Reinhard
aha, danke, ja, jetzt geht es ohne Select.
Ja, ich müßte mir mal die Muße nehmen mir die Grundlagen
richtig einzubläuen, was ist ein Objekt, was ein OleObjekt,
was ein Shape, was ein Chart, was ein Chartobjekt, u.s.v.m.
*seufz*
Falls das hilft: Ich fühle mit dir!
…ich muss mal graben was ich dazu finden kann, wenns von
Nöten ist.Ja, ich sammele sowas gerne,
nein, habe mich jetzt daran ausgetobt
Dann lass ich das Graben sein - für den Moment…
Ja, das ist eine Variante um horizontale Linien ins Diagramm
zu bringen.
Geht es darum Alternativen zur Technik mit einer eigenen
Datenreihe oder den Error-Bars zu finden?Nein, eine neue Datenreihe per Vba einzufügen die dann die
neue farbige Hilslinie darstellen soll bekomme ich hin.
Mich störte nur daß bei einer eigenen Datenreihe für die
farbige Hilfslinie, diese auch in der legende angezeigt
wurde.
Diesen Eintrag bringt man dann aber auch wieder raus - zumindest ‚zu Fuss‘:
Legende anklicken - einen Moment warten - betreffenden Eintrag in der Legende anklicken - Löschen.
Mit 35 Promille nochmal im Rotlichtmilieu in eine Bar zu
gehen kann tendenziell ein Fehler für die Brieftasche sein,
aber was sind denn nu „Error-Bars“ ?
Zu gut Deutsch: ‚Fehlerbalken‘ (aber der Link mit dem Rotlichtmilieu ist auch nett )
Üblicherweise nehme ich keine vollständige Datenreiche sonern nur zwei Punkte, lege das Ganze als XY-Punktediagramm auf die sekundären Achsen und skaliere so , dass es passt.
Alternrativ reicht dann sogar ein einzelner Datenpunkt, dem ein entsprechender Fehlerbalken zugewiesen wird - das Ganze ebenfalls als XY-Punktediagramm auf den sekundären Achsen.
Das alles aber meist ohne VBA da in der Regel genügend Zeit bleibt, das kurz zu erstellen und es meist nicht mehrfach wieder gebraucht wird.
Ich glaube auch die von MS wollten das Gefummel nicht, schauen
wie breit das Fenster ist, welche Bildschirmauflösung der PC
hat, usw. sonst gäbe es analog zu InchesToPoints auch
PlotareaWertToPoints oder
PlotareaWertToPixel.
Und es gäbe eine Variable xlStandardFontWidth, damit man die
Spaltenbreite einfach auswerten kann so wie die Zeilenhöhe
Tja - Grafik und Excel sind zwei Themengebiete die nicht so gut miteinander können, ich weiss.
Gruezi
Mit ü, Reinhard, mit ü - aber sonst klingts schon sehr stilsicher
–
Mit freundlichen Grüssen
Thomas Ramel
für dein höflich formuliertes RTFM
*jammer* diesmal bin ich aber echt unschuldig.
Gruß
Reinhard
hi
laß uns nicht darüber streiten ob es ein RFTM war oder nicht,
es war auf alle Fälle hilfreich und nett formuliert. Danke.
Grüße Winter
P.S. Solange noch ein Link auf die Stelle im Manual ist, kann ich mit leben. Immer hin sollte mn erst lesen dann Fragen stellen.
Grüezi Thomas [mit viel üüüüüben klappts ja ]
Ja, ich sammele sowas gerne,
nein, habe mich jetzt daran ausgetobtDann lass ich das Graben sein - für den Moment…
jepp.
Diesen Eintrag bringt man dann aber auch wieder raus -
zumindest ‚zu Fuss‘:Legende anklicken - einen Moment warten - betreffenden Eintrag
in der Legende anklicken - Löschen.
Wieder was gelernt, dankeschön.
Mit 35 Promille nochmal im Rotlichtmilieu in eine Bar zu
gehen kann tendenziell ein Fehler für die Brieftasche sein,
aber was sind denn nu „Error-Bars“ ?Zu gut Deutsch: ‚Fehlerbalken‘ (aber der Link mit dem
Rotlichtmilieu ist auch nett
Gut, das beantwortet meine Frage was denn Error-Bars sind.
Bleibt für mich die Frage was sind Fehlerbalken *gg*
Ich stiess heute auf „Ausdruck.GetChartElement x, y, Idnum, a, b“,
als Ausdruck nahm ich das aktive Diagramm und ließ verschiedene x und x werte in Schleifen durchlaufen und immer wenn die zurückgelieferte Idnum wechselte, ließ ich in Höhe y eine Linie ziehen.
Egal ob ich y absolut nahm oder in Bezug zu Top und/oder height vom Diagramm, nie trafen irgendwelche Linien exakt die Unterkante und die Oberkante der plot/Chart-Area
Und bei der mühsamen Herausfindung was denn die einzelnen zurückgelieferten „Idnum“ so bedeuten, es gibt 28, stieß ich auf dei Nummern 10 und 11.
10 ist xlXErrorBars
11 ist xlYErrorBars
Insofern glaube ich dir jetzt daß es Error-Bars gibt
Um herasuzufinden was das genau ist, oder wie man die manuell oder per vba erzeugt oder wie man einem Datenpunkt einen Fehlerbalken zuzuweisen, hatte ich keine Zeit mehr, aber mache ich noch.
Gruß
Reinhard
Grüezi Reinhard
Grüezi Thomas [mit viel üüüüüben klappts ja
Jep, schon vieeeel besser - solltest Du jemals die CH-Bürgerschaft beantragen kannst Du mich als Referenz für die Aussprache angeben
Mit 35 Promille nochmal im Rotlichtmilieu in eine Bar zu
gehen kann tendenziell ein Fehler für die Brieftasche sein,
aber was sind denn nu „Error-Bars“ ?Zu gut Deutsch: ‚Fehlerbalken‘ (aber der Link mit dem
Rotlichtmilieu ist auch nettGut, das beantwortet meine Frage was denn Error-Bars sind.
Bleibt für mich die Frage was sind Fehlerbalken *gg*
Ups, den einen Begriff mit einem genauso unverständlichen anderen zu erklären ist wohl nicht so hipp…
Und bei der mühsamen Herausfindung was denn die einzelnen
zurückgelieferten „Idnum“ so bedeuten, es gibt 28, stieß ich
auf dei Nummern 10 und 11.
10 ist xlXErrorBars
11 ist xlYErrorBars
Insofern glaube ich dir jetzt daß es Error-Bars gibt
Puuh, da fällt mir ein Stein vom Herzen…
Um herauszufinden was das genau ist, oder wie man die manuell
oder per vba erzeugt oder wie man einem Datenpunkt einen
Fehlerbalken zuzuweisen, hatte ich keine Zeit mehr, aber
mache ich noch.
Einfach eine Datenreihe rechts anklicken und ‚Datenreihen‘ formatieren wählen - im Register ‚Fehlerindikatior xxx‘ findest Du alles weitere.
Bei geschickter Nutzung dieses Features kombiniert mit einem XY-Punktediagramm entsprechender Skalierung kannst Du damit herrlich alle Linien in beiden Richtungen anlegen die Duu benötigst und diese ganz einfach über eine Datenzelle steuern.
So kann z.B. der Mittelwert einer Datenreihe berechnet werden und diese Zelle als Wertepunkt verwendt - das Diagramm passt sich dann immer den aktuellen Daten an ohne dass Shapes ‚operativ‘ an die richtige Stelle verpflanze werden müssen.
Hier liegt eine Demo-Mappe mit ein paar dynamichen Diagrammen - im Tabellenblatt ‚Mit Linie‘ ist der Mittelwert genau so dargestellt:
http://users.quick-line.ch/ramel/Diagramme/Diagramm_…
–
Mit freundlichen Grüssen
Thomas Ramel