Problems with code verification

Danke für die Antwort

in meinem S-Konto ist die Lizenz leider nicht aufgeführt, obwohl ich Bestell- und Rechnungsnummer habe, auch die Bestätigung der Zahlung . Die Zusendung des Verifications Codes zeigt meiner Erachtens aber, dass ich registriert bin. Aber was hilft der Code?

Vor der Verlängerung war Office 365 aktiviert.

Hallo,

wenn viele Formeln und dann auch noch volatile, schalte die Berechnung während der Makro-Ausführung aus:

Dim iCalc As Integer

With Application

    .ScreenUpdating = False

    .EnableEvents = False

    iCalc = .Calculation

    .Calculation = xlCalculationManual

End With

On Error GoTo CleanUp

[b]'Hier dein Code[/b]

CleanUp:

With Application

    .ScreenUpdating = True

    .EnableEvents = True

    .Calculation = iCalc

End With

Claus

Da antworte ich mir mal selbst ;-)

In den vergangenen Tagen gab es ein paar Windows-Updates die anscheinend das Problem gelöst haben.

Es funktioniert jetzt der Body bei der "halbautomatischen " Variante (siehe Code direkt darüber) wie auch das:

With ActiveWorkbook

.sendmail Recipients:="*** Die E-Mail-Adresse wurde aus Datenschutzgründen entfernt. ***", Subject:="Subject der Mail"

.Close savechanges:=False

End With

(Code vom Themenanfang)

Irgendjemand scheint also von den Problemen gehört zu haben ;-)

MfG

Tom

Hallo,

bitte wende dich an den telefonischen Support von Microsoft. Den telefonischen Support erreichst du montags bis freitags von 08:00 bis 18:00 Uhr und samstags von 09:00 bis 17:00 Uhr unter den nachstehenden Rufnummern:

Deutschland 01806 - 67 22 55*

Österreich 01 - 5 02 22 22 55

Schweiz 0848 - 80 22 55

*0,20 € pro Anruf aus dem deutschen Festnetz, Mobilfunktarif max. 0,60 €

Drücke bei der Bandansage die 1 für Privatkunden, dann die 4 für den technischen Support und dann die 3 für Office.

Gruß,

Pauline

Hallo Ronald,

oder belasse deine Tabelle mit allen Rahmen wie sie ist. In Spalte A hast du eine laufende Nummer. Ändere dann das Makro "Drucken" so ab:

Sub Drucken()

Dim Lrow As Long

With Sheets("StaBo")

   Lrow = Application.Max(.Range("A:A")) + 4

   With .PageSetup

      .PrintArea = "A1:E" & Lrow

   End With

End With

End Sub

Claus