Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Angehängten Buchstaben erkennen und lösc

Forumthread: Angehängten Buchstaben erkennen und lösc

Angehängten Buchstaben erkennen und lösc
09.02.2021 11:14:34
M--G
Hallo zusammen,
realtiv einfach war es einen Buchstaben einer Nummer in einer Zelle mit meinem VBA-Programm anzuhängen.
If.... Then
Cells(x,y).Value = Cells(x,y).Value & "a"
Cells(x+1,y).Value = Cells(x+1,y).Value & "b"
Daraus ergibt sich z.B. 15a und 15b
In einem weiteren Schritt, muss ich aber sowohl die normalen Nummern erkennen können, als auch gezielt abfragen können, ob die Nummer hinten ein a oder b hat,
wenn ja, das a oder b löschen und die Urnummer in einer Variable "speicher" zwischenspeichern.
Dankeschön euch
Anzeige

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

Betreff
Datum
Anwender
Anzeige
doppeltes Replace
09.02.2021 11:25:54
Rudi
Hallo,
beispielsweise:
  Select Case Right(DieZelle, 1)
Case "a", "b"
speicher = Left(DieZelle, Len(DieZelle) - 1)
End Select

Gruß
Rudi
AW: doppeltes Replace
09.02.2021 13:27:16
M--G
Danke schön!
Habe mir mal schnell ein ganz simples Testprogramm geschrieben und funktioniert *freu*
For i = 8 To 25
bool = False
Select Case Right(Cells(i, 1).Value, 1)
Case "a", "b"
Cells(i, 5).Value = Left(Cells(i, 1).Value, Len(Cells(i, 1).Value) - 1)
bool = True
Case Else
Cells(i, 5).Value = Cells(i, 1).Value
End Select
Next i
Anzeige
AW: doppeltes Replace
09.02.2021 13:48:06
Rudi
Hallo,
das kannst du löschen:
Case Else
Cells(i, 5).Value = Cells(i, 1).Value

was soll bool?
Gruß
Rudi
AW: doppeltes Replace
09.02.2021 15:08:07
M--G
Hi Rudi, soll es mir ermöglichen in weiterem Code zu erkennen, ob ich in der Schleife den Suffix entfernt habe.
Dickes Danke nochmal für deinen Codeschnipsel =)
Anzeige
AW: Angehängten Buchstaben erkennen und lösc
09.02.2021 11:29:23
Beverly
Hi,
nach diesem Prinzip:
    If Right(Range("B31"), 1) = "a" Or Right(Range("B31"), 1) = "b" Then
MsgBox Val(Range("B31"))
End If


AW: Warum nicht zwei Variablen?
09.02.2021 16:47:57
Sulprobil
Eine für die Hausnummer, und eine weitere für die Ergänzung?
Ein gutes Design macht Konvertierungen überflüssig.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige