Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1060to1064
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
1060to1064
1060to1064
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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.

319 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
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
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Anzeige
Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 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
in geschützten Zellen nicht suchen !
Ernst

Guten Morgen !
was müsste bei diesem Code geändert werden um das Suchen in geschützten Zellen zu unterbinden ?
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim b As Variant, c As Integer, objZelle As Range b = TextBox1.Value c = Len(b) x...
11.09.2008 06:59:00
Thread-ID: 1008961
5 Beiträge
Text in anderer Datei suchen, kopiertes rechts ein
Rudolf

Hallo an alle, bin neu hier und benötige Hilfe.
Wie kann ich in Spalte A einen Text z.B. K1 (Kommt immer nur 1x vor) suchen.
Das aus anderer Datei kopierte dann rechts in Sp. C gleiche Zeile einfügen,
so das Range("C45").Select wegfallen kann.
Ich hätte dann die Möglichkeit bel...
12.09.2008 15:29:00
Thread-ID: 1009393
15 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
2
4
8
5
3
2
9
3
4
14
11
4
5
1
7
3
2
1
10
6
4
6
6
4
2