daten aus zelle auslesen

methode2404

New Member
Joined
Sep 3, 2018
Messages
30
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
 

Some videos you may like

Excel Facts

What is the fastest way to copy a formula?
If A2:A50000 contain data. Enter a formula in B2. Select B2. Double-click the Fill Handle and Excel will shoot the formula down to B50000.

JackDanIce

Well-known Member
Joined
Feb 3, 2010
Messages
9,685
Office Version
  1. 365
Platform
  1. Windows
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)
 
Last edited:

Fazza

MrExcel MVP
Joined
May 17, 2006
Messages
9,368
Vielleicht?

Code:
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 :)
 
Last edited:

Watch MrExcel Video

Forum statistics

Threads
1,109,533
Messages
5,529,397
Members
409,870
Latest member
Well59
Top