daten aus zelle auslesen

[methode2404]

Hallo zusammen,

Habe ein problem, komme nicht mehr weiter.

In eine zelle sind die namen aufgelistet. (Zb. 1-Hans,2-Albert,3-Susanne,4-Helmut usw.)
Ich benoetige ein VBA der mir das zerstueckelt (mit formel wuerde das wohl nicht hinklappen)

Also in B4 soll mir das VBA von "1-" bis "," reinschreiben
B5 soll mir das VBA von "2-" bis "," reinschreiben
B6 soll mir das VBA von "3-" bis "," reinschreiben
B7 soll mir das VBA von "4-" bis "," reinschreiben usw.

Wenn das moeglich ist, wuerde ich meine anfrage erweitern
vba koennte mich nach ne input fragen, und die namen so oft untereinander schreiben.

Also wenn ich ein 5 eingebe ; Soll von der erste name 5 mal eingetragen (also von B4 bis B8)
der zweite name von B9 bis B13 usw.

Vielen Dank im voraus an alle

Gruss
Metin

 

[JackDanIce]

Können Sie das bitte auf Englisch erklären?

Ihr bildschirm ist nicht sichtbar, brauchen sie ein besseres beispiel

Danke und Tuss,
Jack (with assistance from Google Translate)

 

[Fazza]

Vielleicht?

Sub hmm()


    Dim i As Long
    Dim lWieViele As Long
    Dim zelErste As Excel.Range
    Dim listInput As Variant
    
    lWieViele = VBA.InputBox(Prompt:="Wie viele")
    
    listInput = Split(Range("A1").Value2, ",") 'Mit list: 1-Hans, 2-Albert, 3-Susanne, 4-Helmut
    Set zelErste = Range("B4")
    
    For i = LBound(listInput) To UBound(listInput)
        zelErste.Offset(i * lWieViele).Resize(lWieViele).Value2 = listInput(i)
    Next i
    
End Sub

PS. Google translate für mich auch