Programmablaufplan

Dieses Thema Programmablaufplan im Forum "Windows XP Forum" wurde erstellt von shatk110, 8. Juni 2005.

Thema: Programmablaufplan Hallo zusammen, ich möchte für ein VBA-Programm ein Programmablaufplan oder ein Nassi-Shneiderman Diagramm...

  1. Hallo zusammen,
    ich möchte für ein VBA-Programm ein Programmablaufplan oder ein Nassi-Shneiderman Diagramm 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