Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Texteil finden und Zeilenweise kop.

Forumthread: Texteil finden und Zeilenweise kop.

Texteil finden und Zeilenweise kop.
31.05.2007 10:39:00
lisa
Hallo
Unter berücksichtigung der Recherche, in der ich zu meinem Anliegen nicht fündig geworden bin, möchte ich mich noch einmal an Euch Spezis wenden.
Mein Problem:
In einer Datei (Tab1) möchte ich alle Zeilen, die ein bestimmten Textteil (HB-SV)enthalten, kopieren und in Tab 2, angefangen in A1, einfügen.
Wer kann mir hierbei helfen?
liebe Grüße Lisa

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Texteil finden und Zeilenweise kop.
31.05.2007 10:59:00
Oberschlumpf
Hi Lisa
In welcher Spalte befinden sich denn die Einträge in Tab1?
Ich vermute mal, in Spalte A - wenn nicht, musst du anpassen.
Versuch es mal so:

Sub TxtTeil()
Dim loZeile As Long, loZeile2 As Integer
loZeile2 = 1
With Sheets("Tab1")
For loZeile = 1 to .Cells(Rows.Count, 1).End(xlUp).Row 'die 1 anpassen, wenn nicht  _
Spalte A
If Instr(1, .Range("A" & loZeile).Vaule, "HB-SV") > 0 Then '"A" anpassen, wenn  _
nicht Spalte A
Sheets("Tab2").Range("A" & loZeile2).Value = .Range("A" & loZeile).Vaule ' _
hinter dem =-Zeichen "A" anpassen, wenn nicht Spalte A
loZeile2 = loZeile2 + 1
End If
Next
End With
End Sub


Wenn die Tabellenblätter NICHT "Tab1" und "Tab2" heißen, musst du die Namen entsprechend anpassen.
Konnte ich helfen?
Ciao
Thorsten

Anzeige
AW: Texteil finden und Zeilenweise kop.
31.05.2007 11:14:00
lisa
Hallo Thorsten
ersteinmal Danke für deine schnelle Hilfe
Ich habe es ausprobiert und bekomme einen Laufzeitfehler in dieser Zeile deines Codes.
If InStr(1, .Range("A" & loZeile).Vaule, "HB-SV") > 0 Then '"A" anpassen, wenn _
nicht Spalte A
Angepasst ist alles aber genau hier bleibt er stehen.
Habe ich noch etwas übersehen? Darf HB-SV nur allein stehen oder wird es auch erkannt wenn es in Verbindung mit einer Zahl steht? (HB-SV7)
Liebe Grüße Lisa

Anzeige
AW: Texteil finden und Zeilenweise kop.
31.05.2007 11:33:22
Oberschlumpf
Hi Lisa
Ersetz die fehlerhafte Zeile durch diese:

If InStr(1, .Range("A" & loZeile).Value, "HB-SV") > 0 Then


Es hatte sich ein Tippfehler eingeschlichen - es heißt Value und nicht Vaule :-)
der Teil "HB-SV" wird immer dann erkannt, wenn er genau in der Form vorkommt - egal, was davor und/oder dahinter steht.
Funktioniert es nun?
Ciao
Thorsten

Anzeige
AW: Texteil finden und Zeilenweise kop.
31.05.2007 12:26:00
lisa
Jo supi
Mit etwas mehr Aufmerksamkeit hätte ich da auch drauf kommen können, aber man verlässt sich immer auf die anderen ;-)
Danke für deine Hilfe, es klappt wunderbar
Liebe Grüße Lisa

Forumthreads zu verwandten Themen

Zeilenhöhe in Abhängigkeit von Textlänge
Textlänge

Guten Tag
Ich habe bei zwei verbundenen Zellen wie folgt formatiert:
- Textausrichtung --> Blocksatz
- Textsteuerung: Zeilenumbruch
Diese verbundenen Zellen (hier B20:C20) sind mit dem Namen "Beurteilung1" benannt. Der Inhalt wird durch eine Formel gesteuert. Als Ergebnis ste...
13.10.2008 16:27:02
Thread-ID: 1016108
6 Beiträge
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:11
Thread-ID: 1018407
3 Beiträge
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:19
Thread-ID: 1018408
3 Beiträge
Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Textdatei importieren in ComboBox mit Zeilenumbruc
Edie

Hallo zusammen,
in eine ComboBox wird eine Textdatei eingelesen. Die Textdatei hat nur eine Spalte.
Leider wird der Inhalt der Textdatei in der ComboBox in eine Zeile dargestellt.
Wie erzwinge ich einen Zeilenumbruch in der ComboBox? Was sollte in den
Eigenschaften der ComboBox...
16.11.2008 17:38:26
Thread-ID: 1024954
5 Beiträge
Anzeige
Zeilensprung in Textbox mit Enter
uli

Hallo Experten,
habe folgenden Code in einem Klassenmodul:
Private Sub clTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then If clTextBox.Tag = 95 Then 'Hier vielleicht Anweisung für Zeilensprung!!!! Exit Sub End If If Is...
20.11.2008 11:26:40
Thread-ID: 1026350
3 Beiträge
Anzeige
Bestimmte Zeilen in Textfile rauslöschen
Seluaner

Guten Abend zusammen !
Mittels dem folgenden Code - Ausschnitt (den hab ich übrigens mal hier im Forum von einem netten Forumanen erhalten)
lese ich grosse Textfiles ein und suche darin nach der Zeile mit dem Tittel "Generierungsprotokoll"
Alles bis und mit dieser Zeile wird gelösc...
19.01.2009 18:33:00
Thread-ID: 1041615
7 Beiträge
Textboxeingabe-Zeilenverweis
Dee

hallo ihr Lieben,
ich möchte eine Suchliste (300 Einträge in den Zeilen B1-B300, darunter auch Leerzeilen!) mit einer Textbox verknüpfen. Dabei habe ich daran gedacht, dass wenn man in der Textbox einen Begriff eingibt, das Tabellenblatt an die gewünschte Position springt, wo sich der Begr...
21.01.2009 13:58:46
Thread-ID: 1042166
13 Beiträge
Zeilenumbruch in einer Textbox
Armin

Hallo,
ich bin auf der Suche nach einer Möglichkeit, um in einer Textbox mehrzeiligen TExt zu erfassen. Dabei sollte jedoch ein die Taste "Enter" eine neue Zeile erzeugen.
Leider springt bei Enter der Focus auf das nächste Steuerelement. Derzeit schaffe ich es nur mit Strg + Enter einen...
28.03.2009 10:26:31
Thread-ID: 1064824
6 Beiträge
Anzeige
Zeilenumbruch in textbox
ing.grohn

Hallo Forum,
welches Zeichen muß ich für den Umbruch in der Textbox abfragen?
Für eine Antwort bedanke ich mich.
Mit freundlichen Grüßen
Albrecht Grohn
15.10.2009 17:53:51
Thread-ID: 1109905
9 Beiträge
Textimport in Excel (Zeilenweise)
Matthias

Hallo,
da ich leider noch keine VBA-Kenntnisse habe wende ich mich an Euch.
Ich habe folgendes Problem:
Aus der Daten https://www.herber.de/bbs/user/69745.txt sollen Zeilenweise die Werte ausgelesen werden, d.h. zu Beginn einmal die Zeile A im Excel Sheet mit den "Überschriften" bef...
26.05.2010 15:37:52
Thread-ID: 1158923
7 Beiträge
Textdatei mit 'Endloswurm' in Zeilen importieren
Jens

Hallo Forengemeinde,
ich kämpfe mit einem Problem, das mir eigentlich simpel erscheint, sich jedoch erschreckend kniffelig zeigt.
Ich möchte per Makro eine Textdatei importieren. Diese enthält eine kilometerlange Zeile mit Daten (falls es nutzt: es handelt sich um Daten nach EDIFACT-Sta...
18.01.2011 13:42:23
Thread-ID: 1196174
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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