Office Test

Hallo Swenja,



die Bezahlung des Abonnements für Office 365 erfolgt per Kreditkarte oder per PayPal, eine Zahlung per Überweisung/Bankeinzug ist soweit ich weiß nicht möglich. Bitte wende dich daher direkt an den

Microsoft Store.



Gruß,



Pauline

Ich habe mich dafür entschieden, Microsoft Office 2016 30 Tage lang zu testen. Irgendwie klappt es nicht. Ich habe Office heruntergeladen. Wenn ich Excel öffne, kommt eine Warnmeldung. Dann kann man nichts mehr machen, weder zurück noch okay noch Eingabe.
Danach steht bei Excel: Nur Ansicht (ohne Lizenz). Das verstehe ich nicht. Ich kann theoretisch noch bis März testen, aber praktisch kann ich keinen einzigen Tag testen.

Was muss ich nun machen?

Hallo Jonas,

hast du Probleme nur bei Excel? Wie ist das Verhalten der anderen Anwendungen?

Versuche Excel zu
reparieren und überprüfe, ob das Problem noch besteht.

Bei weiteren Fragen stehe ich zu Verfügung.

MfG

Hallo Salinger,

bitte siehe diesen
Artikel zum Thema und falls er dir nicht weiterhilft,

wende dich bitte an AnswerDesk.
Die Mitarbeiter können Dir mit dieser Aktivierung-Frage weiterhelfen.

Hast du andere Fragen, stehen wir gerne zur Verfügung. Einfach wieder melden.

Vielen Dank und liebe Grüße

Kyle

Hallo Reiner,

du benötigst ein Office 365 Abonnement um Office 2016 für Mac nutzen zu können. Seit dem offiziellen Realease von Office 2016 für Mac für Office 365 Nutzer am 09.07.2015 gibt es keinen Download für die Preview-Version mehr.

Gruß,

Pauline

Hallo,

probiere mal:

Sub Uebertrag()Dim varData As Variant

Dim LRow As Long, i As LongWith Sheets("Tabelle1")

   LRow = .Cells(.Rows.Count, "C").End(xlUp).Row

   varData = .Range("B2:E" & LRow)

   For i = LBound(varData) To UBound(varData)

      varData(i, 4) = Application.Substitute(varData(i, 4), "-", " ", 2)

   Next

End With

With Sheets("Tabelle2")

   .Range("A2").Resize(UBound(varData)).Value = Application.Index(varData, , 4)

   .Range("B2").Resize(UBound(varData)).Value = Application.Index(varData, , 3)

   .Range("D2").Resize(UBound(varData)).Value = Application.Index(varData, , 2)

   .Range("F2").Resize(UBound(varData)).Value = Application.Index(varData, , 1)

End With

End Sub

Claus