Thema Datum  Von Nutzer Rating
Antwort
22.08.2021 21:39:01 Testert96
Solved
22.08.2021 23:51:43 Mase
NotSolved
23.08.2021 08:25:55 Tester96
NotSolved
23.08.2021 11:23:22 Mase
NotSolved
24.08.2021 19:33:40 Ulrich
NotSolved
25.08.2021 08:25:07 Tester96
NotSolved
25.08.2021 09:19:56 Gast38529
NotSolved
25.08.2021 15:28:45 Ulrich
NotSolved
Rot ein Vorschlag
 25.08.2021 21:38:17 Tester96
NotSolved
26.08.2021 12:23:53 Ulrich
NotSolved

Ansicht des Beitrags:
Von:
Tester96		 Datum:
25.08.2021 21:38:17		 Views:
488		 Rating:
     
Antwort:
  Ja
Thema:
ein Vorschlag

Hallo Ulrich,

danke für die umfangreiche Hilfe. Ich habe auch Hand angelegt. Doch konnte ich die Bedingung " aufeinanderfolgende Ziffern müssen aufsteigend sein" nicht erfüllen.

Public Function AlleSieben(ByVal Zahl As String) As Boolean 'prüft, ob alle Ziffern v. 1-7 im String vorhanden sind(nur einmal!)
Dim x As Byte, y As Byte
For x = 1 To 7
y = y - (Len(Replace(Zahl, x, "", 1)) = 6)
Next x
AlleSieben = (y = 7)
End Function
Public Function Waagerecht(ByVal sText) As Boolean
Waagerecht = False
If UBound(Split(sText, "x")) = 2 And AlleSieben(Replace(sText, "x", "")) Then
Waagerecht = True
End If
End Function

Die Funktion soll auch schnell sein, da ich viele Strings prüfen soll, die voneinander abhängen.

Viele Grüße, Tester96

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.08.2021 21:39:01 Testert96
Solved
22.08.2021 23:51:43 Mase
NotSolved
23.08.2021 08:25:55 Tester96
NotSolved
23.08.2021 11:23:22 Mase
NotSolved
24.08.2021 19:33:40 Ulrich
NotSolved
25.08.2021 08:25:07 Tester96
NotSolved
25.08.2021 09:19:56 Gast38529
NotSolved
25.08.2021 15:28:45 Ulrich
NotSolved
Rot ein Vorschlag
 25.08.2021 21:38:17 Tester96
NotSolved
26.08.2021 12:23:53 Ulrich
NotSolved