Zeichkette in Name Wandeln
08.06.2016 22:02:59
Vulfi
vielleicht könnt ihr mir nochmal Helfen
Ich habe Gebietscode
die aus zahlen,buchstabe,zahlen besteht
z.B
298198f8889
Jetzt habe ich ein Tabelleblatt Namens Gebiete
Spalte A dieser Zahlencode
Spalte B der Name des MOnteuers.
Ich hatte das funktionstüchtig mit nur Zahlen.
Jetzt funktioniert dies nicht mehr. Ich gehe davon aus wegen dem Buchstaben.
Könnt ihr mir da helfen ?
Er soll den Code in den Namen ändern.
Mein altes Macro
Sub prcFill_SpalteH(ZelleZiel As Range, varTextbox As Variant)
Windows("Tüv Mangel").Activate
Dim a As Variant, b As Variant
Dim wksSuch As Worksheet
Set wksSuch = Worksheets("Gebiete")
With ZelleZiel
If IsNumeric(varTextbox) Then 'wenn Zahl in Textbox
a = Application.Match(CLng(varTextbox), wksSuch.Columns(1), 0)
b = Application.Match(varTextbox, wksSuch.Columns(1), 0)
If IsNumeric(a) Then 'wenn Zahl gefunden
.Value = wksSuch.Cells(a, 2).Value
ElseIf IsNumeric(b) Then
.Value = wksSuch.Cells(b, 2).Value
Else 'wenn zahl nicht gefunden
.ClearContents
MSgbox "Gebiet nicht aus dieser NL, bitte Stammdaten kontrollieren"
End If
Else ' wenn keine Zahl in Textbox
.Value = varTextbox
End If
End With
Set wksSuch = Nothing
End Sub
Danke euch
Gruß Vulfi