Excel VBA - Prüfen ob Nummer vorhanden

28/04/2009 - 16:31 von Beck, Alwin | Report spam
Excel 2003

Hallo,

ich habe eine Adressdatei in welcher in Spalte E
die Straße und Hausnummer steht.

Nun muss ich überprüfen, bei welchen Adressen keine
Hausnummer eingegeben wurde.

Es sind einige Tausend Datensàtze, daher wàre VBA sinnvoll.
Die Datensàtze sollten dann farbig markiert werden.

Wie kann ich das mit VBA lösen ?

VBA daher, weil ich die Routine in Makros verwenden möchte.

Danke
Gruß
Albe
 

Lesen sie die antworten

#1 Andreas Killer
28/04/2009 - 16:54 | Warnen spam
Beck, Alwin schrieb:

ich habe eine Adressdatei in welcher in Spalte E
die Straße und Hausnummer steht.

Nun muss ich überprüfen, bei welchen Adressen keine
Hausnummer eingegeben wurde.

Es sind einige Tausend Datensàtze, daher wàre VBA sinnvoll.
Die Datensàtze sollten dann farbig markiert werden.

Wie kann ich das mit VBA lösen ?


Wàre die Frage woran Du erkennen möchtest ob da eine Hausnummer drin ist?

Also wenn ich mal sage das Straße22b eine Hausnummer hat, dann könnte
man einfach kucken ob eine Zahl drin ist und wenn ja, dann wàre das
die Hausnummer.

Alexander Wolff hatte unlàngst mal eine Routine dafür entwickelt, die
kannst Du auch in einer Tabelle verwenden.

Ich würde dann die Zeilen mit bedingter Formatierung markieren, die
passt sich dann auch an wenn eine Nummer eingegeben wird.

Andreas.

Function JustNumbers(ByVal What As String) As String
'Gibt nur die Zahlen aus What zurück
Dim Temp() As Byte, I As Long, k As Long
Temp = What
For I = 0 To UBound(Temp) Step 2
If Temp(I) < 58 Then
If Temp(I) > 47 Then
Temp(k * 2) = Temp(I)
k = k + 1
End If
End If
Next
JustNumbers = Left(Temp, k)
End Function

Ähnliche fragen