Remove data not available

So wie ich es sehe liegt das Problem entweder auf der Empfängerseite oder die verwendete Mailadresse ist falsch. Mailbox not available der Empfänger ist nicht erreichbar.

Hallo Andrea,

danke für die Nachricht.

Ich nehme an, es war aus Sicherheitsgründen deaktiviert. Besuchen Sie die folgende Website (auf Englisch), um zu erfahren, wie einige Benutzer die Option zum Ausführen von Skript für Regeln reaktiviert:

Outlook 2016 - run script not available anymore on rules actions.

Wir freuen uns auf Ihre Rückmeldung.

LG

AEG

Die Textdatei so wie Sie es gemacht haben in Excel zu übertragen habe ich auch geschafft.
Allerdings brauche ich die Höhenwerte, d.h. jeweils den dritten Wert in einem Raster, wobei die ersten beiden Werte die Position des Werts im Raster angeben sollen.

Hat 'ne Weile gedauert bis bei mir der Groschen gefallen ist was das werden soll, aber nun... sieht gut aus.

Daten in leeres Blatt einfügen, Code unten in ein reguläres Modul, Test ausführen, E1 anklicken, 3D-Oberflächen-Diagramm erzeugen.

Wo ist das?

Woher bekommt man solche Daten?

Kann man an dem Projekt freiberuflich mitarbeiten?

Andreas.

Option Explicit

Sub Test()

Dim Data

Data = Grid(Range("A1").CurrentRegion, True)

Range("E1").Resize(UBound(Data), UBound(Data, 2)).Value = Data

End Sub

Function Grid(ByVal Source As Range, Optional ByVal Compress As Boolean, Optional ByVal HasHeader As XlYesNoGuess = xlGuess) As Variant

Dim Data, Result

Dim i As Long, j As Long, k As Long

Dim x As Long, y As Long

'Guess if there are headings?

If HasHeader = xlGuess Then

For i = 1 To Source.Columns.Count

If VarType(Source.Cells(1, i).Value) <> VarType(Source.Cells(2, i).Value) Then

HasHeader = xlYes

Exit For

End If

Next

If HasHeader = xlGuess Then HasHeader = xlNo

End If

'Exclude top row if we have a header

If HasHeader = xlYes Then Set Source = Source.Resize(Source.Rows.Count - 1).Offset(1)



'Read in all data

Data = Source.Value

If Not IsArray(Data) Then Exit Function

'Create a 1 based 2D-array

With WorksheetFunction

x = .Min(Source.Columns(1)) - 1

y = .Min(Source.Columns(2)) - 1

ReDim Result(.Min(Source.Columns(2)) - y To .Max(Source.Columns(2)) - y, .Min(Source.Columns(1)) - x To .Max(Source.Columns(1)) - x)

End With

'Copy the data into

For i = 1 To UBound(Data)

Result(Data(i, 2) - y, Data(i, 1) - x) = Data(i, 3)

Next



'Remove empty rows / columns?

If Compress Then

'Remove empty rows

Result = WorksheetFunction.Transpose(Result)

GoSub Compress

'Remove empty columns

Result = WorksheetFunction.Transpose(Result)

GoSub Compress

End If



'Done

Grid = Result

Exit Function

Compress:

k = 0

'In each column

For j = 1 To UBound(Result, 2)

'Search for empty columns

For i = 1 To UBound(Result)

If Not IsEmpty(Result(i, j)) Then Exit For

Next

'Empty?

If i <= UBound(Result) Then

'No increment counter

k = k + 1

'Need to copy?

If j > k Then

'Copy the data to the left

For i = 1 To UBound(Result)

Result(i, k) = Result(i, j)

Next

End If

End If

Next

'Remove unused columns

ReDim Preserve Result(1 To UBound(Result), 1 To k)

Return

End Function

Hello George,
<br />thank you for your quick reply and your kind words.
<br />Unfortunatley, the information in the link you provided, did not help me.
<br />There are no restrictions on the account of my son. I am just unable to remove him from his "organiser" role within his Family settings - there is no button, menu entry or anything else.
<br />Within my own profile i can opt to leave the family (in the menue right next to my profile picture)
<br />This option is not available for my kid in his family settings.
<br />HELP ..please.....
<br />

Hallo Steffen,

Du hast es erahnt. Da es sich um einen "Anonymous"-Link handelt, kann so eine Statistik nicht erstellt werden.

Zitat: "At this time, views are counted for internal, authenticated users only." und "Files shared with anonymous users or files available to users with guest permissions are not included.".

Hier ist der Artikel als Referenz - "View usage data for
your SharePoint Online site".

Bedanke mich für dein Verständnis.

Mit freundlichen Grüßen,

Georgi Taskov

Microsoft Office 365 Support Engineer