Enabling "Show items with no data" in PivotTable shows wrong items

https://1drv.ms/x/s!AlLJ_d394eTxq2rtpQRAoVzdYGPR

Kannst Du schon vergessen, manche Deiner Nummern sind keine: 21a, 21b etc.

Und Du hast bereits jetzt schon ein doppelte Nummern: 89, 98, 103

In Tabelle2 alles löschen, Spalte A als Standard und Spalte B als Datum formatieren.

BTW, das Worksheet_Change ersetzt Du mit dem hier:

Private Sub Worksheet_Change(ByVal Target As Range)

'Nur wenn eine Zelle geändert

If Target.Count > 1 Then Exit Sub

'Nur wenn in B:G

If Intersect(Target, Range("B:G")) Is Nothing Then Exit Sub

'Nur in jeder durch 3 teilbaren Zeile

If Target.Row Mod 3 = 0 Then

'Ereignisse aus, sonst rufen wir uns selber auf

Application.EnableEvents = False

'Datum eintragen

Target.Offset(1) = Date

Application.EnableEvents = True

End If

End Sub

Andreas.

Option Explicit

Sub Test()

Dim All As Range, R As Range

Dim C As New Collection

Dim Item, Data

Dim i As Long, j As Long

'Suche alles in B6:G327

With Sheets("Tabelle1")

For i = 6 To 327 Step 3

For j = Columns("B").Column To Columns("G").Column

With .Cells(i, j)

Item = Trim$(.Value)

If Item <> "--" Then

C.Add Array(.Value, .Offset(1).Value)

End If

End With

Next

Next

End With

'Liste zusammenstellen

ReDim Data(1 To C.Count, 1 To 2)

i = 0

For Each Item In C

i = i + 1

Data(i, 1) = Item(0) 'Zahl

Data(i, 2) = Item(1) 'Datum

Next

'In die Tabelle schreiben

Sheets("Tabelle2").Range("A1").Resize(UBound(Data), UBound(Data, 2)).Value = Data

End Sub

Lad Dir mal diese Datei herunter
<br />https://www.dropbox.com/s/700hbz18bsc7nu2/FileSearch.cls?dl=1
<br />Öffne den VBA Editor
<br />Drück STRG-M und importiere die Datei
<br />Dann machst Du ein neues Modul und kopierst den Code unten da rein
<br />Lies bitte diesen Artikel bevor Du den Code kopierst:
<br />https://answers.microsoft.com/en-us...m-editor/5081b294-7ea7-4a86-870f-6b2834a0653b
<br />Andreas.
<br />

Sub Test() Dim FS As New FileSearch Dim Data, Item Dim i As Long, p As Long With FS .LookIn = "\\Swwfile\mhgdocs\ISSC\Study Startup\MRT51605-516005\07 Binder\ISF\01. Correspondence\" .FileName = "*.*" .SearchSubFolders = True .Execute If .FoundFiles.Count = 0 Then Exit Sub ReDim Data(1 To .FoundFiles.Count, 1 To 2) For Each Item In .FoundFiles i = i + 1 p = InStrRev(Item, "\") Data(i, 1) = Left(Item, p - 1) Data(i, 2) = Mid(Item, p + 1) Next Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(Data), UBound(Data, 2)).Value = Data Range("A1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End WithEnd Sub

Hallo Hans,

hast du auch ein neues Mailkonto erstellt?

Weitere Informationen:
http://www.worldofppc.com/reviews/item/windows-phone-7-synchronisieren-des-geraets-mit-outlook-via-windows-live-hotmail-connector

Gruss,

Robert

Microsoft Certified Professional | This posting is provided "AS IS" with no warrenties and confers no rights

Hallo Peter Ess,



Bedanke mich für die Erläuterung



Was mit den Elementen nach dem 365 Tag passiert hängt von der Aufbewahrungsrichtlinie ab.



What happens when the hold duration expires?



When the hold duration expires for a mailbox item in the Recoverable Items folder, the item is permanently deleted (purged) from the inactive mailbox. If there is no duration specified for the hold placed on the inactive mailbox, items in the Recoverable
Items folder are never purged (unless the hold duration for the inactive mailbox is changed).



Is retention policy still processed on inactive mailboxes?



If a retention policy was applied to a mailbox when it was made inactive, the deletion policies (which are retention tags configured with a Delete retention action) will continue to be processed on the inactive mailbox. That means items that are tagged with
a deletion policy are moved to the Recoverable Items folder when the retention period expires. Those items are then purged from the inactive mailbox when the hold duration for an item expires.



Conversely, any archive policies (which are retention tags configured with a MoveToArchive retention action) that are included in the retention policy assigned to an inactive mailbox are ignored. That means items in an inactive mailbox that are tagged with
an archive policy remain in the primary mailbox when the retention period expires. They're not moved to the archive mailbox or to the Recoverable Items folder in the archive mailbox. Because a user can't sign in to an inactive mailbox, there's no reason to
consume datacenter resources to process archive policies.



Quelle:
Change the hold duration for an inactive mailbox in Exchange Online



Für weitere Fragen stehe ich gerne zur Verfügung.



Mit freundlichen Grüßen,



Desislava Dimova



Microsoft Office 365 Support Engineer

Hallo Michael,

und wie ist es damit? Ich kann ja nicht wissen wo es bei Dir hapert ;-)

Andreas.

Option Explicit

Sub Test()

Dim All As Range

Dim Data



'Daten der Tabelle referenzieren

Set All = Range("Tabelle4")

'Einlesen

Data = TabelleVierZuUni(All)



'In neuem Blatt ausgeben

Sheets.Add

Range("A1").Resize(, 4).Value = Array("LfdNr.", "Name, Vorname", "Schule", "Standort")

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

End Sub

Private Function TabelleVierZuUni(ByVal Where As Range) As Variant

Dim Data, Item

Dim i As Long, j As Long

Dim All As New Collection



Data = Where.Value



'Schule und Standort

For j = 3 To 11 Step 2

'Jede Zeile

For i = 1 To UBound(Data)

'Was drin?

If Not IsEmpty(Data(i, j)) Then

'Abspeichern Nr/Name/Schule/Standort

All.Add Array(Data(i, 1), Data(i, 2), Data(i, j), Data(i, j + 1))

End If

Next

Next



'Collection zu 2D-Array

ReDim Data(1 To All.Count, 1 To 4)

i = 0

For Each Item In All

i = i + 1

For j = 1 To 4

Data(i, j) = Item(j - 1)

Next

Next

TabelleVierZuUni = Data

End Function