Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1808to1812
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
Inhaltsverzeichnis

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

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
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
Anzeige
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 =)
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.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige