Office: Bitte um Hilfe bei Makro-Erstellung

Code:

Private Function PostLeitZahl(ByVal Nummer As String) As String

Hier "String" als Rückgabewert ist eher unglücklich. Wenn Du überprüfen möchtest, ob etwas falsch/richtig ist, wäre "Boolean" als Rückgabe sinnvoller. Im aufrufenden Hauptprogramm kannst Du den dann direkt mit IF... auswerten.

Code:

Private Function PostLeitZahl_korrekt(ByVal Postlz As String) As Boolean
dim korrekt as boolean
dim n as long
korrekt = true

Code:

Länge = Len(Trim(Replace(Nummer, " ", "")))

Ist vielleicht auch etwas tricky... Du prüfst die Länge des mit "replace" und "trim" modifizierten Strings, beläßt den String selbst aber in der ursprünglichen Form.

Code:

Postlz = Trim(Replace(Postlz, " ", ""))

Code:

If (Len(Postlz) = 5) Then

Eigentlich brauchst Du nur den Fehlerfall abfragen, weil die Hilfsvariable "korrekt" ja schon mit "true" vorbelegt ist. Nur, wenn ein Fehler auftritt, muß diese mit "false" überschrieben werden.

Code:

If (Len(Postlz) <> 5) Then

Code:

    PostLeitZahl = "OK"
Else
    PostLeitZahl = "Falsche Länge!"
End If
End Function

Bevor das aufrufende Hauptprogramm einen kompletten String abprüfen muß, um zu entscheiden, ob das Ding denn nun korrekt war oder nicht:

Code:

    korrekt = false
End If
PostLeitZahl_korrekt = korrekt
End Function

Aber das ist ja nur ein Teil der Tests, wie Du ja schreibst. Als nächstes möchtest Du wissen, ob alle 5 Zeichen auch Ziffern sind. Dazu muß nur eine kleine Schleife eingefügt werden:

Code:

for n=1 to len(postlz)
    if (mid$(postlz,n,1)<"0") or (mid$(postlz,n,1)>"9") then
        korrekt = false
    endif
next n

Was also letztendlich resultiert in:

Code:

Private Function PostLeitZahl_korrekt(ByVal Postlz As String) As Boolean 

    dim korrekt as boolean 
    dim n as long 

    korrekt = true
    Postlz = Trim(Replace(Postlz, " ", ""))

    If (Len(Postlz) <> 5) Then
        korrekt = false 
    End If 

    for n=1 to len(postlz) 
        if (mid$(postlz,n,1)<"0") or (mid$(postlz,n,1)>"9") then 
            korrekt = false
        endif 
    next n

    PostLeitZahl_korrekt = korrekt 

End Function

(Müßte eigentlich so klappen, ist aber nicht nachgebaut / ausprobiert...)

Gruß, Michael

 

hi miriki,

super das hat sehr gut geklappt...
Grußes Dickes Lob zu Dir...
Dann habe ich es nun doch geschafft mit deiiner/eurer Hilfe..!

DANKE

MfG

 

wie kann ich das nun noch ändern, das er nicht nur C3 einlesen tut,
sondern die komplette C-Spalte?

 

Diese Routine überprüft ja nicht eine Zelle, sondern nur den Wert, der an die Routine übergeben wird. Woher die Werte kommen, die überprüft werden sollen, ist Sache des übergeordneten (Haupt-) Programms.

Du brauchst also eine Schleife, die der Reihe nach die Zellen abklappert, die überprüft werden sollen. Im einfachsten Fall sowas in der Art:

Code:

for y=1 to 65536 'die kpl. spalte durchlaufen
    plz=activesheet.cells(y,3).value 'wert aus zeile y, spalte 3 = c
    if postleitzahl_korrekt(plz) then
        'ja: ...
      else
        'nein: ...
    endif
next y

Was jeweils bei ja / nein passieren soll, mußt Du entscheiden. Und normalerweise muß ja auch nicht die kpl. Spalte C durchlaufen werden, sondern man beschränkt sich auf den belegten Bereich. Aber da gibt es zu viele Möglichkeiten, um da jetzt Genaueres sagen zu können.

Gruß, Michael