Excel 2010 Zeichenfolge in Zelle schreiben [Duplikat]

Question

Auf diese Frage gibt es hier bereits Antworten:

Schreiben einer Zeichenfolge in eine Zelle in Excel (4 Antworten)

Geschlossen vor 5 Jahren.

Ich würde eine vollständige Beschreibung geben, aber in dieser Frage von vor zwei Jahren, die völlig ungelöst blieb, wurde bereits alles Relevante gesagt:

Schreiben einer Zeichenfolge in eine Zelle in Excel

Mein Programm ist so einfach wie es nur sein kann:

`Sub separate()
Dim stri As String
Dim i As Long
stri = Sheets("HEXDUMP").Cells(1, 5).Text
For i = 0 To (Len(stri) / 4)
    Sheets("HEXDUMP").Cells(i, 1).Value = Mid(stri, ((i * 2) + 1), 2)
    Sheets("HEXDUMP").Cells(i, 2).Value = Mid(stri, ((i * 2) + 3), 2)
Next i
End Sub`

Ich möchte lediglich eine Zeichenfolge nehmen und sie in Zellen mit jeweils zwei Zeichen aufteilen.Natürlich funktioniert alles perfekt, außer dass es nicht in eine Zelle schreibt, egal was man damit macht.Ich habe versucht, den Schutz aufzuheben. Ich habe es mit .text versucht. Ich habe versucht, ein neues Blatt zu erstellen und es neu zu starten.Es ist ein Fehler in Excel und alles, was ich an dieser Stelle möchte, ist eine Problemumgehung.

Answer 1

Sie haben einen Fehler in Ihrem Code.

Für i = 0, d.h.Bei der ersten Iteration Ihrer Schleife gibt der folgende Code einen Fehler aus:

... .Cells(i, 1) ...
... .Cells(i, 2) ...

als Es gibt keine Zeile 0.Ändern Sie es in:

... .Cells(i + 1, 1) ...
... .Cells(i + 1, 2) ...

und es wird funktionieren.Ich bin mir nicht sicher, ob es genau das ist, was Sie wollen, aber es wird zumindest keine Fehlermeldung angezeigt.