Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
516to520
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
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

texte suchen und in Spalten kopieren

texte suchen und in Spalten kopieren
18.11.2004 11:40:06
zaske
Hallo liebe Leute,
Ich habe eine Tabelle bekommen die wie folgt strukturiert ist:
z.B.
Dokument 1 von 10
Signatur: USA 543/1
Titel: (2001)
Band: 5
Diese Informationen liegen ca. 50.000 mal untereinander in Spalte A vor(auf 3 Tabellen).
Die ersten 3 Angaben sind immer vorhanden, die 4te nicht immer.
Nun zu meiner Frage:
Ich möchte die 4 Infos in 4 Spalten per Makro sortieren.
Spalte A sollte dann laut Beispiel "1 von 19",
Spalte B "USA 543/1"
Spalte C "(2001)"
und Spalte D "5" enthalten. Die Spalten werden durch die Begriffe links definiert. Die Quell.- und Zielzeilen bekomme ich selbst hin. Ich weiß nur nicht, wie ich nach den Begriffen suchen soll und wie ich dann nur den rechten Teil der Zelle kopiere.
Puh, das war ein langer Text.
Bin für jede Anregung und Hilfe dankbar.
Gruß
Frank Zaske

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: texte suchen und in Spalten kopieren
18.11.2004 14:56:06
chris
Hi Frank,
ich hätte ne idee anzubieten. es gibt ne anweisung die heißt
"intr(*Start*,*String1*,*String2*,vbtextcompare)" Damit kannst du einen String in einem anderen String suchen, es wird dir dann die Position angegeben
- in deinem Beispiel würden "instr(1,Zellwert,"Signatur: ",vbtextcompare)" die position liefern an der die Signatur steht, dann müsstest du das gleiche für den nächsten wert machen, alse "Titel: ", dann nimmst du die Anweisung: "mid(Zellwert,*Start*,*Länge") und hast die Info
Zellwert ist der gesamte Text
Start = die Startposition der gesuchten Info (also Position von "Signatur: " + Länge "Signatur: " (10)
Länge ist die Differenz aus der (Position von "Titel: ") minus (Startposition von "Signatur: " + Länge "Signatur: " - also 10); Länge
die Länge von strings bekommst du über len(string)
= Hört sich komplizierter an als es ist - hoffe ich mal :o)
Gruss
Chris
Anzeige
AW: texte suchen und in Spalten kopieren
18.11.2004 14:59:28
PeterW
Hallo Frank,
wenn die Einträge lückenlos untereinander stehen könnte das so gehen:

Sub ListeErstellen()
Dim lgZiel As Long
Dim lgStart As Long
lgZiel = 1
lgStart = 1
Do
Cells(lgZiel, 2) = Right(Cells(lgStart, 1), Len(Cells(lgStart, 1)) - 9)
Cells(lgZiel, 3) = Right(Cells(lgStart + 1, 1), Len(Cells(lgStart + 1, 1)) - 9)
Cells(lgZiel, 4) = Right(Cells(lgStart + 2, 1), Len(Cells(lgStart + 2, 1)) - 7)
If Left(Cells(lgStart + 3, 1), 4) = "Band" Then
Cells(lgZiel, 5) = Right(Cells(lgStart + 3, 1), Len(Cells(lgStart + 3, 1)) - 6)
lgStart = lgStart + 4
Else
lgStart = lgStart + 3
End If
lgZiel = lgZiel + 1
Loop Until IsEmpty(Cells(lgStart, 1))
End Sub

Gruß
Peter
Anzeige
AW: texte suchen und in Spalten kopieren
18.11.2004 15:26:40
zaske
Dank an euch beide.
Frage an Peter:
Dein Makro funzt super.
Ich habe festgestellt, daß der Titel manchmal über mehrere Zeilen geht.
Titel: blabklalkjh
jhgjhgjhg
hghgkhkgf
Hast du eine Idee, wie ich das berücksichtigen könnte?
Dein Makro hält sich ja an eine feste Zeilenfolge.
Gruß
Frank Zaske
AW: texte suchen und in Spalten kopieren
18.11.2004 15:40:59
PeterW
Hallo Frank,
mit mehrere Zeilen meinst du mehrere Zellen? Das lässt sich über eine weitere Schleife und einen darin enthaltenen Zähler realisieren. Gibt es nur diese Besonderheit oder müssen noch andere Ausnahmen berücksichtigt werden?
Gruß
Peter
Anzeige
AW: texte suchen und in Spalten kopieren
18.11.2004 16:09:53
zaske
Hallo Peter,
Die Angaben stammen ursprünglich aus einer Textdatei.
Wenn der Titel zu lang war (selten,aber kommt vor), wurde in der nächsten zeile weitergeschrieben.
Können ca. 2-5 zellen sein.
Diese Zellen (ist ja alles in Spalte A) sollen zu einem String zusammengefasst werden.
Titel: Hallo
Du
Soll Heißen "Hallo Du"
Alle anderen Infos sind Einzeilig.
Vielen Dank für Deine Mühe.
Gruß
Frank
AW: texte suchen und in Spalten kopieren
18.11.2004 16:16:26
PeterW
Hallo Frank,
dann probier es mal so:

Sub ListeErstellen()
Dim lgZiel As Long
Dim lgStart As Long
Dim strTitel As String
Dim intTitel As Integer
lgZiel = 1
lgStart = 1
Do
Cells(lgZiel, 2) = Right(Cells(lgStart, 1), Len(Cells(lgStart, 1)) - 9)
Cells(lgZiel, 3) = Right(Cells(lgStart + 1, 1), Len(Cells(lgStart + 1, 1)) - 9)
strTitel = ""
intTitel = 1
strTitel = Right(Cells(lgStart + 2, 1), Len(Cells(lgStart + 2, 1)) - 7)
If Left(Cells(lgStart + 2 + intTitel, 1), 6) <> "Band: " And Left(Cells(lgStart + 2 + intTitel, 1), 9) <> "Dokument " Then
Do
intTitel = intTitel + 1
strTitel = strTitel & " " & Cells(lgStart + 1 + intTitel, 1)
Loop Until Left(Cells(lgStart + 2 + intTitel, 1), 6) = "Band: " _
Or Left(Cells(lgStart + 2 + intTitel, 1), 9) = "Dokument " _
Or IsEmpty(Cells(lgStart + 2 + intTitel, 1))
Cells(lgZiel, 4) = strTitel
Else
Cells(lgZiel, 4) = strTitel
End If
If Left(Cells(lgStart + 2 + intTitel, 1), 4) = "Band" Then
Cells(lgZiel, 5) = Right(Cells(lgStart + 2 + intTitel, 1), Len(Cells(lgStart + 2 + intTitel, 1)) - 6)
lgStart = lgStart + intTitel + 3
Else
lgStart = lgStart + intTitel + 2
End If
lgZiel = lgZiel + 1
Loop Until IsEmpty(Cells(lgStart, 1))
End Sub

Gruß
Peter
Anzeige
Super
18.11.2004 16:44:57
zaske
Hallo Peter,
Sensationell!
Vielen Dank für Deine Ausdauer.
Auch an alle anderen.
Die Hilfsbereitschaft in diesem Forum ist einfach unglaublich.
Gruß
Frank Zaske
Korrektur fürs Archiv
18.11.2004 17:33:28
PeterW
Der Else-Teil in der ersten If-Bedingung ist natürlich überflüssig, wie ein Kropf:

Sub ListeErstellen()
Dim lgZiel As Long
Dim lgStart As Long
Dim strTitel As String
Dim intTitel As Integer
lgZiel = 1
lgStart = 1
Do
Cells(lgZiel, 2) = Right(Cells(lgStart, 1), Len(Cells(lgStart, 1)) - 9)
Cells(lgZiel, 3) = Right(Cells(lgStart + 1, 1), Len(Cells(lgStart + 1, 1)) - 9)
strTitel = ""
intTitel = 1
strTitel = Right(Cells(lgStart + 2, 1), Len(Cells(lgStart + 2, 1)) - 7)
If Left(Cells(lgStart + 2 + intTitel, 1), 6) <> "Band: " And Left(Cells(lgStart + 2 + intTitel, 1), 9) <> "Dokument " Then
Do
intTitel = intTitel + 1
strTitel = strTitel & " " & Cells(lgStart + 1 + intTitel, 1)
Loop Until Left(Cells(lgStart + 2 + intTitel, 1), 6) = "Band: " _
Or Left(Cells(lgStart + 2 + intTitel, 1), 9) = "Dokument " _
Or IsEmpty(Cells(lgStart + 2 + intTitel, 1))
End If
Cells(lgZiel, 4) = strTitel
If Left(Cells(lgStart + 2 + intTitel, 1), 4) = "Band" Then
Cells(lgZiel, 5) = Right(Cells(lgStart + 2 + intTitel, 1), Len(Cells(lgStart + 2 + intTitel, 1)) - 6)
lgStart = lgStart + intTitel + 3
Else
lgStart = lgStart + intTitel + 2
End If
lgZiel = lgZiel + 1
Loop Until IsEmpty(Cells(lgStart, 1))
End Sub

Anzeige

333 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Anzeige
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge

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
3
10
3
3
2
2
2
2
6
3
2
2
2
2
4
4
8
4
5
4
2
5
3
4