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 Tobias