Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1524to1528
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
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Änderung String schneiden

Bei Änderung String schneiden
30.11.2016 09:38:21
Mandy
Hallo,
ich möchte den Range B8:B20 überwachen. Sobald ein User in diesem Range was eingetragen hat, soll die aktive Zelle überprüft werden , ob in dem String die Kombination "####" vorkommt.
Wenn ja, soll von Anfang bis einschließlich "####" angeschnitten werden.
Beispiel:
ein User gibt in B8 "Auftrag_22211####0815" ein
Nach der Eingabe soll der String gekürzt werden aus "0815"
Wie kann ich sowas per VBA realisieren?
Dankeschön
Mandy

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Änderung String schneiden
30.11.2016 09:53:57
Daniel
Hi
beispielsweise mit diesem Code im Modul des Tabellenblatts:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range
Dim Pos As Long
If Not Intersect(Target, Range("B8:b20")) Is Nothing Then
Application.EnableEvents = False
For Each zelle In Intersect(Target, Range("B8:B20"))
Pos = InStr(zelle.Value, "####")
If Pos > 0 Then zelle.Value = Mid$(zelle.Value, Pos + 4)
Next
Application.EnableEvents = True
End If
End Sub
Gruß Daniel
Supi, Danke owT
30.11.2016 10:36:01
Mandy
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige