Ankündigung

Einklappen
Keine Ankündigung bisher.

Nassi-Shneiderman Diagramm

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • Nassi-Shneiderman Diagramm

    Hallo zusammen,
    ich habe die Aufgabe für ein VBA-Programm ein Nassi-Shneiderman Diagramm zu erstellen, habe davon jedoch sehr wenig Ahnung.
    Vielleicht kann mir ja einer der mehr Ahnung davon hat helfen.
    Bei dem Programm geht es darum einen Text,der in einer Zelle steht vor einer bestimmten Zeichenfolge zu trennen,sodass der hintere Teil in die nächste Spalte verschoben wird.

    Hier der Programmcode:

    Dim s As Integer
    Dim pos As Integer

    For s = 1 To Range("A65536").End(xlUp).Row
    pos = InStr(1, Cells(s, 1), "zHd", 1)
    Cells(s, 2) = Right(Cells(s, 1), _
    Len(Cells(s, 1)) - pos + 1)
    Cells(s, 1) = Left(Cells(s, 1), pos - 2)
    Next s

    Columns("A:B").Columns.AutoFit

    End Sub

    Bsp.: In A1 steht "Fa.Hofer zHd. Max", vor "zHd" soll die Trennung nach klicken eines CommandButton erfolgen, sodass "zHd.Max" in B1 verschoben wird.

    Kann mir da jemand helfen?

    MfG shatk110

  • #2
    Geht es generell um das WIE, oder nur um diesen konkreten Fall?

    Die fertige Lösung wird dir nicht viel bringen, aber schau mal, was Wikipedia dazu sagt:


    bis bald
    Kermit

    Kommentar


    • #3
      Schau Dir das an:
      Alles zum Thema Webdesign und Webprogrammierung, wie z.b. PHP, ASP, HTML, JAVA und Javascript, wie auch zu allen anderen unterschiedlichen Programmiersprachen in allen Bereichen.
      Wenn man alles ausgeschaltet hat, was unmöglich ist, bleibt am Ende etwas übrig, das die Wahrheit enthalten muss

      Kommentar


      • #4
        Original geschrieben von Xheon
        Schau Dir das an:
        http://www.informatikboard.ch/showth...&threadid=6457
        Sind die Beiden in der selben Klasse?

        grz zer00

        Kommentar


        • #5
          Hab ich mir auch gedacht - deshalb hab ich mal den Beitrag verlinkt
          Wenn man alles ausgeschaltet hat, was unmöglich ist, bleibt am Ende etwas übrig, das die Wahrheit enthalten muss

          Kommentar

          Lädt...
          X