Hallo und schönen Feiertag,
ich hatte vorige Woche eine Beitrag ins Forum gestellt bin aber erst heute dazu gekommen reinzuschauen:
Mein Beitrag war:
ich brauche bei einem schwierigen Fall Eure Hilfe.
Und zwar schreibe ich per Code(Userform) in eine Tabelle einen Kommentar.
Dies sieht so aus:
Cells(ActiveCell.Row, ActiveCell.Column).Comment.Text Text:="best case: " & best_case.Value & vbLf & "Memo: " & memo_best.Value & vbLf & "worst case: " & worst_case.Value & vbLf & "Memo: " & memo_worst.Value
Ich möchte nun in eine Msgbox die Zeichen des Kommentares auslesen die hinter dem
Wort Memo:
stehen und bis zum nächsten Zeilenumbruch dauern
In diesem Fall müssten es zwei Werte sein, weil zweimal "Memo:" vorkommt.
Ich habe darauf folgenden Code bekommen:
Dim strText As String
Dim strAusgabe As String
Dim intPosMarker As Integer
Dim intPosLf As Integer
Dim strMarker As String
strText = _
"best case: " & "1" & vbLf & _
"Memo: " & "#memo_best.Value#" & vbLf & _
"worst case: " & "2" & vbLf & _
"Memo: " & "#memo_worst.Value#"
strMarker = "Memo: "
intPosMarker = InStr(strText, strMarker)
intPosLf = InStr(strText, vbLf)
While intPosLf &gt 0 And intPosMarker &gt 0
strText = Right(strText, Len(strText) - intPosMarker + 1)
intPosLf = InStr(strText, vbLf)
If intPosLf = 0 Then
strAusgabe = strAusgabe & Right(strText, Len(strText) - Len(strMarker)) & vbCrLf
Else
strAusgabe = strAusgabe & Mid(strText, Len(strMarker) + 1, intPosLf - Len(strMarker) - 1) & vbCrLf
End If
strText = Right(strText, Len(strText) - intPosLf + 1)
intPosMarker = InStr(strText, strMarker)
intPosLf = InStr(strText, vbLf)
Wend
If strAusgabe &gt "" Then MsgBox strAusgabe
Leider weiß ich damit nichts anzufangen.
Der Kommentar der Zelle sieht folgendermaßen aus:
best case: 12
Memo: text1
worst case: 14
Memo: text2
Ich möchte nun in eine Textbox oder zum Test in eine Message Box die Werte auslesen die hinter dem Wort Memo: stehen.
Dies muss aber zweimal geschehen, einmal für den Text1 und einmal für den Text2.
So dass die Message Box beispielsweise folgenermaßen aussieht:
Memo: text1
Memo: text2
Bitte helft mir nochmal, weil ich komm damit überhaupt nicht klar, wäre auch super wenn Ihr an Code ein paar Kommentare ranschreibt,
DANKE
Steffe Schmerler