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

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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige