Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Import txt bestimmte zeilen
#11
Hallo Herbert,

be mir funktioniert das hier:

If Left(Cells(i, 1), 1) = "#" Then
Gruß Atilla
Antworten Top
#12
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.
LG Herbert
Windows 10
Office 365
Antworten Top
#13
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
Gruß Atilla
[-] Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag:
  • herbert0803
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste