MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 21.12.2006, 09:55   #1
2354
MOF User
MOF User
Standard VBA - Zeichen auslesen

Hallo,

ich möchte aus einer Zeichenfolge in einer Textbox (Zahlen und Buchstaben) jedes Zeichen einzeln auslesen lassen und dann als Zeichencode (ASC) in eine andere Textbox eintragen lassen. Zwischen den einzelnen Zeichencodes soll ein Leerzeichen stehen. Das Auslesen der Zeichen soll bendet werden, wenn zwei Leerzeichen aufeinander folgen. Bisher habe ich folgenden Code:

Code:

Private Sub btn_test_Click()
Dim text_temp As String
text_temp = text.Value
ausgabe.Value = Asc(text_temp)
End Sub
Wie kann ich das ganze weiterentwickeln?
Danke!
2354 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.12.2006, 10:55   #2
240650
Neuer Benutzer
Neuer Benutzer
Standard

Hallo

Private Sub btn_test_Click()
Dim text_temp As String
For i = 1 To Len(Text.Value)
text_temp = Mid(Text.Value, i, 1)
If Mid(Text.Value, i, 2) = " " Then Exit For
If i > 1 Then
ausgabe.Value = ausgabe.Value & " " & Asc(text_temp)
Else
ausgabe.Value = ausgabe.Value & Asc(text_temp)
End If
Next i
End Sub

Gruss Beni
240650 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.12.2006, 10:59   #3
IngGi
MOF Guru
MOF Guru
Standard

Hallo 2354,

mal ungetestet zum Probieren:
Code:


Private Sub btn_test_Click()

Dim text_temp As String
Dim z As Long
Dim leer As Boolean

text_temp = UserForm1.TextBox1.Text
For z = 1 To Len(text_temp)
   If Mid(text_temp) = " " Then
      If leer = True Then
         ausgabe = Left(ausgabe, Len(ausgabe) - 4)
         Exit For
      Else
         leer = True
      End If
   End If
   UserForm1.TextBox2.Text = UserForm1.TextBox2.Text & Asc(text_temp) & " "
Next 'z

End Sub

Code eingefügt mit Syntaxhighlighter 4.3
Geht davon aus, dass die Textboxen auf einem UserForm (UserForm1) sind.

Gruß Ingolf
IngGi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.12.2006, 11:28   #4
2354
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo,

super. Danke für die schnelle Hilfe! Die Lösung von Beni funktioniert.

Gruß
2354
2354 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:38 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.