Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlerabfangen bei Rang

Forumthread: Fehlerabfangen bei Rang

Fehlerabfangen bei Rang
23.11.2006 14:02:41
Markus
Hallo Leute,
ich übergebe einer Funktion einen Zellenbereich (z.B. A1:A5). Zur Vermeidung von Fehlern möchte ich zunächst überprüfen, ob der Zellenbereich die richtige Anzahl Zellen (Argumente)aufweist. Kann mir jemand sagen, wie ich das hinbekomme?
Gruß Markus
Code:
Public 

Function ParamÜbergabe(Bereich As Range)
Dim rng As Range
'Hier überprüfen, ob richtige Anzahl Argumente übergeben wurde
For Each rng In Bereich
Debug.Print rng
Next 'rng
End Function

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlerabfangen bei Rang
23.11.2006 14:15:31
Mag
Hi,
Bereich.Count
Gruss
AW: Fehlerabfangen bei Rang
Markus
Ja, das Problem ist nur, dass, wenn ich über den Funktionsbutton die Funktion aufrufe und den Zellbereich eingebe, ich gar keine Chance habe die Eingabe zu beenden, ohne dass die Msgbox sich hundert mal meldet.
M.
Public 

Function ParamÜbergabe(Bereich As Range)
Dim rng As Range
If Bereich.Count <> 5 Then
MsgBox "Falsche Anzahl Parameter!"
Exit Function
End If
For Each rng In Bereich
Debug.Print rng
Next 'rng
End Function

Anzeige
AW: Fehlerabfangen bei Rang
23.11.2006 16:02:46
Mag
Hi,
vielleicht so (Ansatz)?

Sub test()
If ParamÜbergabe(Range("A1:A5")) Then
MsgBox "OK"
Else
MsgBox "owehoweh"
End If
End Sub

Public 

Function ParamÜbergabe(Bereich As Range) As Boolean
Dim rng As Range
If Bereich.Count <> 5 Then ParamÜbergabe = False: Exit Function
For Each rng In Bereich
Debug.Print rng
Next 'rng
ParamÜbergabe = True
End Function

Gruss
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige