---

Hallo Leute,

im Moment habe ich das Problem, daß die SPS-Programmierer eher fertig sind als ich. Um nun die Kommentare zu importieren, ist leider einiges an Vorarbeit zu leisten. Das grösste Problem dabei ist, die teilw. über 50 Zeichen eines Kommentars in einen max. vierzeiligen EPLAN-Funktionstext (max. 15 Zeichen/Zeile) umzuwandeln, durch einfügen vom Zeilentrennern "¶" und Trennstrichen etc.
Hat jemand eine Idee, wie man diese Arbeit automatisieren kann? Vielleicht bereits in Excel? Hier ein Beispiel:

"Ein_11/15 Ein Austragsschnecke 11/15"
muss geändert werden in
"Ein_11/15¶Ein Austrags-¶schnecke 11/15"

Vielen Dank schonmal für eure Antworten
Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

das funktioniert vielleicht schon in Excel. Vielleicht fragst Du mal im Excel-Forum hier auf Cad.de nach. Da sind ein paar nette Leute dabei die helfen Dir bestimmt...

Grüße
Bernd

------------------

Unser Bestes... jetzt auch hier... | Das WTC lebt... | Download - Testphase... | EPLAN - Historie... | Stammtisch Eplaner(innen) - hier...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

kenne das aus eigener Erfahrung. Hier eine Lösung in VB, die zumindest in die Leerzeichen den Zeilenumbruch einfügt.
Vielleicht bringt es dich ja weiter.

Sub Umbruch()
'Voraussetzung die Spalte ist markiert
Dim Uzeichen As String, Zeichen As String, ZeileNeu As String, Zeile As String
Dim Umb As Integer, I As Integer, J As Integer, X As Integer, Z As Variant
UmbZeichen = "¶" 'Umbruchzeichen
Umb = 20  'Vorbelegung Umbruch bei Zeichenzahl
Umb = InputBox("Umbruch bei Zeichenanzahl ? ", "?", Umb)
Umb = Int(Umb)
I = 0
For Each Z In Selection
I = I + 1
ZeileNeu = ""
Zeile = Z.Value
J = 0
Status = 1
X = 1
If Len(Zeile) > Umb Then
  For J = 1 To Len(Zeile)
        Zeichen = Mid(Zeile, J, 1)
        If J > (X * Umb) Then Status = 0
        If (Zeichen = " ") And (Status = 0) Then
            Zeichen = UmbZeichen
            Status = 1
            X = 1 + Int(J / Umb)
        End If
      ZeileNeu = ZeileNeu + Zeichen
  Next J
Else
ZeileNeu = Zeile
End If
Z.Value = ZeileNeu
Z.Select
Next
End Sub

Frohes Fest und Guten Rutsch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

hätte ich fast vergessen. Wenn dir der Umbruch nicht gefällt dann kannst du ihn für die vorher markierten Zellen wieder automatisch löschen.

Sub Umbruch_loeschen()
UmbZeichen = "¶"
I = 0
For Each Z In Selection
I = I + 1
ZeileNeu = ""
Zeile = Z.Value
    J = 1
    For J = 1 To Len(Zeile)
        Zeichen = Mid(Zeile, J, 1)
        If Zeichen = UmbZeichen Then Zeichen = " "
        ZeileNeu = ZeileNeu + Zeichen
    Next J
Z.Value = ZeileNeu
Z.Select
Next
End Sub

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo EbKo,

das war ein Superding von dir! Es kommt meinen kühnsten Wünschen extrem nah und ist bestimmt eine grosse Hilfe für mich.

Vielen Dank !!!

Ich wünsche dir ein schönes Weihnachtsfest
und ein gutes neues Jahr.

Gruss
Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

wie importierst du die Funktionstexte nach Eplan?

Gruss

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Schoesse und willkommen hier auf Cad.de 

nur um sicher zu gehen. Mich meinst Du ja sicher nicht, oder?

Grüße
Bernd

------------------

Unser Bestes... jetzt auch hier... | Das WTC lebt... | Download - Testphase... | EPLAN - Historie... | Stammtisch Eplaner(innen) - hier...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sorry,
die Frage ging an Bernd.H.

Gruss

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Schoesse, das Importieren mache ich so:

Die Ausgangssituation ist, daß alle zu verwendenden SPS Ein- und Ausgänge bereits platziert sind. Sie können bereits einen Funktionstext - z.B. "Reserve" - besitzen. Dann:

1. gehe nach "Generierung/SPS-Generator/Bearbeiten/SPS-Daten
2. markiere die Baugruppen deren Texte du ändern bzw. importieren willst.
3. Nun öffnet sich ein Editor mit allen SPS-Anschlüssen (auch evtl. Kartenversorgungen etc.) Sortiere hier in der Spaltengruppe "SPS-Daten aus Schaltplan" die Daten nach "Adresse" (einfach draufklicken).
4. in die weissen Spalten rechts kannst du nun die neuen Texte z.B. aus Excel einfach hineinkopieren.
5. den Editor mit speichern verlassen und die Texte sind drin!

ABER! Die Texte müssen ggf. in Excel mit einem oder mehreren Zeilentrennern versehen werden, wobei wir bei meinem ursprünglichen Problem wären. Die VB-Lösung von EbKo ist dir bestimmt eine grosse Hilfe. Ich habe ich mich damit an unsere Excel-Spezies gewendet, weil VB nich wirklich mein Ding ist.

Gruss Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Bernd.H,
dass hat mir schon mal weiter geholfen.

Gruss Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP