Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige