Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1420to1424
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
1420to1424
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen in String einfügen

Zeichen in String einfügen
14.04.2015 11:44:58
Juergen
Hallo,
ich bin neu hier.
Ich suche schon sehr lange eine Lösung für mein Problem und hoffe hier Hilfe zu erhalten.
Folgendes Problem:
ich gebe einen Variablen String(Zeichenfolge) max. etwa 500 Zeilen in einer Spalte.
Der String (Zeichenfolge) kann in seiner Länge stark Variieren.
Die Zeichenfolge kann sowohl aus einer Zahlen und Buchstabenkombination bestehen, aber auch nur aus eine Zahlenfolge.
Die letzten 2 Zeichen sind immer Zahlen.
Vor diesen beiden Zahlen soll immer ein "/" eingefügt werden.
Die Ausgabe soll automatisch in der gleichen Zelle ausgegeben werden in der der Eintrag erfolgt (mit verlassen der Zelle),
vergleichbar mit der Benutzerdefinierten Formatierung.
Es wäre toll, wenn mir jemand helfen könnte.
Im voraus schon mal vielen Dank

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

Betreff
Datum
Anwender
Anzeige
AW: Zeichen in String einfügen
14.04.2015 11:56:52
lupo1
B1: =LINKS(A1;LÄNGE(A1)-2)&"/"&RECHTS(A1;2)

AW: Zeichen in String einfügen
14.04.2015 12:03:11
Juergen
Hallo Lupo1,
ganz nett von Dir , aber die Lösung als Formel wäre nicht das Problem gewesen.
Hätte ich vielleicht erwähnen sollen.
Sorry mein Fehler.
Nein, ich benötige eine VBA Lösung

außerdem, ...
14.04.2015 12:08:23
Oberschlumpf
...Hi lupo1...
...erfüllt deine Formel auch nicht ganz das Gewünschte.
Gewünscht war ja, dass die Änderung in genau der Zelle geschieht, in der ein Text eingefügt wurde.
Deine Lösung benötigt mindestens eine Hilfszelle (B1) oder eben die ganze Spalte B.
Ciao
Thorsten

eben als Formel, jetzt wie gefragt als VBAEreignis
14.04.2015 12:05:09
lupo1
rechtsklicke Tabellenreiter, Code Anzeigen, einfügen: 
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 1 Then
Application.EnableEvents = False
.Value = Left(.Value, Len(.Value) - 2) & "/" & Right(.Value, 2)
Application.EnableEvents = True
End If
End With
End Sub
Achtung: Betrifft nur Eingabe in Spalte A (Column = 1)

Anzeige
AW: eben als Formel, jetzt wie gefragt als VBAEreignis
14.04.2015 12:10:44
Juergen
Hallo lupo1,
klapp genau so wie ich es mir gewünscht habe.
Vielen herzlichen Dank

AW: Zeichen in String einfügen
14.04.2015 12:09:00
UweD
Hallo
- rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Code hier einfügen
Ist auf Zelländerungen der Spalte A begrenzt (Änderbar)
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Dim RNG As Range
Set RNG = ActiveSheet.Range("A:A") 'anpassen
If Not Intersect(Target, RNG) Is Nothing Then
If Target.Count = 1 Then
Application.EnableEvents = False
Target = Left(Target, Len(Target) - 2) & "/" & Right(Target, 2)
Else
MsgBox "Nur eine Zelle erlaubt"
End If
End If
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
End Sub

Gruß UweD
Anzeige

178 Forumthreads zu ähnlichen Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Tausenderzeichen in Textbox
Stefen

Hi Leute
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1=Format(TextBox1,"#,##0.00") End Sub
eingebe sollte doch in Verbindung mit Controlsource in der TextBox die Tausenderzeichen stehen.
Warum geht das nicht.
Es zeigt mir immer nur den Betrag 50000...
31.01.2009 16:44:00
Thread-ID: 1045681
12 Beiträge
Anzeige
Keine Sonderzeichen in mehreren Textboxen
Roland

Hallo VBA Profis
ich überprüfe mit folgendem Code ob jemand ein Sonderzeichen eingibt.
Sub txt_AuftragsNr_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 65 To 90, 48 To 57 'Grossbuchstaben, Zahlen Case 97 To 122 'Kleinbuchstaben Case Else MsgBox "Es sind k...
02.03.2009 11:41:30
Thread-ID: 1055489
5 Beiträge
Sonderzeichen in Textbox
Artur

Hallo User,
ich habe eine userForm als Eingabemaske entwickelt. Eins der Eingabefelder (Textbox) wir in der weiteren Verwendung als Dateiname verwendet. Wie kann ich es jetzt verhindern das der Benutzer die Sonderzeichen \ / ; usw. nicht in die Textbox einträgt. Vorerst vielen dank für Eure...
03.03.2009 10:45:06
Thread-ID: 1055855
6 Beiträge
Fremdzeichen beim Export in Textdatei
Josef

Hallo!
Manchmal wird bei der Eingabe eines längeren Textes in eine Zelle ein Return gesetzt. Wenn man dann diese Datei in ein Textfile speichert, so erhält man in der Textdatei an diesen Stellen ein leeres Quadrat. Wie kann man bitte verhindern, dass in der Textdatei solche Zeichen gesetzt...
06.04.2009 10:20:01
Thread-ID: 1067048
2 Beiträge
Keine Sonderzeichen in mehreren Textboxen
Roland

Hallo Excel-Profis
Ich habe eine Excel-Datei von ca. 1,7MB Grösse mit 32 Tabellen ein paar Userforms und diverse VBA Codes.
Auf meinem Rechner
Lenovo ThinkPad T60
Intel(R) Core(TM)2 CPU
T7200 @ 2.00GHz, 1.99 GB RAM
mit Office 2003,
ist die Datei in 3 sec. gespeiche...
09.04.2009 16:02:07
Thread-ID: 1068056
3 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

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