- #1
S
shatk110
Guest
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
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