Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1624to1628
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilenumbruch erkennen und Informationen trennen

Zeilenumbruch erkennen und Informationen trennen
06.06.2018 12:54:32
Steven
Hallo zusammen,
ich habe folgendes Problem. Ich speichere ein PDF in eine Excel und versuche mir die Informationen mit einem Makro zu strukturieren. Das klappt auch ganz gut, nur manchmal stehen zwei Informationen in einer Zelle (mit Zeilenumbruch) statt in zwei getrennten Zellen.
Zelle A1:
Info1: (Zeilenumbruch)
Info2:
Das heißt ich suche eine Funktion, die:
1. Überprüft, ob die Zelle einen Zeilenumbruch beinhaltet
2. Wenn ja, dann Info2 in einen separaten/neuen String schreiben
3. Die Info2 samt Zeilenumbruch aus A1 löschen
4. Neue Reihe darunter einfügen und Info2 in Zelle A2 schreiben
Die Schleife drum herum etc. baue ich mir selbst.
Ich bedanke mich recht herzlich im Voraus!
Viele Grüße

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilenumbruch erkennen und Informationen trennen
06.06.2018 13:07:55
KlaWet
Hallo Steven,
ich habe da vor einiger Zeit mal was ähnliches geschrieben.
Vielleicht hilft es dir weiter.
Dim wsAngebot As Worksheet
Dim Zeile As Long
Dim Brake As Integer
Dim AnfangText As Integer, EndeText As Integer
Dim z As Integer, Umbruch As Integer, i As Integer
Sub Druckbereich()
'** Druckbereich für Ausdruck einstellen
'** Positionen sollen zusammenhängend auf einem Blatt dargestellt werden
'>>> Stand: 17.04.2018  Sheet laden  0 Then
For Umbruch = 1 To z
Brake = .HPageBreaks(Umbruch).Location.Row
For i = 1 To UBound(strWS) + 1
'* Abfangen falls nicht mehr vorhanden
If .Range("A:A").Find(i, lookat:=xlWhole) Is Nothing Then Exit For
'* snst Umbruch setzen
AnfangText = .Range("A:A").Find(i, lookat:=xlWhole).Row
EndeText = AnfangText + 3
If AnfangText  Brake Then
Set .HPageBreaks(Umbruch).Location = .Range("A" & AnfangText)
End If
Next i
Next Umbruch
End If
'* auf "Normal" wechseln
ActiveWindow.View = xlNormalView
End With
Gruß
KlaWet
Anzeige
AW: Zeilenumbruch erkennen und Informationen trennen
06.06.2018 13:08:42
Robert
Hallo Steven,
nachstehendes Makro prüft, ob in der aktiven Zelle ein Zeilenumbruch (ANS-Code 10) vorhanden ist. Ist dies der Fall, wird eine neue Zelle eingefügt und der Teile vor und nach dem Umbruch in die aktive Zelle bzw. die neu eingefügte Zelle eingefügt. 
Sub TextSplitten()
Dim tmpTxt
If InStr(ActiveCell, Chr(10)) > 0 Then
tmpTxt = Split(ActiveCell, Chr(10))
ActiveCell.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell = tmpTxt(0)
ActiveCell.Offset(1, 0) = tmpTxt(1)
End If
End Sub
Gruß
Robert

300 Forumthreads zu ähnlichen Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
5
6
4
3
4
1
2
4
3
6
3
15
13
3
5
2
6
11
2
5
5
1
3