vba, Txt nach bestimmten Zeichen löschen
09.11.2022 12:00:48
Andreas
viieleicht könt ihr mir doch nocheinmal helfen!
Ich habe in einer Liste Artikelnnummern und durch 3 Leerzeichen und einem Bindestrich getrennt danach die Artikelbeschreibung
1000 - Bohrmaschine elektrisch
1001 - Bohrer verschiedene Größen
2000 - Säge 30 cm lang
über folgenden Teilcode einer userform (auf den bin ich nicht selbst gekommen, sondern habe ihn im Forumsarchiv gefunden) liest es mir den ausgewählten Artikel in die aktive Zelle:
Private Sub cmbEintragen_Click()
If Me.ListBox1.ListIndex = -1 Then
MsgBox "Bitte Eintrag in Listbox auswählen"
Else
With ActiveCell
Select Case .Parent.Name
Case "AKVS", "HG1", "HG4", "HG5", "Filtern", "Kennzahlen"
MsgBox "In Tabelle """ & .Parent.Name & """ dürfen keine Daten eingetragen werden!"
Case Else
If .Column 1 Then
MsgBox "Nur Einträgein Spalte ""A"" sind zuläsig"
ElseIf .Row Könnt ihr mir bitte, bitte sagen, wie ich den code ergänzen muss, damit das klappt. Das wäre so toll!!!
Hinweis:
Die hier gestellte Frage stellt aus meiner Sicht die Lösung, des gestern von mir sehr allgemein formulierten Problems dar (s. hier: https://www.herber.de/forum/messages/1906246.html). Leider konnte noch keine Lösung dazu gefunden werden, weil ich viellicht bei der Problembeschreibung zu ungenau war. Mit der Konkretisierung und Eingrezung des Problems erhoffe ich mir, dass ein fleißiger Helfer einfacher zur Lösung beitragen könnte. Ich würde mich sehr, sehr freuen
Ich danke ganz recht herzlich!
Viele Grüße, Andreas