Guten Tag zusammen. Ich wollte mal fragen ob jemand von euch schon mal diese Erfahrung gemacht hat:

Mein Email Postfach wurde gehackt und ich bekomme es nicjt wieder. Es ist aussichtslos. Also wollte ich retten was zu retten ist. Ich habe versucht die Email Adresse zu ändern bei discord aber dafür würde eine Email zum bestätigen an das alte Postfach gehen. (Netter Humor)

Ich zahle monatlich Geld für Nitro. Mal nebenbei bemerkt.

Nun habe ich Kontakt mit dem Support gesucht und die können mir angeblich nicht helfen weil ich nicht auf meine alte Email zugreifen kann. Die dürfen mich nicht anders identifizieren.

JETZT ZU DER FRAGE

Wenn der hacker jetzt mein Account unzugänglich für Licht macht und ich weiterhin bezahle. Kann das abbo von niemandem mehr gekündigt werden (weil die mich ja nicht identifizieren dürfen) und ich zahle bis an mein lebensende ja?

Kann ich mit dem Anwalt was erreichen? In den AGBs steht man ist selber für dich Sicherheit seines Accounts verantwortlich. Aber es war ja ein anderer Account (email) der gehackt wurde.

Dinge die beweisen können, dass es mein Account ist:

- Der Authentifikator auf meinem Handy

- Bankverbindung

- Verknüpfung mit Twitch wo man mein gesicht sieht

- Name auf dem perso der auch teil der Email Adresse ist.

Ich bin echt verzweifelt. Ich leite wichtige Discord Server und habe viele Connections dort. Ich kann nicht einfach das sinkende Schiff verlassen mit neuem Account.

Hay zusammen,

meine Frage ist wie kann ich die Werte Links in der Tabelle rechts untereinander einfügen? Es muss eine Abfrage erfolgen ob die Zeile leer ist und wenn nicht, dann darunter einfügen.

Habe da ein Makro gefunden aber vielleicht kann mir jemand sagen wie der funktioniert. Kenne mich damit nicht aus. Habe die Werte geändert (Zellenangaben) und trotzdem fügt er die Daten untereinander ein.

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+e
'
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("J3:N3")
For Each Zelle In Bereich
    If IsEmpty(Zelle) Then Exit For
Next Zelle
With ActiveSheet
    .Range("A3:E3").Copy
    Zelle.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    .Range("A3:E3").ClearContents
End With
Application.CutCopyMode = False
End Sub

Verstehe das System nicht ganz.

Kurz: Durch Klick auf Buchen sollen die Werte rechts eingefügt werde. Untereinander bei jeder weiteren Buchung.