Outlook Prefix für Kommentare

Hallo,



Leider ist das nicht möglich.

Nur Text kann eigetragen werden .

Und nur in den Variationen die dort aufgeführt werden.



Mit Freundlichem Gruß

Wolf Fabian Spohr

Microsoft Office 365 Support Engineer

Dieser Link kann nur mit einem Desktop-OneNote geöffnet werden (sieht man am Prefix "onenote:").
<br />Und er zeigt auf ein Laufwerk F:, das hoffentlich überall auf denselben Windows-Share zeigt ?!
<br />Bernd
<br />

Moin,

wie würden Sie es denn nennen, wenn Sie jemand auffordert, etwas zu tun, anderenfalls erleiden Sie Nachteile?

Ich habe mich jetzt bereits etliche Stunden (in jedem Fall zu viel) mit dem Thema beschäftigt, die beiden Mails gelesen, in der Hilfe, und im Internet gesucht, ohne zu erkennen, was ich KONKRET machen soll.

Verstehe ich Sie jetzt richtig, ich soll

In Outlook das bestehende Hotmail-Konto löschen, anschließend

ein com-Konto mit dem gleichen Prefix anlegen?

Werler59

Da ist die Sache mit den benannten Bereichen nur der Tropfen der das Fass zum überlaufen bringt. So, jetzt geht's mir ein wenig besser, danke fürs zuhören..... ;-(

Ja, geb ich Dir Recht, das sind die Auswirkungen der Finanzmärkte die wir zu Spüren kriegen. Und "wir" sind nicht ganz schuldlos daran.

Ein Unternehmen muss halt Geld verdienen, für Softwareanbieter heißt das neue Produkte auf den Markt bringen. Die Ideenschmiede denkt sich Verkaufsargumente aus, die Entwickler versuchen das umzusetzen und dann kommt der Zeitpunkt X wo das Produkt auf den Markt
muss, sonst fährt man einen Verlust ein. Wohin das führen kann haben wir mit Vista gesehen.

100% Fehlerfrei wird ein Produkt nie sein, aber wenn das Vorabrelease schon so viele Macken hat, dann sollten wir das Endrelease nicht kaufen. Nur so können wir die Softwareanbieter zwingen bessere Software zu entwickeln.

Die meisten Dummbatze kaufen es aber sofort, weil ist ja neu und neu ist immer schick, da kann man endlich mal wieder rumspielen, finden alles toll und unsereins muss sich mit dem Mist rumquälen, weil der Chef die Icons so schön bunt findet. Ich hasse diesen
Ribbon!

Nun ja, wie wär's denn eigentlich damit wenn Du Dein Diagramm ganz normal erstellst und dann die Namen mit einem Makro erzeugst? Vielleicht macht das ja den Rand des Fasses ein bißchen höher.

Andreas.

Sub NamesFromChart()

'Convert all references/values in a chart to names

Dim O As Object, S As Series, N As Name

Dim Data(), Temp

Dim i As Integer, j As Integer

Dim Prefix, Suffix As String

'Get the chart from selection

Select Case TypeName(Selection)

Case "ChartObject"

Set O = Selection.Chart

Case Else

Set O = Selection

If O Is Nothing Then Set O = ActiveSheet

Do While Not TypeOf O Is Chart

Set O = O.Parent

If TypeOf O Is Application Then

MsgBox "Select a chart and try again.", vbInformation, "NamesFromChart"

Exit Sub

End If

Loop

End Select

'Parse each series

For Each S In O.SeriesCollection

Data = SplitSeriesFormula(S.Formula)

For i = 1 To UBound(Data) - 1

'No values?

If Not TypeOf Data(i) Is Range Then

If TypeOf Data(i) Is Name Then GoTo NextData

If Data(i) = "" Then GoTo NextData

End If

Select Case i

Case 1

Prefix = Data(i)

Prefix = Replace(Prefix, " ", "")

Suffix = "Name"

Set N = Names.Add(Prefix & "_" & Suffix, Data(i))

Case 2

Prefix = S.Parent.Parent.Name

Prefix = Replace(Prefix, " ", "")

Suffix = "Category"

If Not TypeOf Data(i) Is Range Then

'Convert data into an array

Data(i) = Split(Data(i), ",")

End If

Set N = Names.Add(Prefix & "_" & Suffix, Data(i))

Case 3

Prefix = S.Name

Suffix = "Values"

If Not TypeOf Data(i) Is Range Then

'Convert data into an array

Data(i) = Split(Data(i), ",")

ReDim Temp(0 To UBound(Data(i)))

For j = 0 To UBound(Data(i))

If IsNumeric(Data(i)(j)) Then

Temp(j) = CDbl(Data(i)(j))

Else

Temp(j) = Data(i)(j)

End If

Next

Set N = Names.Add(Prefix & "_" & Suffix, Temp)

Else

Set N = Names.Add(Prefix & "_" & Suffix, Data(i))

End If

End Select



'Build the filename prefix

Prefix = N.Parent.Name

If InStr(Prefix, " ") > 0 Then Prefix = "'" & Prefix & "'"

'Replace the references/values with the created names

Select Case i

Case 1

On Error Resume Next

S.Name = "=" & Prefix & "!" & N.Name

Select Case Err.Number

Case 0

'No error

Case 1004

'Fails if the name of a series is a value

Case Else

GoTo ErrorHandler

End Select

Case 2

S.XValues = "=" & Prefix & "!" & N.Name

Case 3

S.Values = "=" & Prefix & "!" & N.Name

End Select

NextData:

Next

Next

Exit Sub



ErrorHandler:

MsgBox "Error: " & Err.Number & ": " & Err.Description

End Sub

Private Function SplitSeriesFormula(ByVal SF As String) As Variant

'Parse a series formula, return array of ranges/names/values

Const Delimiter = ",", Quote = "'", DoubleQuote = """"

Dim i As Long, j As Long

Dim InArray As Boolean, InQuote As Boolean

Dim Temp, Result

Dim N As Name

'Assume failure

SplitSeriesFormula = Array()

'Extract the cell references => remove "=SERIES(" and ")"

i = InStr(SF, "(")

If i = 0 Then Exit Function

SF = Mid$(SF, i + 1)

i = InStrRev(SF, ")")

If i = 0 Then Exit Function

SF = Left$(SF, i - 1)

'Remove double quotes

SF = Replace(SF, DoubleQuote, "")

'Temporary replace delimiters in sheet names and arrays

For i = 1 To Len(SF)

Select Case Mid$(SF, i, 1)

Case Quote

InQuote = Not InQuote

InArray = False

Case Application.International(xlLeftBrace), Application.International(xlRightBrace)

If Not InQuote Then InArray = Not InArray

Case Delimiter

If InQuote Or InArray Then Mid$(SF, i, 1) = Chr(255)

End Select

Next

'Split the formula

Temp = Split(SF, Delimiter)

ReDim Result(1 To UBound(Temp) + 1)

On Error Resume Next

For i = 0 To UBound(Temp)

'Restore the delimiters

Result(i + 1) = Replace(Temp(i), Chr(255), Delimiter)

'Remove braces from arrays

If Left$(Result(i + 1), 1) = Application.International(xlLeftBrace) Then _

Result(i + 1) = Mid$(Result(i + 1), 2)

If Right(Result(i + 1), 1) = Application.International(xlRightBrace) Then _

Result(i + 1) = Left$(Result(i + 1), Len(Result(i + 1)) - 1)

'Retrieve ranges if any

Set Result(i + 1) = Range(Result(i + 1))

If Not TypeOf Result(i + 1) Is Range Then

'Check for Names

If InStr(Result(i + 1), "!") > 0 Then

For Each N In Names

If InStr(Result(i + 1), N.Name) > 0 Then

Set Result(i + 1) = N

Exit For

End If

Next

End If

End If

Next

SplitSeriesFormula = Result

End Function

Hallo B. Gesenhues,

Ich frohe mich, dass Du die Webseite-Postfächer wie gewünscht umstellen könntest.

Stelle bitte sicher, dass die Windows 7 Bit Version mit der Bit Version des
Online Services-Anmelde-Assistent
übereinstimmt. Wenn Du
ein 64 Bit Version Windows hast, installiere
bitte die 64 Bit Version
vom Assistent. Wenn Du das Problem weiter hast, schicke bitte einen Screenshot von der Fehlermeldung, wenn die Installation des Azure-PowerShell-Module fehlschlägt.

Freue mich auf Deine Rückmeldung.

Mit freundlichen Grüßen,

Alexander Petrov

Microsoft Office 365 Support Engineer

Wenn Sie das hilfreich finden, bitte markieren sie es als "Hilfreich" oder "Antwort"