Thema Datum  Von Nutzer Rating
Antwort
12.09.2005 20:34:32 Niceguy
NotSolved
12.09.2005 20:36:30 Niceguy
NotSolved
13.09.2005 09:54:21 Rasta
NotSolved
13.09.2005 13:56:28 Niceguy
NotSolved
Rot Aw:Aw:Aw:Code umwandeln
13.09.2005 14:41:33 Rasta
NotSolved
13.09.2005 15:00:49 Niceguy
NotSolved
13.09.2005 15:23:45 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Rasta
Datum:
13.09.2005 14:41:33
Views:
1124
Rating: Antwort:
  Ja
Thema:
Aw:Aw:Aw:Code umwandeln
hallo niceguy,

okay, ich habs verstanden :-)

ich würde am ende meiner daten ein "END" in die zelle setzen

dann schreibst du eine schleife, die die tabelle durcharbeitet -- die zeichen trennst du und schickst sie an eine funktion, die dir den buchstaben zurückgibt.. etwa so:

dim zeile as long
zeile = 1

do until cells(zeile, 1) = "END"

cells(zeile, 1) = trim(zeile, 1) 'leerzeichen entfernen

cells(zeile, 2) = getcharactger(left(cells(zeile, 1), 2))

zeile = zeile +1
loop


Public Function getCharacter(zahl As Long) As String

Select Case zahl

Case 1: getCharacter = "A"
Case 2: getCharacter = "B"


End Select

End Function

schau mal, wie du zurecht kommst

viele grüße

rasta


Niceguy schrieb am 13.09.2005 13:56:28:

Hallo rasta, 11-k bedeuted, das das K der elfte Buchstabe im Alphabet ist...

so ist die ganze Codenummer aufgebaut... ;-)

MfG
Tino

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.09.2005 20:34:32 Niceguy
NotSolved
12.09.2005 20:36:30 Niceguy
NotSolved
13.09.2005 09:54:21 Rasta
NotSolved
13.09.2005 13:56:28 Niceguy
NotSolved
Rot Aw:Aw:Aw:Code umwandeln
13.09.2005 14:41:33 Rasta
NotSolved
13.09.2005 15:00:49 Niceguy
NotSolved
13.09.2005 15:23:45 Rasta
NotSolved