Import txt bestimmte zeilen

[atilla]

Hallo Herbert,

be mir funktioniert das hier:

If Left(Cells(i, 1), 1) = "#" Then

[herbert0803]

Hallo Klaus-Martin,

Das mit der Tilde (~) hatte ich auch schon wo gelesen, aber wie du schreibst, funktioniert es bei diesem Code nicht und ich wusste nicht warum.
Das mit suchen und ersetzten und dann löschen funktioniert.

Danke!

Wie ich aus A3 die Zeichen 86 bis 93 in die zelle C3 kopieren kann habe ich auch geschafft, Danke Google :43:!

Code:

Sub Datum()
Dim sZeichen As String

sZeichen = Mid(Range("A3"), 86, 8)

Range("C1").Value = sZeichen
End Sub

Danke an alle 3 für die Hilfe.

[atilla]

Hallo Herbert,

hab mich mal bezüglich "Like" schlau gemacht.

In der Onlinehilfe steht:
Anmerkung Die Sonderzeichen linke Klammer ([), Fragezeichen (?), das Zeichen # und das Sternchen (*) müssen in eckige Klammern gesetzt werden, um für einen Vergleich herangezogen werden zu können.

Ich habe es dann wie folgt getestet, und es funktioniert.
If Cells(i, 1) Like "[#]*" Then