Thema Datum  Von Nutzer Rating
Antwort
25.01.2011 10:45:36 Sonaj
Solved
25.01.2011 11:16:27 Severus
NotSolved
25.01.2011 15:45:56 Sonaj
NotSolved
Blau Schleife für Stammbaum
 25.01.2011 16:54:21 Severus
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
25.01.2011 16:54:21		 Views:
892		 Rating:
     
Antwort:
  Ja
Thema:
Schleife für Stammbaum

Beispiel wäre:

Sub Irgendwas()

Dim lngStamm1 As Long
Dim strStamm1 As String
Dim lngStamm2 As Long
Dim strStamm2 As String
Dim lngStamm3 As Long
Dim strStamm3 As String



lngStamm1 =1

Do
strStamm1 = Format(lngStamm1, "00.")

     lngStamm2 = 1
     Do
          strStamm2 = Format(lngStamm2, "00.")
               lngStamm3 = 1
               Do
                         strStamm3 = Format(lngStamm3, "00" 'Beginnt hier mit 01.01.01

                         [ Dein Code, was beim Stamm3 zu tun ist ]

                         lngStamm3 = lngStamm3 + 1
                         If Kriterium3 = WasAuchImmer Then Exit Do
               Loop
          [ Dein Code, was beim Stamm2 zu tun ist ]
          lngStamm2 = lngStamm2 + 1
          If Kriterium2 = WasAuchImmer Then Exit Do
     Loop
[ Dein Code, was beim Stamm1 zu tun ist ]
lngStamm1 = lngStamm1 + 1
If Kriterium1 = WasAuchImmer Then Exit Do
Loop
End Sub

Severus

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
25.01.2011 10:45:36 Sonaj
Solved
25.01.2011 11:16:27 Severus
NotSolved
25.01.2011 15:45:56 Sonaj
NotSolved
Blau Schleife für Stammbaum
 25.01.2011 16:54:21 Severus
NotSolved