Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1816to1820
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
1816to1820
1816to1820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Klammer aus String entfernen

Klammer aus String entfernen
12.03.2021 22:04:48
Samuel
Hallo Zusammen
Ich bin momentan daran, einen eigenen Vocitrainer zu programmieren. (Ja, ich besuche noch die Schule)
Das Programm ist fertig, nun soll es erweitert werden. Ich will, dass bei einer Lösung von bsw. "break (verb)" auch "break" als richtig erkannt wird.
Es soll also aus einem String eine potenzielle Klammer und das dazwischen entfernt werden.
Für das braucht man Funktionen wie inStr() und mid() und split() aber ich krieg die einfach nicht so zusammen, dass das Programm funktioniert.
Dankbar für jede Hilfe
Samuel
Der Vocitrainer wie er jetzt aussieht:
https://www.herber.de/bbs/user/144723.xlsm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Klammer aus String entfernen
12.03.2021 22:19:12
volti
Hallo Samuel,
Du hast einen Passwortschutz auf Deinen Code.... :-(
Aber wenn Du einen Klammerausdruck samt Inhalt entfernen möchtest, hier eine Idee dazu:
Ggf. wegen der Leerzeichen noch eine Anpassung nötig.
Code:



[Cc]



Sub Test()
  Dim sTest As String

  sTest = "Dieses ist ein Makro (Test1) zum Testen!"
  sTest = Replace(Split(sTest, "(")(0) & Split(sTest & ")", ")")(1), "  ", " ")

  Debug.Print sTest
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz


Anzeige
AW: Userform Textbox Zellwert
12.03.2021 22:29:25
Samuel
Danke Karl-Heinz
Super, danke! Mit den Leerzeilen gehts auch auf.
Und mehr als eine Klammer muss ich sowieso nicht ersetzen.
Sorry wegen dem Passwortschutz. Liefere ich noch ohne nach.
Lg Samuel

AW: Userform Textbox Zellwert
12.03.2021 22:35:02
Samuel
Hier wie Versprochen die Nachlieferung ohne Passwort schutz:
https://www.herber.de/bbs/user/144724.xlsm
Ich weiss, nicht immer elegant gelöst, aber wenigstens einige Kommentare im Code. :-)
Nochmals danke an Karl-Heinz und Grüsse an alle aus der schönen Schweiz

AW: Userform Textbox Zellwert
14.03.2021 15:01:32
Samuel
Hallo Zusammen
Hier noch eine Kleine Ergänzung. Falls in Zukunft mal jemand ein ähnliches Problem hatte.
Wenn man nicht weiss, ob die Klammer im String oder am Ende des Strings ist und man Leerzeichen am Ende vermeiden will, so sollte es klappen:
Function klammerRaus(str_string As String) As String
str_string = str_string & " "
str_string = Replace(Split(str_string, "(")(0) & _
Split(str_string & ")", ")")(1), "  ", " ")
If Right(str_string, 1) = " " Then
str_string = Left(str_string, Len(str_string) - 1)
End If
klammerRaus = str_string
End Function

Herzliche Grüsse
Samuel
Anzeige

306 Forumthreads zu ähnlichen Themen

Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Anzeige
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Anzeige
letztes Zeichen löschen
Roger

Hallo zusammen,
mein Tabellenblatt enthält in einer Spalte Textstrings, die als letztes Zeichen ein " enthalten. Das möchte ich gerne löschen.
Mit
Cells.Replace What:="Zeichen_alt", Replacement:="Zeichen_neu", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=True ersetze ich z....
16.11.2009 16:00:48
Thread-ID: 1117654
4 Beiträge
Zeichen links neben Zahl Löschen
Fenja

Hallo liebe Leute,
ich habe in einer Spalte, in der steht z. Besispiel in H3: blabla 7 blublu
Ich möchte in einer neuen Spalte rechts von H, alle Zeichen links neben der 7 gelöscht haben, so dass ab der 7 angezeigt wird.
Kann mir jemand helfen?
Lieben Dank
F.
20.11.2009 11:24:11
Thread-ID: 1118839
5 Beiträge
Zeichen in Sheet suchen und links löschen
Tom

Hallo!
ich habe folgendes Problem. In einer Tabelle habe ich eine Spalte (E), in der ich folgende Werte habe:
abcdefgh O\ 12345
oder auch
abcdefgh P\ 12345
ich müsste in jeder Zeile dieser Spalte alles links von O\ oder P\ löschen :
abcdefgh O\ 12345 --> O\ 12345
09.02.2010 15:13:34
Thread-ID: 1137079
6 Beiträge
VBA die letzten 4 Zeichen in einem String löschen
andreas

Hallo zusammen,
ich lese die Zelle "k12" als Variable ein und möchte dabei immer die letzten 4 Zeichen löschen
Modellname = Left(("k12"), Len("k12") - 4)
was ist falsch geschrieben?
Danke für die Hilfe
19.02.2010 11:58:31
Thread-ID: 1139731
4 Beiträge
Leerzeichen nach Text in Zelle löschen
Helmut

Liebe Forenuser,
ich habe noch eine Frage für heute:
Wie kann ich die Leerzeichen nach einem Text in allen Zellen in einem Tabellenblatt löschen?
Genauer:
Wenn ich z.B. in eine Zelle hineingehe, dann stehe ich oft nicht genau nach dem letzten Zeichen in der Zelle, sondern weiter...
07.05.2010 13:54:48
Thread-ID: 1156080
3 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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
5
4
7
2
9
3
4
5
3
2
2
3
6
6
1
2
2
5
2
4
3
2
2
14
12