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

Beiträge aus den Excel-Beispielen zum Thema "Zahlen in Namen umwandeln"