Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1800to1804
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
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmtes Zeichen Rechts löschen wenn

Bestimmtes Zeichen Rechts löschen wenn
30.12.2020 18:16:19
Albin
Hoi Zusammen
Komme leider mal nicht weiter. Habe auch im Google nichts gefunden.
Bei Problem,
ich habe in Spalte B ab und zu, dass letzte Zeichen ein "/" am Schluss von langen Text drin. Was ich suche in VBA ist ein Run, der mir das Zeichen "/" an letzter Stelle, wenn eines vorhanden ist löscht. Achtung, der Text kann aber mehre Zeichen "/" drin haben. Es darf aber nur das letzte "/" gelöscht werden, denn dieses am Schluss der Zelle steht. Spalte B hat über 1000 Zeilen.
Beispiel:
Jetzt:
Bier / Wein
Flasche / Eier / Mehl / Zucker /
Ziel:
Bier / Wein
Flasche / Eier / Mehl / Zucker
Ich danke heute jetzt schon für die Hilfe.
Albin

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
per Formel
30.12.2020 18:44:35
WF
Hi,
=LINKS(B1;LÄNGE(B1)-(RECHTS(B1)="/"))
WF
AW: Bestimmtes Zeichen Rechts löschen wenn
30.12.2020 19:17:19
Albin
Hoi WF
Danke für das rasche Feedback. Formel läuft wunderbar! Ich sollte aber eine Lösung in VBA haben.
Habe ein Beispiel angehängt. Ich mache mit dem File eine privates Register, Lagerverwaltung.
Ich habe in der Tabelle Total in der Zeile 9, am Schluss ein / eingesetzt. So das eben der Fehler kommt.
Das Ganze kann man unter der Tabelle Register, mit der Schaltflächen "Copy Total auf Inhalt_We" und "Register erste." ausführen.
https://www.herber.de/bbs/user/142667.xlsm
Anzeige
AW: Bestimmtes Zeichen Rechts löschen wenn
30.12.2020 19:37:34
Sigi.21
Hallo Albin,
mit dieser VBA-Fkt.:
Function LastSlashDelete(Text As String) As String
Text = Trim(Text)
If Right(Text, 1) = "/" Then
LastSlashDelete = Left(Text, (Len(Text) - 1))
Else
LastSlashDelete = Text
End If
End Function
Sigi
AW: Bestimmtes Zeichen Rechts löschen wenn
30.12.2020 20:19:35
Albin
Hoi Sigi 21
Sorry, bin wohl zu Doof. Ich bekomme die Funktion in einem Makro selber nicht zum laufen. Kannst Du mir bitte das Ganze mit Sub XXX() End () erstellen. So das es via F8 durchführen kann?
LG
AW: Bestimmtes Zeichen Rechts löschen wenn
30.12.2020 21:25:29
Albin
.
AW: Bestimmtes Zeichen Rechts löschen wenn
30.12.2020 21:25:54
GerdL
Moin 



Sub kopieren_Total_n_Inhalt_We()
Dim lzeile As Long, C As Range
Sheets("Inhalt_we").Range("A3:C71").ClearContents
With Sheets("Total")
'letzte beschriebene Zeile in Spalte A ermitteln
lzeile = .Range("A65536").End(xlUp).Row
'ab A5:C5 bis Ende kopieren und im Arbeitsblatt "Inhalt_we" einfügen
.Range(.Cells(5, 1), .Cells(lzeile, 3)).copy Destination:=Worksheets("Inhalt_we").Range("A5")
End With
For Each C In Worksheets("Inhalt_we").Cells(5, 2).Resize(lzeile, 1)
C.Value = LastSlashDelete(C.Value)
Next
Sheets("Register").Select
End Sub



Function LastSlashDelete(Text As String) As String
Text = Trim(Text)
If Right(Text, 1) = "/" Then
LastSlashDelete = Left(Text, (Len(Text) - 1))
Else
LastSlashDelete = Text
End If
End Function

Gruß Gerd
Anzeige
AW: Bestimmtes Zeichen Rechts löschen wenn
30.12.2020 22:11:25
Albin
Guten Abend GerdL Hallo zusammen
GerdL,
dein Makro passt 100% und läuft wie eine 1. SUPER!
Vielen Dank für deine rasche Hilfe!
Lieber Gruss Albin
PS: Nette Leute in diesem Forum und bleibt einfach gesund und einen guten Rusch ins 2021. Kann
nur noch besser werden. :-) :-) :-)

158 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
zahlen in zeichenkette suchen und wert zurück gebe
gatewax

Hallo,
ich habe einen Spaltenbereich xy der verschiedene Werte aus Zahlen und Texten enthält. (Bsp Asdf0001, B/123_sdf, usw.)
nun habe ich in einer weiteren spalte z zahlen stehen welche in dem spaltenbereich xy (unabhängig ob alleinstehen oder in Textkombination) vorkommen.
ich suc...
27.11.2008 08:22:20
Thread-ID: 1028208
3 Beiträge
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
Anzeige
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
suchen und bestimmte Zelle löschen
Peter

Hallo
ich würde gerne nach bestimmten Begriffen suchen und falls der Begriff gefunden wird,
das dann die übernächste Zelle nach unten gelöscht wird.
Beispiel: Falls Begiff gefunden in B3 dann lösche Wert in B5, Begriff gefunden in E30 dann lösche Wert in E32 usw.
Wer weiß wie ic...
19.06.2009 20:22:11
Thread-ID: 1083023
2 Beiträge
Alle Leerzeichen vorne und hinten löschen?
Selma

Hallo Leute,
wie kann ich per VBA für die markierten Zellen alle Leerzeichen des Zellinhalts vorne und hinten löschen?
Viele Grüße,
Selma
04.08.2009 10:23:57
Thread-ID: 1093411
3 Beiträge
letzte zeichen entfernen
Frank

hallo,
wie muss der Code lautetn wenn ich in einer Textbox in einer Userform vom eingetragenem Text die letzen 2 Zeichen löschen möchte sobald 20 Zeichen erreicht sind?
meine idee dazu ist: Private Sub TextBox1_Change() If Len(TextBox1) > 20 Then TextBox1 = Left(TextBox1) - 1 UserFor...
07.08.2009 11:05:20
Thread-ID: 1094231
8 Beiträge
zeichen finden und löschen
patrick

hi,
ich bräuchte wieder mal die geschätzte hilfe dieses forums.
ich hab ein rießen excelfile in dem telefonnummern drinstehen. (spalte D)
und bräuchte eine möglichkeit um dort invalide datensätze rauszulöschen.
ich will dort wirklich nur die reinen zahlen drin stehen haben. oh...
30.09.2009 14:25:13
Thread-ID: 1106441
4 Beiträge
Anzeige

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