VBA Programm (Code) in Excel welches einen Text in Wiki Sprache convertieren soll?

...komplette Frage anzeigen es sieht so aus mit mehreren - (Programm, programmieren, Excel) Und aussehen im textfeld sollte es so - (Programm, programmieren, Excel)

1 Antwort

Wo hakt es denn?

Antwort bewerten Vielen Dank für Deine Bewertung
FrageTage 05.01.2016, 13:53

Ich weiss nunmal den ganzen Code nicht wie man das macht..

0
Suboptimierer 05.01.2016, 14:25
@FrageTage
Private Sub CommandButton1_Click()
  Dim i, j As Integer
  Dim iLastCol As Integer
  Dim iLastRow As Integer
  Dim rZelle As Range

TextBox1.Text = "^ "
'Überschrift For Each rZelle In Range(Range("A1"), Range("A1").End(xlToRight)) TextBox1.Text = TextBox1.Text & rZelle.Value & " ^ " Next TextBox1.Text = TextBox1.Text & vbCrLf
'Zeilen iLastCol = Range("A1").End(xlToRight).Column iLastRow = Range("A1").End(xlDown).Row For i = 2 To iLastRow TextBox1.Text = TextBox1.Text & "| " For j = 1 To iLastCol TextBox1.Text = TextBox1.Text & Cells(i, j).Value & " | " Next TextBox1.Text = TextBox1.Text & vbCrLf Next End Sub
0
Suboptimierer 05.01.2016, 14:43
@FrageTage

Oder etwas simpler:

Private Sub CommandButton2_Click()
  ActiveSheet.UsedRange.Copy
  TextBox1.Paste
  TextBox1.Text = Replace(TextBox1.Text, vbTab, " | ")
  TextBox1.Text = Replace(TextBox1.Text, vbCrLf, " |" & vbCrLf & "| ")
  TextBox1.Text = "| " & Left(TextBox1.Text, Len(TextBox1.Text) - 2)
End Sub
0
FrageTage 05.01.2016, 14:49
@Suboptimierer

Danke vielmals, kannst du mir noch sagen was es meint mit "Objekt erforderlich" bei "Textbox1.Text = "^ "

0
Suboptimierer 05.01.2016, 14:57
@FrageTage

Dein Textfeld, in welches du deinen Text geschrieben haben möchtest, heißt offensichtlich nicht "TextBox1".

0
Suboptimierer 05.01.2016, 15:06
@FrageTage

Speichere das Resultat testhalber zunächst in einen String. Auf die Steuerelemente deiner Userform kannst du noch immer herausfinden zuzugreifen, wenn der Rest läuft.

Warum er die Microsoft Forms 2.0 Textbox bei dir nicht erkennt oder dessen Eigenschaft Text nicht findet, kann ich dir gerade auch nicht sagen.

0

Was möchtest Du wissen?