Herbers Excel-Forum - das Archiv

Zahlen in Namen umwandeln

Bild

Betrifft: Zahlen in Namen umwandeln
von: Erich M.

Geschrieben am: 24.03.2005 07:08:48
Hallo EXCEL-Freunde,
suche eine Möglichkeit, während der Laufzeit ermittelte Zahlen in Namen
umzuwandeln:
Teil 1
Test
 ABCDEFG
1Bezeichnung Nr 1Nr 2Nr 3Name 1Name 3
2te234 Muster  Kaufen 462 T 100 234462100MüllerMeister
3TE  2334 Muster und kaufen 463 L 800 2334463800HuberHaller
4TE 234 Muster & kaufen 464 K 800 234464800MüllerHaller
5TE 2334 Muster GmbH u Co. KG 462 K 100 2334462100HuberMeister
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

Mit nachstehendem Code werden die Zahlenh aus Spalte A gefiltert und in die
Spalten C bis E eingetragen:
Teil 2:
Sub Zahl_aus_Text()
' von K.Rola
Dim r As Range, intSpalte As Integer, i As Long
For Each r In [a2:a5]
intSpalte = 1 + 1
For i = 1 To Len(r.Text)
If IsNumeric(Mid(r.Text, i, 1)) Then
r.Offset(0, intSpalte) = r.Offset(0, intSpalte) & Mid(r.Text, i, 1)
Else
If Len(r.Offset(0, intSpalte)) > 0 Then intSpalte = intSpalte + 1
End If
Next
Next
End Sub

Nun möchte ich noch die in Spalten C und E ermittelten Zahlen in Namen unwandeln
und in die Spalten F und G eintragen lassen.
Dabei gilt:
234 = Müller
2334 = Huber
100 = Meister
800 = Haller
Wie könnte das gehen?
Besten Dank für eine Hilfe!
mfg
Erich
http://www.toolex.de
Bild

Betrifft: AW: Zahlen in Namen umwandeln
von: Cardexperte

Geschrieben am: 24.03.2005 07:25:11
Hello Erich vielleicht so:
Tip
=VERWEIS(C2;{100.234.800.2334};{""Meister"".""Müller"".""Haller"".""Huber""}) und z.B. in f2 nach unten ziehen, dies würde ich aber nur machen, wenn es sich um wenige Eintragungen handelt, bei mehr dann bitte sverweis verwenden!!!
Gruss WS
Bild

Betrifft: AW: Zahlen in Namen umwandeln
von: Erich M.
Geschrieben am: 25.03.2005 08:54:42
Hallo WS,
danke - allerdings suche ich VBA-Lösung.
Oder wie müsste ich die Formel per VBA umsetzen?
mfg
Erich
http://www.toolex.de
Bild

Betrifft: AW: Zahlen in Namen umwandeln
von: Cardexperte

Geschrieben am: 25.03.2005 11:02:03
Hello Erich also ,wenn es unbedingt vba sein muss, dann heißt die Funktion:
wert= Application.WorksheetFunction.vlookup(......)
die Punkte stehen für die Eingabe, wie sie auch bei sverweis notwendig sind, also Suchwert, Suchmatrix, Splatenzahl, Wahr oder falsch)
Gruss WS
Bild

Betrifft: AW: Zahlen in Namen umwandeln
von: Cardexperte
Geschrieben am: 25.03.2005 11:04:25
hier noch ein Beispiel:
http://spotlight.de/nzforen/amse/m/amse-1104409576-27948.html
Bild

Betrifft: AW: Zahlen in Namen umwandeln
von: Erich M.

Geschrieben am: 25.03.2005 16:31:42
Hallo Cardexperte,
habs gefunden:
' aus Zelleninhalt ermitteln und eintragen
Cells(1, intSpalte + 2) = "Test"
For i = 2 To myZeile
If UCase(Cells(i, 3)) = "234" Then
Cells(i, intSpalte + 2) = "Müller"
ElseIf UCase(Cells(i, 3)) = "2334" Then
Cells(i, intSpalte + 2) = "Huber"
End If
Next
mfg
Erich
http://www.toolex.de
 Bild
Excel-Beispiele zum Thema "Zahlen in Namen umwandeln"
Vorkommen von Zahlenreihen in Spalten Zeichenfolgen in Zahlen nach Textimport
Zahlenformatierung mit Punkt nach der 1. Ziffer Namen von TextBoxes hochzählen
Zählen formatierter Zellen Autofilter auch mit Ziffern von Zahlen
Addition der absoluten Zahlen Eingabe von positiven Zahlen erzwingen
Zufallszahlen generieren, die sich nicht wiederholen Summenformel unter Zahlenreihe eintragen