Zellen nach Inhalt überprüfen

Bild

Betrifft: Zellen nach Inhalt überprüfen von: Michael
Geschrieben am: 04.04.2005 12:15:10

hallo an alle,

habe folgendes problem,

ich lese aus einem verzeichnis alle dateien über makro ein, diese dateien werden ab A3 bis unendlich gelistet. Ist es möglich diese eingelesenen dateien auf richtige schreibform zu überprüfen?

da ich diese dateien mit einem makro weiterbearbeite müsste ich sicherstellen das die gelisteten dateien mit A und anschliesend mit einer zahl aus 10 ziffern beginnen.

bsp.
A3336664422_irgendwas.txt oder A3336662233irgendwas.xls

ist sowas möglich?.
alles nach der 10 stelle ist nicht wichtig.

bye michael

Bild


Betrifft: Zellinhalt auf "A"&10 Ziffern überprüfen von: Boris
Geschrieben am: 04.04.2005 12:28:49

Hi Michael,

per Formel so:
=(LINKS(A1)="A")*ISTZAHL(TEIL(A1;2;10)*1)

Ergibt 0 oder 1 - 1 nur dann, wenn der Inhalt mit "A" beginnt und eine 10-stellige Ziffer folgt (und danach noch was anderes oder auch nicht).

Grüße Boris


Bild


Betrifft: AW: Zellinhalt auf "A"&10 Ziffern überprüfen von: Michael
Geschrieben am: 05.04.2005 05:53:35

danke @boris,

ist sowas auch per vba möglich ?? weil die überprüfung ein weiteres makro starten bzw. abbrechen soll.

bye michael


Bild


Betrifft: Das Selbe mit VBA von: Boris
Geschrieben am: 05.04.2005 09:17:43

Hi Michael,

Option Explicit

Sub mit_VBA()
Dim C As Range
For Each C In [a1:a5]
    C.Offset(0, 1) = (Left(C, 1) = "A") * IsNumeric(Mid(C, 2, 10))
Next C
End Sub


Grüße Boris


Bild


Betrifft: AW: Das Selbe mit VBA von: Michael
Geschrieben am: 05.04.2005 10:33:02

danke, danke @ boris

deine vorschläge klappen wunderbar.

vielen dank dafür

Michael


Bild


Betrifft: AW: Das Selbe mit VBA von: Michael
Geschrieben am: 05.04.2005 12:01:56

hallo,

ohje jetzt hab ich noch ein problem.

da meine range im makro auf a1:A1200 gesetzt ist läuft das ganze sehr lange, obwohl nur bsp. 4 einträge vorhanden sind. ist es möglich das makro nur auf die anzahl der vorhandenen einträge auszuführen.

bye michael


Bild


Betrifft: Schalte die Berechnung vorübergehend aus... von: Boris
Geschrieben am: 05.04.2005 13:54:20

Hi Michael,

Option Explicit

Sub mit_VBA()
Dim C As Range
Application.Calculation = xlCalculationManual
For Each C In [a1:a1200]
    C.Offset(0, 1) = (Left(C, 1) = "A") * IsNumeric(Mid(C, 2, 10))
Next C
Application.Calculation = xlCalculationAutomatic
End Sub


Grüße Boris


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellen nach Inhalt überprüfen"