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
Kommentar