Restore all Outlook data after reinstalling Office 2019

Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.
<br />

Wenn Sie über eine Wiederherstellungssicherung verfügen, können Sie diese bereitstellen und nur ein Postfach exportieren.

https://docs.microsoft.com/exchange/high-availa...

I have the same Outlook program on two different PCs. How can I delete it on one PC (due to sale) without it being deleted on the other PC as well. The answer is important to me.

- - -
If "Outlook program" means Office Outlook like Outlook 365, Outlook 2019, etc. uninstalling that program on one computer won't affect the other computer at all.
To clear all Outlook Data:
Location of Outlook Data files:
https://support.microsoft.com/de-de...-und-ost-222eaf92-a995-45d9-bde2-f331f60e2790
https://support.microsoft.com/en-us...-and-ost-222eaf92-a995-45d9-bde2-f331f60e2790
Don

Backup Outlook:
http://office-blog.net/post/Outlook-Backup.aspx

Reinstall Windows:
http://windows.microsoft.com/de-DE/windows7/Installing-and-reinstalling-Windows-7

Beachte die Installationsoption "Benutzerdefiniert"!!



Chris

Hallo,



die neue Formel lautet jetzt:

=ZÄHLENWENNS(Data!$F:$F;$B8;Data!$B:$B;WENN($D$2="All";"<>"&"";$D$2);Data!$H:$H;WENN($F$2="All";"<>"&"";$F$2);Data!$D:$D;WENN($H$2="All";"<>"&"#NV";$H$2);Data!$C:$C;WENN($D$3="All";"<>"&"";$D$3);Data!$I:$I;TEIL(F$7;1;FINDEN(" ";F$7)-1))



Mit freundlichen Grüßen

Claus

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