Thanks Thanks:  0
Results 1 to 3 of 3

Thread: daten aus zelle auslesen

  1. #1
    New Member
    Join Date
    Sep 2018
    Posts
    12
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default daten aus zelle auslesen

    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

  2. #2
    Board Regular
    Join Date
    Feb 2010
    Location
    London, UK
    Posts
    9,087
    Post Thanks / Like
    Mentioned
    21 Post(s)
    Tagged
    2 Thread(s)

    Default Re: daten aus zelle auslesen

    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 by JackDanIce; Sep 21st, 2018 at 10:16 AM.


  3. #3
    MrExcel MVP
    Join Date
    May 2006
    Location
    Excel 2003, Australia
    Posts
    8,837
    Post Thanks / Like
    Mentioned
    2 Post(s)
    Tagged
    1 Thread(s)

    Default Re: daten aus zelle auslesen

    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 by Fazza; Sep 25th, 2018 at 04:03 AM.
    Please make it as easy as possible for people to help you. Have a clearly explained question & sample data - both input & corresponding output - that can be copied to Excel. For a better answer, put more work into asking a better question.

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •