Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1188to1192
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
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel/Makro

Formel/Makro
Günter
Guten Tag,
Frage:
Habe in Spalte A viele Einträge wie folgt stehen:
Nassau (0 26 04)
Neustadt (Donau) (0 33 2001)
Hüffler (Passau) (0 65 01)
usw.
Stehen bleiben soll nur:
Nassau
Neustadt (Donau)
Hüffler (Passau)
usw.
Gibt es eine Möglichkeit per Formel oder Marko
alles innerhalb der letzten Klammer (incl. Klammer selbst)
zu löschen?
Gruß und Danke
Günter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Formel/Makro
07.12.2010 14:15:41
Klaus
Hi,
Nassau steht in A1.
In B1
=LINKS(A1;FINDEN("(0";A1;1)-2)
und runter kopieren.
Grüße,
Klaus M.vdT.
AW: Formel/Makro
07.12.2010 14:19:28
Günter
Hallo Klaus m.v.dT.,
funktioniert bestens.
Vielen Danke für die Hilfe....
Gruß
Günter
Danke für die Rückmeldung! o.w.T.
08.12.2010 09:21:44
Klaus
.
Danke für die Rückmeldung! o.w.T.
08.12.2010 09:21:48
Klaus
.
oder so
07.12.2010 14:22:55
Bertram
Hallo Günter,
=LINKS(A1;VERWEIS(9^9;FINDEN("(";A1;Zeile(A:A)))-2)
Gruß
Bertram
AW: Formel/Makro
07.12.2010 14:29:36
ransi
Hallo
Pack diesen Code mal in ein Modul:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit


Public Function machs(zelle) As String
    Dim Regex As Object
    Set Regex = CreateObject("VbScript.Regexp")
    With Regex
        .Pattern = " \([0-9 ]+\)$"
        .Global = True
        machs = .Replace(zelle.Text, "")
    End With
End Function


Aufrufen geht dann so:
Tabelle3

 ABC
1Nassau (0 26 04) (1234)Nassau (0 26 04) 
2Neustadt (Donau) (0 33 2001)Neustadt (Donau) 
3Hüffler (Passau) (0 65 01)Hüffler (Passau) 
4usw.usw. 
5   

Formeln der Tabelle
ZelleFormel
B1=machs(A1)
B2=machs(A2)
B3=machs(A3)
B4=machs(A4)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige