Office: (Office 2007) Text suchen und Zeile ausgeben!

tkirsten · 9. August 2008

Hallo zusammen!

Da ich mir ein größeres Excel Projekt "angelacht" habe ohne großartige Vorkenntnisse zu haben, werde ich mich wohl öfter hier ans Forum wenden müssen. Ich habe hier schon einige Male als unregistrierter Nutzer mitgelesen und war stets erstaunt über die schnellen und ordentlichen Antworten.

Aber nun zu meinem ersten problem:

Ich lade eine Textdatei in ein Tabellenblatt und möchte von einem anderen Blatt aus diverse Daten auslesen. Nun befinden sich die Daten nicht immer an derselben Stelle. Es gibt aber ein Wort in der ersten Spalte, welches immer auf den Anfang der eigentlichen Wertereihe hinweist (ab dort ist das Dokument dann immer einheitlich).

Wie gehe ich nun am besten vor um meine Daten von dort aus auszulesen bzw. zunächst dieses Wort zu suchen ...

Vielen Dank schonmal für Eure Mühe

Grüße
Timo

:)

chris-kaiser · 11. August 2008

hiho

mit find

Code:

Dim obGef As Object
With Worksheets("DeinBlattname").Columns(1) 'anpassen
Set obGef = .Find("dein_Suchbegriff", LookIn:=xlValues) 'suchbegriff anpassen
If Not obGef Is Nothing Then
MsgBox " gefunden in Zeile:" & obGef.Row
MsgBox " gefunden in Zelle:" & obGef.Address
End If
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

tkirsten · 11. August 2008

das wäre dann ein Makro, richtig?

Gibts keine einfachere Lösung? Traue mich noch nicht so richtig an Makros ran. Wüsste nichtmal wie ich eins erstelle, bislang!

Grüße
Timo

jinx · 11. August 2008

Moin, Timo,

Spalte A markieren, STRG+F, Suchbegriff eingeben, Optionen ggf. ausfüllen, Suchen...

tkirsten · 12. August 2008

Alles klar, habs nun mit dem Makro versucht (bin doch gerade dabei mich damit einzuarbeiten, denn auf Dauer sind Makros bei diesem Projekt unvermeidlich) ...

hat auch soweit geklappt ... nun wäre es prima, wenn das Makro so erweitert wird, dass es ein neues Tabellenblatt erstellt und den gesamten Inhalt des Blattes ab der Zeile in der dieses Wort steht in ein neues kopiert. Wie kann ich sowas realisieren?

Code:

Sub ZeileSuchen()

Dim obGef As Object
With Worksheets("picture_00").Columns(1) 'anpassen
Set obGef = .Find("OECF", LookIn:=xlValues) 'suchbegriff anpassen
If Not obGef Is Nothing Then
MsgBox " gefunden in Zeile:" & obGef.Row
MsgBox " gefunden in Zelle:" & obGef.Address
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke schonmal und Grüße
Timo

chris-kaiser · 12. August 2008

hiho

hier ein Versuch
*Smilie
Code:

Sub ZeileSuchen()
Dim obGef As Range
With Worksheets("picture_00").Columns(1) 'anpassen
Set obGef = .Find("OECF", LookIn:=xlValues) 'suchbegriff anpassen
If Not obGef Is Nothing Then
Sheets.Add after:=Sheets(Sheets.Count)
On Error GoTo ErrH
ActiveSheet.Name = "OECF"
With Worksheets("picture_00")
.Range(.Range(obGef.Address), .Cells.SpecialCells(xlCellTypeLastCell)).Copy _
ActiveSheet.[a1]
End With
End If
End With
Exit Sub
ErrH:
Application.DisplayAlerts = False
ActiveSheet.Delete
MsgBox "Blatt mit dem Namen OECF gibt es bereits"
Application.DisplayAlerts = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

tkirsten · 12. August 2008

Wow, vielen Dank!

Das klappt prima. Bin noch paar Sachen am anpassen, aber das hilft mir schon ungemein!!!!

IngGi · 12. August 2008

Hallo Timo,

folgendes Makro erstellt ein neues Tabellenblatt als letztes Tabellenblatt der Datei und kopiert den gefundenen Bereich dorthin, ab Zelle A1:

Code:

Office: (Office 2007) Text suchen und Zeile ausgeben!

Text suchen und Zeile ausgeben!

Text suchen und Zeile ausgeben!

Text suchen und Zeile ausgeben!

Text suchen und Zeile ausgeben!

Text suchen und Zeile ausgeben! - Similar Threads - Text Zeile ausgeben

Per VBA Zeilen einfügen und danach in diese Texte kopieren

nach Absturz + Neustart in Excel Textzeilen verschwunden

Probleme mit Makro das jede Zeile in der ein "Text" steht löscht?!

Letzten Wert(Text!) einer Zeile ausgeben

Tabelle mit Kostenstellen soll in einer Zeile die entsprechende Niederlassung als Text ausgeben

Suchen und Ausgeben einer Zeile wenn Text enthalten

Anzahl von Zeichen aus Spalte herausfiltern und als text in neue Zeile ausgeben