Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: TEXT EINFÜGEN

TEXT EINFÜGEN
Jörg
Hallo,
ich habe eine riesen Tabelle und möchte bestimmte Zellen (die ich vorher markiere) einen Text hinzufügen, und der schon in der Zelle drin stehende Text soll bestehen bleiben. Manchmal soll der zu hinzufügenden Text oberhalb, des bestehenden und manchmal unterhalb dieses textes eingefügt werden.
Danke
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: TEXT EINFÜGEN
27.08.2009 21:05:41
Josef
Hallo Jörg,
vom Prinzip her, geht das so.
Sub addTextBefore()
  Dim strText As String
  Dim rng As Range
  
  strText = InputBox("Bitte Text eingeben", "Text Einfügen", "Neuer Text")
  
  If strText <> "" Then
    For Each rng In Selection
      rng = strText & vbLf & rng.Text
    Next
  End If
End Sub

Sub addTextAfter()
  Dim strText As String
  Dim rng As Range
  
  strText = InputBox("Bitte Text eingeben", "Text Einfügen", "Neuer Text")
  
  If strText <> "" Then
    For Each rng In Selection
      rng = rng.Text & vbLf & strText
    Next
  End If
End Sub

Gruß Sepp

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige