Thema: Die ersten 5 Zeichen nach einem + separieren

Home

Gruppe

Funktion

Problem

Wie kann ich die jeweils ersten 5 Zeichen nach einem Plus-Zeichen in einer langen Zeichenfolge in Variablen speichern und dann in ein Tabellenblatt eintragen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub StringFiltern()
   Dim arr(1 To 10)
   Dim iCounter As Integer
   Dim sTxt As String
   For iCounter = 1 To 10
      sTxt = Cells(iCounter, 1).Value
      If InStr(sTxt, "+") Then
         sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, "+"))
         sTxt = Left(sTxt, 5)
         arr(iCounter) = sTxt
      End If
   Next iCounter
   For iCounter = 1 To 10
      Cells(iCounter, 2).Value = arr(iCounter)
   Next iCounter
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und Vba

Copy funktioniert nur einmal	Diagramm mit vba erstellen
Schreibschutz prüfen funktioniert nicht	VBA - Wochentage, zählenwenn
Vba: refersToR1C1 Namen erzeugen	mehrere Wörter suchen VBA
Vba: Array dynamisch dimensionieren und einfügen	mit VBA Farbe von CB´s steuern
Diagramme in PowerPoint mit VBA neu befüllen	PDF Drucken VBA
Split-Funktion beim Einlesen TXT-Datei	VBA Verweise
Match Funktion spinnt (?)	VBA - Eingabefeld für gesamte Spalte
AutoFilter per VBA	SVerweis funktioniert nicht
PasteSpecial funktioniert nicht.	Telefonnummer automatisch per VBA formatieren
Mögliche Reihenfolgen per VBA in Tabelle eintragen	Excel VBA Code Hilfe
Verfügbarkeitsprüfung VBA-Tool	Bedingte Formatierung per VBA mit Schleife
Matrix in VBA	Excel to Word Kapitel VBA
VBA: UF Application.Match	Kartendiagramm per VBA erstellen und formatieren
Generierung von Tabs per VBA + Sammeldruck	'Run' & 'IWshShell3' Fehlermeldung VBA
VBA Statt Windows soll Mac	Produktnummer auslesen VBA
Excel for Office 365 VBA Problem	"Speichern unter" mit VBA für eigene Files
VBA: UF Laufzeitfehler	VBA Code um einzelne Zellen zu sperren
VBA Mailanhang per Filter	VBA- aus anderer Mappe kopieren)mit Kriterium)
VBA-Code funktioniert nicht mit anderem Office	VBA E-Mail mit Button und Bedingungen
VERKETTEN in VBA ohne Anführungszeichen	Hilfe bei der INDEX Funktion
VBA - Erstellung eines Dokumentengenerator	HTML in VBA bei Outlook EINLADUNG
AW: VBA Lösung gesucht	Outlook Einladung Absender anderes Konto Excel VBA
Workbook: Start ausgeblendet ohne VBA	VBA: Dynamisches Diagramm mit bestimmten Zellberei
VBA - Listbox in Abhängigkeit füllen	Öffnen einer weiteren Excel-File mit VBA
VBA- Einträge bis zur letzten Zeile