Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Text durchsuchen und Teile herauskopieren

Text durchsuchen und Teile herauskopieren
17.03.2009 20:40:05
Andy
Schönen guten Abend!
Ich habe folgendes "Problem":
Im Feld A1 steht ein längerer Text, welcher nach mehreren bestimmten Ausdrücken(zB. "1]","2]","3]","4]") durchsucht werden soll. Immer wenn einer dieser Ausdrücke gefunden wird, soll der gefundene Ausdruck in das jeweils nächste leere Feld im Bereich B1:Z1 eingetragen werden. Wichtig ist dabei,dass die Ausdrücke entsprechend ihrer Reihenfolge im Text, in die Zellen B1 bis Z1 eingetragen werden.
Diese "Funktion" sollte jeweils bei einer Veränderung der Zelle A1 ausgeführt werden bzw. irgendwie ständig aktiv sein.
Wäre nett wenn jemand da weiterhelfen könnte.
Gruss,
Andy

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

Betreff
Datum
Anwender
Anzeige
AW: Text durchsuchen und Teile herauskopieren
17.03.2009 21:26:30
Peter
Hallo Andy,
eine Möglichkeit - das Makro gehört ins Klassenmodul des Tabellenblattes
Rechtsklick auf den Tabellenblattreiter
Linksklick auf Code anzeigen
das Makro in das große rechte Fenster kopieren
mit Schließen-Kreuz abschließen
testen.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vSuchwert  As Variant
Dim iIndex     As Integer
Dim iSpalte    As Integer
Dim bGefunden  As Boolean
vSuchwert = Array("[1", "[2", "[3", "[4")
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" Then
For iIndex = LBound(vSuchwert) To UBound(vSuchwert)
If InStr(Target.Value, vSuchwert(iIndex)) > 0 Then
For iSpalte = 2 To 26
If Trim(Cells(1, iSpalte).Value) = "" Then
bGefunden = True
Exit For
End If
Next iSpalte
If bGefunden = True Then
Cells(1, iSpalte).Value = vSuchwert(iIndex)
Else
MsgBox "Es sind alle Zellen ""B1:Z1"" belegt.", _
16, "   Hinweis für " & Application.UserName
End If
End If
Next iIndex
End If
End Sub


Gruß Peter

Anzeige
AW: Text durchsuchen und Teile herauskopieren
18.03.2009 10:50:56
Andy
Danke schon mal für die Hilfe!!!
Leider funktioniert es noch nicht ganz so wie ich es benötige. Ich werde noch einmal einen neuen Thread starten.

333 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige