Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1224to1228
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

VBA, Text beliebig verketten

VBA, Text beliebig verketten
Mörfi
Hallo ihr Excelexperten,
Ich habe den Inhalt einer PDF-Datei kopiert und in Excel mit STRG+V eingefügt.
Leider steht jetzt jede Textzeile in je einer Excelzelle in Spalte A.
Ich möchte aber ganze Absätze in einer Zelle haben.
(Formatierung über "Zellen verbinden" scheint keine Lösung zu sein.)
Gesucht ist ein Makro, das folgendes kann:
Man markiert eine beliebige Anzahl von zusammenhängenden Zellen einer beliebigen Spalte; z.Bsp. A5:A11.
Dann klickt man auf einen Button und der Inhalt des Bereichs steht dann mit Leerzeichen verkettet in z.Bsp. B5 (also am Anfang des markierten Bereichs, nur eine Spalte weiter).
Und .. wenn es möglich ist:
Der Ursprungstext kann gelöscht werden und die nun entbehrlichen Zeilen 6:11 können entfernt werden.
Gruß
Mörfi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA, Text beliebig verketten
18.08.2011 18:18:33
hary
Hallo
Teste mal.

Sub Versuch()
Dim c As Range
Dim neu As String
For Each c In Selection
If neu = "" Then
neu = c
Else
neu = neu & Chr(160) & c
End If
Next
With Selection
Cells(.Row, .Column + 1) = neu
.ClearContents
Cells(.Row + 1, .Column).Resize(.Count - 1, 1).Delete
End With
End Sub

gruss hary
Danke
18.08.2011 20:23:43
Mörfi
Hallo Hary,
ich bin beeindruckt.
Das funktioniert einwandfrei.
Danke und
Gruß
Mörfi
Anzeige

192 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige