Clever-Excel-Forum

[attachment=33332]Hallo und guten Morgen,

gibt es eine Möglichkeit, in der beigefügten Datei durch ein Makro folgendes zu erledigen:

Im Blatt "Umlaufliste" soll das Makro ab A2 bis zum Ende der Liste schauen, ob dort ein Wert in
Klammern steht: 1 (1101) zum Beispiel

Ist dies der Fall, soll der ganze Inhalt dieser Zelle gelöscht und durch den Wert in der Klammer ersetzt werden.

Aus 1 (1101) soll quasi 1101 entstehen.
Aus 1 (1117) soll quasi 1117 entstehen.

Wie könnte man das lösen?

Viele Grüße
Andreas

Hallo,

der Makrorekorder ist dein Freund.

Code:
Sub Makro1()

Columns("A").Replace What:="* (", Replacement:=""

Columns("A").Replace What:=")", Replacement:=""

End Sub

Gruß Werner

Hallo Ari,

teste mal anliegendes Makro:

Option Explicit

Sub Test1()
 Dim iZeile As Long, sArr() As String
 
 For iZeile = 2 To Cells(Rows.Count, "A").End(xlUp).Row
   sArr = Split(Cells(iZeile, "A").Value, "(")
   If UBound(sArr) > 0 Then
    Cells(iZeile, "B").Value = Split(sArr(1), ")")(0)
   End If
 Next iZeile
End Sub


Sub Test2()
'Kommazahlen werden auch aufgeteilt, nur erster Wert
 Dim iZeile As Long, sArr() As String
 
 For iZeile = 2 To Cells(Rows.Count, "A").End(xlUp).Row
   sArr = Split(Cells(iZeile, "A").Value, "(")
   If UBound(sArr) > 0 Then
    Cells(iZeile, "B").Value = Split(Split(sArr(1), ")")(0), ",")(0)
   End If
 Next iZeile
End Sub

viele Grüße aus Freigericht
Karl-Heinz

ari-2001

Werner.M

volti