Info aus Zellen extrahieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sorry für das Durcheinander in Textform, ich dachte die Bsp.-Datei wäre eindeutig...
Wer mir doch noch helfen möchte, hier noch mal der Versuch, die Aufgabe klar zu formulieren (bin auch nur n Mensch) und die Bsp.-Datei:
https://www.herber.de/bbs/user/108008.xls
Ausgangssituation:
- in Spalte A steht jeweils ein Titel (unterschiedlich lang), dann kommen unterschiedlich viele Leerzeichen, danach eine Zahl und zum Schluss noch ein Buchstaben-Code in Klammern; manchmal fehlen die Zahl und/oder der geklammerte Buchstabencode;
- in Spalte B stehen Namen (unterschiedlich lang) und dann kommt manchmal eine Klammer, in der steht dann eine Zahl mit Punkt und Text
IST:
Spalte A
- Heute ist es schön 4 (Uhr)
- Morgen um 9 wird es schön 7 (Abend)
- Gestern war es schön
Spalte B
- Montag (1. Tag)
- So lala (12. Monat im Jahr)
- Ach so was
Nun soll folgendes erreicht werden:
- in Spalte A soll alles vor der Zahl, die direkt vor der Klammer steht, stehen bleiben
- in Spalte B soll alles vor der Klammer stehen bleiben und die letzte Zahl direkt vor der Klammer soll gelöscht werden
- in Spalte C soll nur der Text aus der Klammer der Spalte B stehen
- in Spalte D soll nur die Zahl aus der Klammer der Spalte B stehen und zwar im Format 01, 02, 10, 12, etc.
- in Spalte E soll nur der Buchstaben-Code aus der Klammer der Spalte A stehen
- in Spalte F soll nur die Zahl vor der Klammer der Spalte A stehen
Dabei soll das jeweilige Format (Textfarbe) aus Spalte A auf die anderen Spalten übertragen werden. Pro Zelle gibt es nur einen geklammerten Eintrag.
SOLL:
Spalte A
- Heute ist es schön
- Morgen um 9 wird es schön
- Gestern war es schön
Spalte B
- Montag
- So lala
- Ach so was
Spalte C
- Tag
- Monat im Jahr
- (leer)
Spalte D
- 01
- 12
- (leer)
Spalte E
- Uhr
- Abend
- (leer)
Spalte F
- 4
- 7
- (leer)
Wenn es auch ohne Makro klappt, wäre ich für eine Lösung dankbar.
Danke für jeden Lösungsansatz im Voraus,
Eleni

Ich halte mich an die Beschreibung die im Beitrag steht und leite nicht die Aufgabe aus der Tabelle ab.
Ich hatte jetzt schon paar mal geschrieben das die Aufgabe korrekt beschrieben werden soll.
Das hältst Du nicht für notwendig das liegt bestimmt daran das Du die Lösung selber an Deine Bedingungen anpassen willst.
Viel Erfolg.
Ich hatte nun schon zu viel Zeit in den Ansatz investiert. Darum noch eine Lösung.
Weitere Beiträge kommen nicht mehrt aus o.g. Gründen.

Option Explicit
Sub Trennen()
' - in Spalte A soll alles vor der Zahl, die direkt vor der Klammer steht, stehen bleiben
' - in Spalte B soll alles vor der Klammer stehen bleiben und die letzte Zahl direkt vor der  _
Klammer soll gelöscht werden
' - in Spalte C soll nur der Text aus der Klammer der Spalte B stehen
' - in Spalte D soll nur die Zahl aus der Klammer der Spalte B stehen und zwar im Format 01, 02, _
10, 12, etc.   erledigt
' - in Spalte E soll nur der Buchstaben-Code aus der Klammer der Spalte A stehen    erledigt
' - in Spalte F soll nur die Zahl vor der Klammer der Spalte A stehen   erledigt
Dim Loletzte As Long
Dim LoI As Long
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For LoI = 2 To 4 'Loletzte
' Spalte F
If InStr(Cells(LoI, 1), "(") > 0 Then
Cells(LoI, 6) = Val(Mid(Cells(LoI, 1), InStr(Cells(LoI, 1), "(") - 5))
End If
' Spalte E
If InStr(Cells(LoI, 1), "(") > 0 Then
Cells(LoI, 5) = Left(Mid(Cells(LoI, 1), InStr(Cells(LoI, 1), "(") + 1), _
Len(Mid(Cells(LoI, 1), InStr(Cells(LoI, 1), "(") + 1)) - 1)
End If
' Spalte D
If InStr(Cells(LoI, 2), "(") > 0 Then
Cells(LoI, 4) = Format(Application.Substitute(Left(Mid(Cells(LoI, 2), InStr(Cells( _
LoI, 2), "(") + 1), _
InStr(Mid(Cells(LoI, 2), InStr(Cells(LoI, 2), "(") + 1), " ") - 1), ".", ""), " _
00")
End If
' Spalte c
If InStr(Cells(LoI, 2), "(") > 0 Then
Cells(LoI, 3) = Left(Mid(Mid(Cells(LoI, 2), InStr(Cells(LoI, 2), "(") + 1), _
InStr(Mid(Cells(LoI, 2), InStr(Cells(LoI, 2), "(") + 1), " ") + 1), _
Len(Mid(Mid(Cells(LoI, 2), InStr(Cells(LoI, 2), "(") + 1), _
InStr(Mid(Cells(LoI, 2), InStr(Cells(LoI, 2), "(") + 1), " ") + 1)) - 1)
End If
' Spalte B
If InStr(Cells(LoI, 2), "(") > 0 Then
Cells(LoI, 2) = Left(Cells(LoI, 2), InStr(Cells(LoI, 2), "(") - 1)
End If
' Spalte A
If InStr(Cells(LoI, 1), "(") > 0 And Cells(LoI, 6)  "" Then
Cells(LoI, 1) = Left(Cells(LoI, 1), InStr(Cells(LoI, 1), Cells(LoI, 6)) - 1)
End If
Next LoI
End Sub

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Info aus Zellen extrahieren

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread