mit VBA Buchstaben erkennen

[Hans Alborg]

Hallöchen!

Seit gestern habe ich mein Excel 2003 samt VBA wieder (Rechner war zur
Reparatur).

Damit steht die unterbrochene Aufgabe an, aus vielen Tabellenblättern
bestimmte Texte/ Zahlen zusammenzusuchen und in eine neue Tabelle zu holen,
mit VBA.

Im Speziellen geht es darum, Zeiten zu übernehmen.
In den Zellen kann auch Text stehen, der nicht kopiert werden soll.

So etwa sieht der Codeschnipsel aus:

'-------------------7. Spalte---------------------------------------
If Sheets(i).Cells(l, 13) < Asc("A") Or Sheets(i).Cells(l, 13) > Asc("z")
Then
Sheets(i).Cells(l, 13).Copy
Sheets("Üstd").Cells(j, 7).PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If

----------------------------------------------------------------------

Er läuft durch ohne was zu bewirken :-/
Es soll nicht kopiert werden wenn Buchstaben auftauchen.
Das ":" und Zahlen sollen übernommen werden (z.B. 3:40).

Warscheinlich liegt's wieder an der Syntax: asc("A")?

Hans

[Konrad Finkenzeller]

Hans Alborg schrieb:

Hallo Hans,

If IsNumeric(Sheets(i).Cells(l, 13).Value Then...

sollte funktionieren.

Gruß,
Konrad

[Hans Alborg]

Hi Konrad,

"Konrad Finkenzeller" schrieb...
> Hans Alborg schrieb:

>> Es soll nicht kopiert werden wenn Buchstaben auftauchen.
>> Das ":" und Zahlen sollen übernommen werden (z.B. 3:40).

> If IsNumeric(Sheets(i).Cells(l, 13).Value Then...

So klappt das (mit noch einer Klammer nach "Value" :-)
Sogar der Doppelpunkt kommt mit...

Danke Dir!

Hans

[Eric March]

Hans Alborg schrieb:

Und wenn einer der (Text)Posten "3-Korn-Brot" ist ?? :-)))))
(Ja , ich bin gemein, aber ich weiß wie sehr einen Strings total aus dem
Rezept bringen können.)

--
Eric March

»Schreibe kurz - und sie werden es lesen. Schreibe klar und sie werden
es verstehen. Schreibe bildhaft - und sie werden es im Gedächtnis
behalten.« Joseph Pulitzer

[Hans Alborg]

Hola Erich,

"Eric March" schrieb...

> Hans Alborg schrieb:

>> So klappt das (mit noch einer Klammer nach "Value" :-)
>> Sogar der Doppelpunkt kommt mit...

> Und wenn einer der (Text)Posten "3-Korn-Brot" ist ?? :-)))))

Das sind meist leere "Zeit-Zellen" in die ich selbst(!) gern irgendwelche
Denkhilfen tippe, wie z.B. einen Haken (ü in Wingdings) oder andere kurze
Sachen.

Jedenfalls wird in der Ergebnistabelle, sollte das vorkommen, das/ die
Zeichen angezeigt und ich kann das fix im Ursprungsblatt löschen/ ändern.

> (Ja , ich bin gemein, aber ich weiß wie sehr einen Strings total aus dem
> Rezept bringen können.)

Nur beim programmieren ;-)

Hans