An MRR



Excel-Version: 97
  • An MRR von Michael Heering vom 10.04.2002 - 15:52:00
    • Re: An MRR von MRR vom 10.04.2002 - 21:13:52
      • Re: An MRR von Michael Heering vom 10.04.2002 - 22:35:12
nach unten

Betrifft: An MRR
von: Michael Heering
Geschrieben am: 10.04.2002 - 15:52:00

Hallo MRR!

Du hattest mir heute schon geholfen. Ich habe Deine Function erfolgreich einbauen können. Jetzt habe ich das Problem, dass eines der Felder nur Text hat. Damit bricht bricht die Schleife einfach ab und der nachfolgende Code wird nicht mehr ausgeführt. Hast Du da villeicht noch einen Tip für mich?

Danke
Michael Heering


nach oben   nach unten

Re: An MRR
von: MRR
Geschrieben am: 10.04.2002 - 21:13:52

Hi Michael,
(in der Anrede kannst Du natürlich ruhig Matthias sagen...)

Function Nur_Zahlen(Zelle As Range)
Dim As Integer
Dim strWert As String
For i = 1 To Len(Zelle)
  Select Case Mid(Zelle, i, 1)
    Case "0" To "9"
      strWert = strWert & Mid(Zelle, i, 1)
  End Select
Next
If strWert <> "" Then Nur_Zahlen = CSng(strWert) Else Nur_Zahlen = ""
End Function

So könnte es gehen.
Matthias

nach oben   nach unten

Re: An MRR
von: Michael Heering
Geschrieben am: 10.04.2002 - 22:35:12

Ja, so geht es. Danke, ich wußte nicht, wo ich ansetzen soll.

Gruß
Michael Heering


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Excel 2000 lässt sich nicht starten"