27.11.2014, 11:56
Seiten: 1 2
27.11.2014, 12: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:!
Danke an alle 3 für die Hilfe.
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.
27.11.2014, 12:15
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
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
Seiten: 1 2