Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
976to980
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
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in Klammern kopieren

Text in Klammern kopieren
20.05.2008 16:49:34
Mirko
Hallo,
Ich suche für folgendes Problem nach einer Makro-Lösung:
Ich möchte den Text, der in der LETZTEN Klammer einer Zelle steht, in eine neue Spalte kopieren. Da in manchen Zellen mehrere Klammern vorkommen, ist es wichtig das nur der Inhalt der letzten Klammer kopiert wird (wenn möglich ohne die Klammerzeichen). Kann mir da jemand weiterhelfen?
Vielen Dank!
Mirko

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Klammern kopieren
20.05.2008 17:04:12
Gerd
Hallo Mirko,
( ) diese Klammern? Steht die letzte schließende Klammer immer am Schluss der Zeichenfolge?
Gruß Gerd

AW: Text in Klammern kopieren
20.05.2008 17:08:17
Mirko
Hallo Gerd!
zweimal ja! es geht um diese "()" Klammern und die letzte schließende Klammer steht immer am Schluß der Zelle . Hast Du einen Vorschlag?
Mirkro

AW: Text in Klammern kopieren
20.05.2008 17:58:09
Stempfle
noch eine Variante

Private Sub CommandButton1_Click()
On Error GoTo letzteZeile
Dim ZellWert As String
Dim Länge As Integer
Dim Anfang As Integer
Dim Ende As Integer
Dim LKlammerwert As String
Dim ZF1 As String
Dim ZF2 As String
Sheets("Tabelle1").Activate
Range("A1").Select
Do Until ActiveCell.Value = ""
ZellWert = ActiveCell.Value
Länge = Len(ZellWert)
For a = 1 To Länge
If Mid(ZellWert, a, 1) = "(" Then Anfang = a
If Mid(ZellWert, a, 1) = ")" Then Ende = a
Next a
ZF1 = Right(ZellWert, Länge - Anfang)
ZF2 = Left(ZF1, Ende - 1 - Anfang)
MsgBox ZF2
ActiveCell.Offset(1, 0).Select
Loop
letzteZeile:
End Sub


Anzeige
AW: Text in Klammern kopieren
20.05.2008 17:09:00
Daniel
Hallo
mal ne kleine Rückfrage, was ist für dich in diesem Beispiel die letze Klammer
a(bcd)efghijklmnopq(rstu(vw)xy)z
vw oder rstu(vw)xy
Gruß, Daniel

AW: Text in Klammern kopieren
20.05.2008 17:18:00
Mirko
Hi Daniel!
sorry, für die undeutliche Ausdrucksweise. Aus der folgenden Darstellung sollte klar werden, was ich möchte:
Nachname, Vorname (Text)
Nachname, Vorname (Zweitname) (Text)
Nachname (Doppelname), Vorname (Text)
So ist das etwa aufgebaut. Der zu kopierende "Text" steht immer in der letzten Klammer der Zelle. Besser?
Noch eine kurze Anmerkung: mit dem kopieren habe ich mich auch etwas falsch ausgedrückt. Der Text soll zwar kopiert werden, danach aber auch aus der Original-Zelle gelöscht werden (inklusive der Klammerzeichen).
Liebe Grüße
Mirko

Anzeige
AW: Text in Klammern kopieren
20.05.2008 17:37:09
Daniel
Hi
ok es kommen also keine geschachtelten Klammern vor.
den Text in der Formel kannst ja mit der Funktion von FCS ermitteln.
wenn jetzt der beispielsweise Text in in Zelle A1 steht dessen inhalt der letzten Klammern nach B1 geschrieben werden soll, dann würde der Code dazu so aussehen:

Range("B1").value = fncTextausKlammer(Range("A1").value)


der Code zum Löschen des Klammertextest aus A1 würde dann so aussehen:


Range("A1").value = Replace(Range("A1").value, "(" &  fncTextausKlammer(Range("A1").value) & ")", "")


der Code von FCS muss natürlich auch noch ins Modul rein, hier nochmal sein korrigierter Code (war ein Tippfehler drin)


Function fncTextausKlammer(strText As String) As String
If InStr(1, strText, ")") > 0 And InStr(1, strText, "(") > 0 Then
fncTextausKlammer = Mid(strText, InStrRev(strText, "(", -1) + 1, _
InStrRev(strText, ")", -1) - InStrRev(strText, "(", -1) - 1)
End If
End Function
Sub test()
Range("B1").Value = fncTextausKlammer(Range("A1").Value)
Range("A1").Value = Replace(Range("A1").Value, "(" & fncTextausKlammer(Range("A1").Value) & ")", _
_
"")
End Sub


Gruß, Daniel

Anzeige
AW: Text in Klammern kopieren
20.05.2008 17:51:00
Mirko
Hi Daniel,
vielen Dank für die Antwort. Bitte sei mir nicht böse, dass ich mich etwas blöd anstelle. Habe jetzt den folgenden Code in ein Modul kopiert:

Function fncTextausKlammer(strText As String) As String
If InStr(1, strText, ")") > 0 And InStr(1, strText, "(") > 0 Then
fncTextausKlammer = Mid(strText, InStrRev(strText, "(", -1) + 1, _
InStrRev(strText, ")", -1) - InStrRev(strText, "(", -1) - 1)
End If
End Function




Sub test()
Range("B1").Value = fncTextausKlammer(Range("A1").Value)
Range("A1").Value = Replace(Range("A1").Value, "(" & fncTextausKlammer(Range("A1").Value) & ")", _
_
_
"")
End Sub


Hoffe das war soweit richtig. Und was mach ich nun? wenn ich z.B. in Zelle B2 "=TextausKlammer" eingebe, bekomme ich nur "?#Name".

Anzeige
AW: Text in Klammern kopieren
20.05.2008 17:57:19
Daniel
Hi
du musst immer den Funkionsnamen verwenden, der hinter FUNCTION steht, in diesem Fall also fncTextausKlammer
btw. wenn du den Text einfach so kopiert hast dann musst du wahrscheinlich noch die Zeilenumbrüche bereinigen, die der Editor hier reingebastelt hat (rote Zeilen im VBA-Editior) dazu den Unterstrich, den Zeilenumbruch und die Leerzeichen löschen.
Gruß, Daniel

AW: Text in Klammern kopieren
20.05.2008 17:57:55
Mirko
Hat sich erledigt. Ich hab's jetzt doch hinbekommen. Vielen Dank für die Hilfe!

AW: Text in Klammern kopieren
20.05.2008 17:11:49
fcs
Hallo Mirko
hier eine benutzerdefierte Funktion. Die Function kopierst du in im VBA-Editor in ein allgemeines Modul deiner Datei. Die Function verwendest du dann wie eine normale Formel.
=TextausletzterKlammer(F1)
Ich wüßte nicht, dass es die Suche von Rechts auch als Tabellenfunktion gibt.
Gruß
Franz 

Function fncTextausKlammer(strText As String) As String
If InStr(1, strText, ")") > 0 And InStr(1, strText, "(") > 0 Then
TextausletzterKlammer = Mid(strText, InStrRev(strText, "(", -1) + 1, _
InStrRev(strText, ")", -1) - InStrRev(strText, "(", -1) - 1)
End If
End Function


Anzeige
AW: Text in Klammern kopieren
20.05.2008 17:35:12
Mirko
Hallo Franz,
vielen Dank für die schnelle Antwort. Leider bin ich nicht so beschlagen in Excel. Habe Deinen Code jetzt in ein allgemeines Modul kopiert. Wenn ich jetzt "=TextausletzterKlammer(F1)" in eine benachbarte Zelle eingebe, kommt bei mir der Eintrag "#Name?". Was mache ich falsch? Sorry für meine Unwissenheit und
danke für Deine/ Eure Geduld.
Mirko

AW: Text in Klammern kopieren
20.05.2008 17:51:34
fcs
Hallo Mirko,
ich hatt noch den Namen der Funktion ganz zum Schluss noch geändert, die Formel muss jetz
=fncTextausKlammer(A1)
heißen, wenn der Text mit Klammern in A1 steht.
Hier noch die Makro - Lösung, die Werte der Konstanten für die Spalten muss du ggf. noch anpassen.
Gruß
Franz 

Sub TextKlammern()
Dim wks As Worksheet, lngZeile As Long, strKlammerText As String
Const lngSpalteOrig = 1 'Spalte A
Const lngSpalteKlammer = 2 ' Spalte B
Set wks = ActiveSheet
With wks
For lngZeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
strKlammerText = TextausletzterKlammer(.Cells(lngZeile, lngSpalteOrig).Value)
If strKlammerText  "" Then
.Cells(lngZeile, lngSpalteKlammer) = strKlammerText
.Cells(lngZeile, lngSpalteOrig) = _
Replace(.Cells(lngZeile, lngSpalteOrig), "(" & strKlammerText & ")", "", 1)
End If
Next lngZeile
End With
End Sub
Function TextausletzterKlammer(strText As String) As String
If InStr(1, strText, ")") > 0 And InStr(1, strText, "(") > 0 Then
TextausletzterKlammer = Mid(strText, InStrRev(strText, "(", -1) + 1, _
InStrRev(strText, ")", -1) - InStrRev(strText, "(", -1) - 1)
End If
End Function


Anzeige
AW: Text in Klammern kopieren
20.05.2008 17:58:00
Mirko
Hallo Franz.
Tausend Dank dafür. Nach ersten Anlaufschwierigkeiten klappt es jetzt. suuuper!

305 Forumthreads zu ähnlichen Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
In Zwischenablage kopieren
Claudia

Hallo liebe VBA-Profis,
ich habe eine sehr einfache Bitte. Ich möchte die Daten aus den ersten drei Spalten (ab Zeile 2 einschließlich der letzten befüllten Zelle in Spalte A) mittelsn Makro in die Zwischenablage kopieren. Mehr nicht. :-)
Ich könnte das natürlich mit der Hand machen, d...
15.12.2008 18:19:49
Thread-ID: 1033106
4 Beiträge
Anzeige
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Gesperrte Zellen in Zwischenablage kopieren
Elias

Hallo Forum,
ich habe eine Tabelle, in welcher ein Datenbereich von B5:B20 per Button in die Zwischenablage kopiert werden soll.
Der Kram mit dem Button ist alles kein Problem, aber die Crux ist:
-Die Zellen sind gesperrt.
-Das PW darf nicht im VBA-Code hinterlegt werden, da das...
13.06.2009 23:26:05
Thread-ID: 1081337
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
7
1
2
3
10
2
8
2
2
5
7
6
1
4
7
3
1
5
5
6
8
2
2
8
1