Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.09.2005 20:34:32 |
Niceguy |
|
|
|
12.09.2005 20:36:30 |
Niceguy |
|
|
|
13.09.2005 09:54:21 |
Rasta |
|
|
|
13.09.2005 13:56:28 |
Niceguy |
|
|
|
13.09.2005 14:41:33 |
Rasta |
|
|
|
13.09.2005 15:00:49 |
Niceguy |
|
|
Aw:Aw:Aw:Aw:Aw:Code umwandeln |
13.09.2005 15:23:45 |
Rasta |
|
|
Von:
Rasta |
Datum:
13.09.2005 15:23:45 |
Views:
1045 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:Code umwandeln |
hallo niceguy,
generell kannst du solche sachen mit vba machen. wild hin und her wandeln, ganz wie du bock hast :-)
mit "instr" stellst du z.b. fest, an welcher stelle sich das "-" befindet.
viele grüße
rasta
Niceguy schrieb am 13.09.2005 15:00:49:
Hallo rasta,
erstma danke für deine hilfe aber kann ich damit auch Codenummern in Nummernschilder umwandeln die z.b drei stellen vor dem "-" stehen haben??
z.B VEC- DC 30
Ich bin nen blutiger Anfänger in VBA und hab noch keine Ahnung... ;-)
Rasta schrieb am 13.09.2005 14:41:33:
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 |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
12.09.2005 20:36:30 |
Niceguy |
|
|
|
13.09.2005 09:54:21 |
Rasta |
|
|
|
13.09.2005 13:56:28 |
Niceguy |
|
|
|
13.09.2005 14:41:33 |
Rasta |
|
|
|
13.09.2005 15:00:49 |
Niceguy |
|
|
Aw:Aw:Aw:Aw:Aw:Code umwandeln |
13.09.2005 15:23:45 |
Rasta |
|
|