Zelle auf Merkmale pruefen
29.11.2006 22:17:41
Christian
ich habe eine Spalte deren Zellen ungefaehr wie folgt aufgebaut sind:
123456 sales
123478 sales2
123456 sales3
.
.
.
summe
S0003445 blabla
SCopa blabla
.
.
.
summe
netto
Ich moechte jetzt vor jede dieser Spalten eine bestimmte Gruppennummer schreiben. Die Gruppennumer leitet sich aus der gerade gezeigten Spalte ab.
Wenn die ersten Zeichen Zahlen sind mache ich es wie folgt:
temp = Worksheets(tempSheetName).Cells(i, 4)
acc_num = Mid(temp, 7, 8)
If IsNumeric(acc_num) Then
Worksheets(tempSheetName).Cells(i, 2) = acc_num
temp2 = Mid(temp, 19)
Worksheets(tempSheetName).Cells(i, 4) = temp2
'Gruppenzuweisung
If acc_num >= 60200000 And acc_num Worksheets(tempSheetName).Cells(i, 1) = a
ElseIf acc_num >= 60420000 And acc_num Worksheets(tempSheetName).Cells(i, 1) = b
End If
End If
Das ist ja auch noch i.O. Aber wie kann ich den anderen Zellen eine Gruppennummer zuweisen? Die Felder wo bspw. Summe steht sollen aussen vor bleiben.
Gibt es eine Moeglichkeit per Pruefung eines String abzufragen, ob es sich um einen alphanummerischen String handelt? Das wuerde mir schon helfen, da die Zellen, die keine Gruppennummern erhalten sollen, nur aus Text bestehen!
Danke
Christian