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"