Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1356to1360
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
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teilstück übertragen

Teilstück übertragen
14.04.2014 13:50:01
Claudia
Hallo zusammen,
ich habe eine Datei mit ca. 3.000 Zeilen. In ca. 1.500 Zeilen steht in der Zelle in Spalte a ein Begriff aus vielen Einzelbegriffen. Ich würde nun gerne nur den Wert in Spalte B übernehmen, der
mit TZ beginnt und mit dem ersten Leerzeichen aufhört.
14.04.20… 1 TZ12666 Geldzahlung N Peter, Jürgen / KTZ D Ver…
Im Beispiel also : TZ12666
Wer kann mir hier helfen?
Vielen Dank!
LG
Claudia

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teilstück übertragen
14.04.2014 13:55:54
Hajo_Zi
Hallo Claudia,


Tabelle2
 AB
414.04.20… 1 TZ12666 Geldzahlung N Peter, Jürgen / KTZ D Ver…TZ12666

verwendete Formeln
Zelle Formel Bereich N/A
B4=TEIL(A4;FINDEN("TZ";A4);FINDEN(" ";A4;FINDEN("TZ";A4))-FINDEN("TZ";A4))  
Excel-Inn.de
Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 17.04 einschl. 64 Bit



Anzeige
Genial. VIelen lieben Dank! :-)
14.04.2014 14:04:43
Claudia

AW: Teilstück übertragen
14.04.2014 14:09:42
Peter
Hallo Claudia,
das könnte z. B. so funktionieren: 
Option Explicit
Public Sub Separieren()
Dim vTemp   As Variant
Dim iTemp   As Integer
Dim vTrenn  As Variant
Dim iTrenn  As Integer
With ThisWorkbook.Worksheets("Tabelle1") ' Den Tabellenblattnamen ggf. anpassen!
vTemp = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
For iTemp = LBound(vTemp) To UBound(vTemp)
If Len(vTemp(iTemp, 1)) > 0 Then
vTrenn = Split(vTemp(iTemp, 1), " ")
For iTrenn = LBound(vTrenn) To UBound(vTrenn)
If Left(Trim$(vTrenn(iTrenn)), 2) = "TZ" Then
.Range("B" & iTemp).Value = Trim$(vTrenn(iTrenn))
Exit For
End If
Next iTrenn
End If
Next iTemp
End With
End Sub

Gruß Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige