Office - Word, Excel und Co. 9.744 Themen, 41.408 Beiträge

Verfolgung starten Optionen

Kaufberatung Office 2021

pappnasen / 31 Antworten / Flachansicht Nickles

Hallo Gemeinde,

ich hatte ja beschrieben, dass ich mit Office 2013 Probleme habe.

Von offizieller Seite ist nun bekannt, dass diese Software nicht mehr unterstützt wird.
Der damalige Händler hat anscheinend illegale Keys verkauft und ist insolvent.

Nun möchte ich mir Office 2021 Home & Student kaufen, allerdings mit Key und legal.

Ist das hier Ok. ?

https://www.lizensio.de/Microsoft-Office-2021-Home-and-Student/LIZ10107?awc=19110_1657898001_beba92798c8fc3ef9400feb6af6188ab&utm_source=awin&utm_medium=affiliate&utm_campaign=328743

Ich bitte um Ratschläge.

Danke.

bei Antwort benachrichtigen
Bei Microsoft kostet es offiziell 149,00 EUR: https://www.microsoft.com/de-de/store/cart?country de culture de-de rtc 1 Bei ... mawe2
Vielen Dank für die Analyse und Deine Meinung. pappnasen
Sehr geehrter , scheinbar hat Microsoft den Link geändert. Wir werden diesen selbstverständlich auch anpassen. Danke ... pappnasen
Die Frage, warum man die Lizenz nicht übertragen kann, ist damit aber nicht beantwortet. mawe2
Man kann sie übertragen. Bei Microsoft anrufen und sagen, dass man den PC getauscht hat. Die setzen dann das Flag für den ... mumpel1
Es geht nicht darum, was technisch tatsächlich möglich ist. Es geht um die Frage, warum der Verkäufer behauptet, dass ... mawe2
Dieser Beitrag ist gelöscht. steffen_g
Ein schlechter Werbeversuch. Die Professionell Plus ist offiziell nur für Firmen, nicht für Privatanwender, kann also ... mumpel1
Was willst du eigentlich mit einem Office-Programm machen oder bewerkstelligen? Ein bisschen Textverarbeitung? Ein paar ... schoppes
Danke. Daran habe ich gar nicht gedacht. Ich muss mal ausprobieren, wie meine Dateien da übernommen werden und wie das ... pappnasen
Die Makros wirst Du mehr oder weniger stark anpassen müssen, damit LO Calc damit zurechtkommt. mawe2
So gut wie garnicht. Userformen musst Du komplett umbauen. Klassenmodule kennt Starbasic nicht, und API-Programmierung ... mumpel1
Wenn du die Exchange-Funktionalitäten von Outlook nicht benötigst, dann schau doch auch mal bei Softmaker Office vorbei. ... RW1
Danke für die Info. Ich hatte schon mal Softmaker auf dem Rechner. Ich weiß aber nicht mehr, was es nicht konnte. pappnasen
Hallo pappnasen, wenn du Dateien mit Makros besitzt, macht es keinen Sinn, auf LibreOffice oder einen anderen Hersteller zu ... hddiesel
https://www.microsoft.com/de-de/microsoft-365/business/compare-all-microsoft-365-business-products-b? ef_id ... fbe
Hallo fbe, deine Antwort war sicher an pappnasen gerichtet. Ich benötige weder Cloud, noch Abo bei Office. hddiesel
Und vermutlich wollte pappnasen genau das nicht und hat sich daher nach einer sauberen Version von Office 2021 erkundigt ... gelöscht_189916
Sorry, Deine Vermutung ist richtig. So etwas passiert wenn auf das Startposting geantwortet wird und inzwischen einige ... fbe
Da der Aktivierungs-Key bei Softwarebilliger für die Downloadversion auch für die etwa 60€ angeboten wird, gehe ich ... gelöscht_189916
Es kommt immer auf die Programme an, welche man verwendet. Der Unterschied sind 20,90 Euro. Office 2021 Home and Student - ... hddiesel
Das ist ja klar. Imho wird für die meisten Word, Excel und Powerpoint wichtig sein und ggf. Outlook noch, wer drauf ... gelöscht_189916
OT-2: Ich habe dieses Jahr mit LO ebenfalls für einen Bekannten Rudi Mentär ca. 15 Vorlagen und Vordrucke erstellt und ... Eludi84
Hallo fakiauso, pappnasen kann ja Libre Office installieren und schauen, wie seine Formeln, UserFormen und Makros reagieren ... hddiesel
Bei umfangreichen Sachen kannst Du VB-Skripte/Makros unter LO knicken. Wenn es unbedingt MSO sein soll, sind aus meiner ... gelöscht_189916
Kleiner Hinweis zu Deinem Link zu softwarebilliger.de: Auch Firmen, die früher mal als vertrauenswürdig galten, können ... mawe2
Das ist völlig richtig. Das zwischen Werbung und Istzustand oft Welten klaffen, ist auch eher die Regel als die Ausnahme. ... gelöscht_189916
Das will ich damit auch nicht gesagt haben. Nur als Klarstellung! Allerdings ist es eben auch so, dass ein Key für 60 EUR ... mawe2
pappnasen Nachtrag zu: „Kaufberatung Office 2021“
Optionen

Liebe Helfer,

ich bedanke mich für alle Inputs.
Letztendlich hat das geholfen.
Ich werde mir wohl die Office-Verdion 2021 kaufen, denn ich habe doch teilweise recht umfangreiche VBA-Scripte erstellt und hoffe, dass das umgesetzt wird.

Beispiel gefällig?

Public Sub Auswerten()
Dim Zeile As Integer, Spalte As Integer, Wert As Integer
Dim Z As Integer, S As Integer, ZQ As Integer, SQ As Integer
Dim ZY As Integer, SY As Integer

Zeile = ActiveCell.Row
Spalte = ActiveCell.Column
If Zeile > 27 Or Spalte > 27 Then GoTo Fehler

Wert = ActiveCell
If Wert = 0 Then GoTo Fehler

Z = Zeile Mod 3
Select Case Z
    Case 0
        Zeile = Zeile - 1: Z = 1
    Case 1
        Zeile = Zeile + 1: Z = -1
    Case Else
        Z = 0
End Select

S = Spalte Mod 3
Select Case S
    Case 0
        Spalte = Spalte - 1: S = 1
    Case 1
        Spalte = Spalte + 1: S = -1
    Case Else
        S = 0
End Select

If Zeile < 9 Then
    ZQ = 3: ZX = 2
ElseIf Zeile > 19 Then
    ZQ = 21: ZX = 20
Else
    ZQ = 12: ZX = 11
End If
    
If Spalte < 9 Then
    SQ = 34: SX = 2
ElseIf Spalte > 19 Then
    SQ = 40: SX = 20
Else
    SQ = 37: SX = 11
End If

For i = Zeile - 1 To Zeile + 1
    For j = Spalte - 1 To Spalte + 1
        If Cells(i, j) <> "" Then
            Cells(i, j) = ""
        End If
    Next j
Next i

If Wert = 5 Then
    For i = ZX To ZX + 6 Step 3
        For j = SX To SX + 6 Step 3
            If Cells(i, j) = 5 Then
                Cells(i, j) = ""
            End If
        Next j
    Next i
    For i = S + 2 To S + 27 Step 3
        If Cells(Zeile + Z, i) = 5 Then
            Cells(Zeile + Z, i) = ""
        End If
    Next i
    For i = Z + 2 To Z + 27 Step 3
        If Cells(i, Spalte + S) = 5 Then
            Cells(i, Spalte + S) = ""
        End If
    Next i
    Cells(Zeile, 28) = 1
    Cells(28, Spalte) = 1
    Cells(ZQ, SQ) = 1
Else
    For i = ZX + Z To ZX + Z + 6 Step 3
        For j = SX + S To SX + S + 6 Step 3
            If Cells(i, j) <> "" Then
                Cells(i, j) = ""
            End If
        Next j
    Next i
    For i = S + 2 To S + 27 Step 3
        If Cells(Zeile + Z, i) <> "" Then
            Cells(Zeile + Z, i) = ""
        End If
    Next i
    For i = Z + 2 To Z + 27 Step 3
        If Cells(i, Spalte + S) <> "" Then
            Cells(i, Spalte + S) = ""
        End If
    Next i
End If

Cells(Zeile, Spalte) = Wert
Fehler:
Range("AD30").Select
End Sub

Sub Resetten()
    Dim Zeile As Integer, Spalte As Integer
    Blattname = ActiveSheet.Name
    Sheets("Vorlage").Select
    Range("A1:AB28").Select
    Selection.Copy
    Sheets(Blattname).Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ' ActiveSheet.Paste
    Range("AD30").Select
    
    For Zeile = 3 To 21 Step 9
        For Spalte = 34 To 40 Step 3
            Cells(Zeile, Spalte) = ""
        Next Spalte
    Next Zeile
        
End Sub


Das mag ich nicht überarbeiten.

Danke.

bei Antwort benachrichtigen
Hallo pappnasen, Nachtrag: Die Gesamtzahl der Zeilen und Spalten in einem Arbeitsblatt, sind 1.048.576 Zeilen und 16.384 ... hddiesel
Hallo hddiesel, danke für die Info. In meinem Script werden nur Zahlen bis 9 verarbeitet, Spalten und Zeilen bis 26. Somit ... pappnasen