Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1672to1676
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
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt nach String und Zeilenumbruch ausgeben

Inhalt nach String und Zeilenumbruch ausgeben
06.02.2019 16:14:02
Schorsch
Hallo zusammen, leider komme ich bei meinem Problem nicht weiter, da es an zu vielen Stellen an mangelnden Kenntnissen fehlt.
Ich möchte mittels VBA jede Zelle einer bestimmten Spalte durchsuchen und einen bestimmten Inhalt in eine andere Zelle kopieren.
In den Zellen selbst suche ich nach einem bestimmten String. Sagen wir "Blumenkohl". Der Inhalt der Zellen ist immer ein kurzer String, dann ein Zeilenumbruch, dann wieder ein String, dann wieder ein Zeilenumbruch und ff. Ich möchte die Zeile Nach dem "Blumenkohl" und dem folgendem Zeilenumbruch kopieren.
Beispiel EINER Zelle:
hier steht ein Text (Zeilenumbruch)
und hier (Zeilenumbruch)
Blumenkohl (Zeilenumbruch)
diese Zeile möchte ich kopieren (Zeilenumbruch)
dann folgt wieder ein Text (Zeilenumbruch)
Ich möchte den String mit dem Inhalt "diese Zeile möchte ich kopieren" kopieren, da dieser dem Wort Blumenkohl und und einem Zeilenumbruch folgt. Kopiert werden soll bis zum folgenden Zeilenumbruch.
Hoffe ich habe mich einigermaßen verständlich ausgedrückt. Wie gesagt bekomme ich es aufgrund der zu vielen Problemstellungen nicht hin.
Für eure Hilfe jetzt schon besten Dank!
Schorch

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt nach String und Zeilenumbruch ausgeben
06.02.2019 16:31:08
UweD
Hallo
so?

Tabelle1
 ABC
2   
3hier steht ein Text
und hier
Blumenkohl
diese Zeile möchte ich kopieren
dann folgt wieder ein Text
 diese Zeile möchte ich kopieren
4   

verwendete Formeln
Zelle Formel Bereich N/A
C3=TEIL(A3;FINDEN("|";WECHSELN(A3;ZEICHEN(10);"|";3))+1;FINDEN("|";WECHSELN(A3;ZEICHEN(10);"|";4))-FINDEN("|";WECHSELN(A3;ZEICHEN(10);"|";3)))  
http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://Hajo-Excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 25.14 einschl. 64 Bit


LG UweD
Anzeige
AW: Inhalt nach String und Zeilenumbruch ausgeben
07.02.2019 10:13:30
Schorsch
Hallo UweD, DANKE! für die Antwort. Das mit der Formel (die ich nicht zu 100% verstehe) wird nicht klappen, da wie es mir scheint, du die Zeile nach dem dritten Zeilenumbruch ausgibst. Für mein Problem ist es wichtig nach dem String "Blumenkohl" zu suchen und die Zeile darunter (ein Zeilenumbruch nach Blumenkohl) auszugeben. Hierbei kann Blumenkohl irgendwo in der Zelle Auftauchen. Wichtig für mich ist immer die Zeile unterhalb des Blumenkohls.
Nur für mein Verständnis. Angenommen deine Formel wäre genau die die ich gesucht hätte. Hätte ich diese dann auch als Code im Makro verwenden können?
Beste Grüße
Anzeige
AW: Inhalt nach String und Zeilenumbruch ausgeben
07.02.2019 11:43:13
UweD
Hallo
dann hier per VBA
Sub Blumenkohl()
    Dim TB, Z1 As Integer, SP As Integer, SZ As Integer, LR As Long, Zeile As Long
    Dim Suchen As String, TText As String, Ab As Integer
    
    Set TB = Sheets("Tabelle1")
    Z1 = 1 'Ab Zele... 
    SP = 1 'Daten in Spalte A 
    SZ = 2 'Zielspalte B 
    Suchen = "Blumenkohl"
    
    With TB
        LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 

        For Zeile = Z1 To LR
            If .Cells(Zeile, SP) <> "" Then
                Ab = InStr(.Cells(Zeile, SP), Suchen)
                If Ab > 0 Then
                    TText = Mid(.Cells(Zeile, SP), Ab + Len(Suchen) + 1)
                    Ab = InStr(TText, Chr(10)) 'suchen erstes Enter 
                    If Ab > 0 Then
                        .Cells(Zeile, SZ) = Left(TText, Ab - 1)
                    End If
                End If
            End If
        Next
    End With
End Sub

LG UweD
Anzeige
AW: Inhalt nach String und Zeilenumbruch ausgeben
08.02.2019 13:12:46
Schorsch
Hallo UweD, habe den Code an meine Bedürfnisse angepasst und es FUNKTIONIERT! Da hätte ich selbst drauf kommen können....... nicht.
BESTEN DANK!!!
Danke für die Rückmeldung owT
08.02.2019 14:05:12
UweD

309 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Mittelwertberechn. mit var. Spaltenlänge
Falk

Hallo,
Zur Situation
in einer Excelspalte (z.B. A) füge ich - aus einem anderen Programm - kopierte Zahlen ein. Excel schreibt die, in Spalte A, eingefügten Zahlen untereinander. In der Spalte B berechne ich dann den Mittelwert wie folgt: =SUMME(A2:A1872)/1871
Mein Problem
Weil...
15.09.2008 11:21:00
Thread-ID: 1009725
5 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Spalte mit x = Wert möglich ?
Petra

Hallo
Ich möchte gerne wenn in Spalte B3 ein x eingetragen wird, das dann in Spalte B3 der Wert aus Spalte B1 eingetragen wird.
Ich weiß das es per Formel =Wenn(B3="x";B1;0) geht, aber dann müßten wir hier Behelfsspalten einbauen was nicht gewünscht wird.
Habe es per Bedingter Forma...
23.09.2008 15:34:17
Thread-ID: 1011775
21 Beiträge
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 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
8
5
4
2
4
4
2
5
20
7
3
10
3
1
4
6
6
12
11
2
3
6
4
5
4