---

BezugshinweisMakro.jpg BezugshinweisMessagebox.jpg

HI API Spezialisten 
ich erstelle einen  mehrzeiligen Bezugshinweis per VBA. Jetzt will ich diesen in ein Blatt einfügen. Allerdings habe ich keine Zeilenumbrüche, sondern nur diesen umgedrehte P das man schon aus Word kennt. Wenn ich in diesem Bezugshineris "von Hand" einfüge (also Eingabe drücke) klappt das wie gewohnt. Ubrigens, wenn ich in der User Form des Makros eine Vorschau in einer Text Box anzeigen lasse sieht es genauso aus. Der String in einer Messagebox wird richtig dargestellt 
Weiss jemand von euch Rat?

------------------
Viele Grüße aus dem Schwarzwald
gismo
Meine bescheidene Website

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

---

Hallo gismo,

das sollte eigentlich gehen, wenn du als Zeilentrenner ein vbCrLF als Zeilenumbruch heweils dazwischen machst (also praktisch CHR$(13) & CHR$(10) )

Wenn du dass in einer Textbox eingeben willst solltest du bei der die Eigenschaft "MultiLine" auf True stellen. Ein Minibeispiel mit einer Textbox und einem Commandbutton sieht dann so aus:

Code:

---

Private Sub CommandButton1_Click()
   
    Dim swApp As Object
    Dim Part As Object
    Dim text As String

    Set swApp = Application.SldWorks

    Set Part = swApp.ActiveDoc
    'text = "Zeile1" & vbCrLf & "Zeile2" & vbCrLf & "Zeile3"
    text = TextBox1.text
   
    Set Note = Part.InsertNote(text)
    Part.ClearSelection
    Part.WindowRedraw

End Sub

---

Ansonsten schick mir doch mal deinen Code, mein Töchterlein schläft gerade, da kann ich vielleicht eben mal nachschauen 

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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

---

hallo,

wenn ich ein Makro aufzeichne, wo ich einen mehrzeiligen Bezugshinweis eingebe, und dann mir das Makro ansehe, dann steht da:
...
Set Note = Part.InsertNote("Zeile1" & Chr(13) & Chr(10) & _
                           "Zeile2" & Chr(13) & Chr(10) & _
                           "Zeile3")
...
Chr(13) für CR - carriage return
und
Chr(10) für LF - line feed
siehe auch hier z.B: http://www.stud.tu-ilmenau.de/~schwan/tp/node46.html

Ich denke mal so müßte es gehen! Bei Dir nicht ?

P.S. Wieder einer schneller ...

[Diese Nachricht wurde von u.clemens am 12. Juni 2003 editiert.]

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

---

Bezugshinweis1.jpg

Hmmmm,
Wenn ich ein Makro aufzeichne sieht es bei mir genauso aus wie bei euch. Dann ist auch der BEzugshinweis korrekt auf dem blatt. Wenn ich mein Makro aber entsprechend umbaue, klappt es wieder nicht.

Ich glaub, ich muss erst mal Feierabend machen, bei der Hitze (25° in Büro) ;-)

------------------
Viele Grüße aus dem Schwarzwald
gismo
Meine bescheidene Website

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

---

Dank Stefan hab ich Das Problem gelöst!
Ich habe oben den kleinen Hinweis "Multiline auf True setzen" überlesen. Aber unser Stefan hat mich wieder auf den richtigen Weg gebracht!

------------------
Viele Grüße aus dem Schwarzwald
gismo
Meine bescheidene Website

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

---

Zitat:

---

Original erstellt von gismo:
.....Ich glaub, ich muss erst mal Feierabend machen, bei der Hitze (25° in Büro) ;-)

---

Habts ihr schön! 
Bei uns 29,5° bei 72% Luftfeuchte.  (Da kann man sich am Abend die Sauna sparen.)
Soeben hat sich bei uns ein Monitor mit "Hitzschlag" "Krankghemeldet". Ich vermute mal daß das ein Exitus ist. 

------------------
Grüße aus dem Schwabenland

Dieter 

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

---

Tja Dieter,
hier in Furtwangen ist es halt immer etwas kühler als im Rest von Deutschland
Leider auch im Winter Dieses Jahr hatten wir fast 1,5 Meter Schnee *brr*

------------------
Viele Grüße aus dem Schwarzwald
gismo
Meine bescheidene Website

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