PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Nassi-Shneiderman Diagramm



shatk110
06.06.2005, 12:27
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

kermit
06.06.2005, 12:31
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:
http://de.wikipedia.org/wiki/Nassi-Shneiderman-Diagramm

bis bald
Kermit

Xheon
06.06.2005, 12:58
Schau Dir das an:
http://www.informatikboard.ch/showthread.php?s=&threadid=6457

zer00
06.06.2005, 17:08
Original geschrieben von Xheon
Schau Dir das an:
http://www.informatikboard.ch/showthread.php?s=&threadid=6457

Sind die Beiden in der selben Klasse? ;)

grz zer00

Xheon
06.06.2005, 19:29
Hab ich mir auch gedacht - deshalb hab ich mal den Beitrag verlinkt :D