title image


Smiley Re: Hab noch mal ne Frage


Hallo !



Interessant.

Wenn Ihr die Karte einsteckt und Word offen ist, dann erscheint der Datensatz im Worddokument? Der schreibt da einfach rein?



Probier mal, ob das mit InputBox auch geht (Code unten).

Du startest das Programm und schiebst dann die Karte ein.

Dann müsste man die Inputbox-Sache als AutoMakro in die Vorlage stellen.

Melde Dich gerne wieder!



Christoph













Option Explicit





Sub TestOn_Einlesen()

    

    Dim arrMeinArray1()     As String

    Dim intI                As Integer

    Dim strMeldung          As String

    Dim strKartendaten      As String

    

    

    strKartendaten = Einlesen

    If strKartendaten = "" Then

    

        MsgBox "Abbruch gewünscht ", _

               vbInformation, _

               "Karte einlesen"



    

    Else

        

        arrMeinArray1 = Split(strKartendaten, "?", -1)

        

        strMeldung = "Kartendaten lauten: " & vbNewLine & vbNewLine

        

        For intI = 0 To UBound(arrMeinArray1)

            strMeldung = strMeldung & arrMeinArray1(intI) & vbNewLine

        Next intI

        

        strMeldung = strMeldung & vbNewLine & "Ende der Kartendaten."

        

        MsgBox strMeldung, _

               vbInformation, _

               "Karte einlesen"

               

    End If

    

End Sub



Function Einlesen()

    

    Dim strBuffer As String

    

    

    strBuffer = InputBox("Dieses Eingabefeld sollte automatisch gefüllt werden. Bitte stecken Sie nun die Karte ein. Wenn die Karte schon steckt, diese bitte herausziehen und erneut einstecken. Drücken Sie dann die Eingabetaste oder klicken Sie OK. Danke! ", _

                         "Karte einlesen", _

                         "")

    Einlesen = strBuffer

    

End Function







Code eingefügt mit Syntaxhighlighter 2.2















geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: