Automatisch doorvoeren en tekst zetten in aparte cellen.

[Mickeymouse123]

Hoi allemaal,

Ik heb 2 vragen:

1. Ik wil een bepaalde formule automatisch doorvoeren, alleen wil ik dat een klein deel van de formule automatisch verandert, maar een deel moet hetzelfde blijven?

2. Stel ik typ in A1 HOI, is het dan mogelijk om deze letters automatisch te plaatsen in aparte cellen. Dus de H in C1, de O in D1 en de I in E1.

Alvast bedankt!

Mickey Mouse

 

[HSV]

Vraag 1: gebruik de Dollarteken ($) voor het vastzetten.
Vraag 2 met een code in bladmodule van toepassing.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, y As Long
If Target.Count = 1 Then
Application.EnableEvents = False
 For i = 1 To Len(Target)
   y = y + 1
Cells(Target.Row, y + 2) = Target.Characters(i, 1).Text
    Next i
  End If
Application.EnableEvents = True
End Sub

 

[Mickeymouse123]

Alvast bedankt voor het eerste antwoord. Erg handig!

Het 2e antwoord klopt ook, alleen snap ik hem niet precies. Ik heb erbij een voorbeeld bestandje gemaakt hoe het precies werkt. En als ik dit doe, dan kan ik geen getallen meer invoeren, dus is dit te verhelpen. Alvast heel erg bedankt!

Bekijk bijlage helpmIJ2.xlsx

 

[HSV]

Gaat het zo beter?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, y As Long
If Target.Count = 1 And Not IsNumeric(Target) Then
Application.EnableEvents = False
 For i = 1 To Len(Target)
   y = y + 1
Cells(Target.Row, y + 2) = Target.Characters(i, 1).Text
    Next i
  End If
Application.EnableEvents = True
End Sub