vb tekst in een cel laten plaatsen

[ralphnag]

ik heb in een form 3 tekstvakken die ingevuld dienen te worden.
Dan wil ik dat als ik op de knop verwerken druk en in een cel uit elk vak de 1ste 2 pos. worden genomen en deze achter elkaar word gezet in de cel.

Ik heb het voor elkaar dat hij dit doet met meerdere tekst vakken

ws.Cells(iRow, 1).Value = box15.Value & box13.Value & box26.Value

alleen krijg ik nu alle teksten achter elkaar en het moeten dus van elk tekstvak de eerste 2 letters zijn.

heet iemand een idee??

 

[edmoor]

Doe het eens zo:

ws.Cells(iRow, 1).Value = Left(box15.Value, 2) & Left(box13.Value, 2) & Left(box26.Value, 2)

 

[ralphnag]

het werkt ! txs

Is er ook een manier dat een spatie niet word gezien als tekst.
ik gebruik de kode voor bedrijven anders

ws.Cells(iRow, 1).Value = Left(Box2.Value, 4) & Left(box35.Value, 2)
dus ik heb een bedrijf heet
box 2 "t bedrijf"
en is gevestigd in
box 35 "amsterdam"

de code wordt nu "t beam"

ik zou graag zien dat het in z`n geval
"tbedam"

dus de eerste 4 letters spatie wordt weg gelaten.

 

[edmoor]

Dat kan door er een functie bij te maken:

Function StripSpaces(Tekst)
    Dim i As Integer
    
    For i = 1 To Len(Tekst)
        If Mid(Tekst, i, 1) <> " " Then
            StripSpaces = StripSpaces & Mid(Tekst, i, 1)
        End If
    Next i
End Function

De regel in je voorbeeld wordt dan:

ws.Cells(iRow, 1).Value = Left(StripSpaces(Box2.Value), 4) & Left(box35.Value, 2)

Er zijn andere mogelijkheden maar zo zie je ook hoe je een zelf gemaakte functie kunt gebruiken.
Als je het niet zelf maakt zou je in dit geval de Replace functie kunnen gebruiken:
http://www.techonthenet.com/excel/formulas/replace_vba.php

 

[ralphnag]

Hallo Edmoor

Bedankt voor je snelle reacties,

Ik heb de code in geplakt maar ik krijg een fout melding.
ik weet niks van functies of waar ze horen te komen dus waarschijnlijk doe ik ergens iets fout.

Ik plak hieronder de code die ik onder de knop heb staan misschien kun je mij vertellen waar de code`s die jij hebt gestuurd neergezet dienen te worden.





Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Blad4
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
'nieuwe invoer controleren
If Trim(Me.box2.Value) = "" Then
Me.box2.SetFocus
MsgBox "Bedrijfsnaam invoeren"
Exit Sub
End If
If Trim(Me.box35.Value) = "" Then
Me.box35.SetFocus
MsgBox "Plaats naam invoeren"
Exit Sub
End If
'DATA OPSLAAN
ws.Cells(iRow, 1).Value = Left(StripSpaces(Box2.Value), 4) & Left(box35.Value, 2)
ws.Cells(iRow, 2).Value = Me.box2.Value
ws.Cells(iRow, 9).Value = "Z"
ws.Cells(iRow, 40).Value = Me.box2.Value
ws.Cells(iRow, 35).Value = Me.box35.Value
ws.Cells(iRow, 41).Value = "Gegevens invullen >>>"
ws.Cells(iRow, 51).Value = "Zie Factuuradres"
ws.Cells(iRow, 61).Value = "Zie Factuuradres"
'frm leegmake
Unload Me
MsgBox "Er is een nieuwe klant aangemaakt"
Frm_klant_gegevens_zakelijk.Show

 

[edmoor]

Je kunt de functie net voor de regel Private Sub CommandButton1_Click() invoegen.

 

[ralphnag]

Sorry voor de late reactie , maar het werkt.
Bedankt Edmoor