Microsoft Excel

Herbers Excel/VBA-Archiv

Zellen in Spalten kopieren wenn diese nicht leer s


Betrifft: Zellen in Spalten kopieren wenn diese nicht leer s von: Gerd
Geschrieben am: 25.01.2019 11:33:38

Hallo, ich habe folgende Tabelle:


  • ABBA 1
    Air Supply
    Fleedwood MA 1
    Genesis
    Queen 1
    Leider wird das hier nicht richtig wieder gegeben. Die Gruppennamen stehen in Spalte A1 bis A5. Die Kennzeichnung kommt dann in B1 bis B5
    Durch ein Formular kann man eine Gruppe auswählen. Das wird dann mit einer 1 in der Spalte daneben Gekennzeichnet.
    Nun möchte ich auf einer anderen Tabelle, aufgrund der Kennzeichnung = 1, diese Ausgabe haben. Es sollen nur die Gekennzeichneten Gruppen in Spalte A7, B7, C7, usw. kopiert werden.

    A B C
    ABBA Fleedwood Mac Queen


  • Vielen Dank für Eure Bemühungen.
    Gruß
    Gerd

      

    Betrifft: AW: Zellen in Spalten kopieren wenn diese nicht leer s von: Daniel M.
    Geschrieben am: 25.01.2019 11:54:39

    Hallo Gerd,

    teste mal

    Sub Gerd()
    
    Dim i As Long
    i = 0
    Dim cell As Range
    
    For Each cell In Range("A1:A" & Cells.SpecialCells(xlCellTypeLastCell).Row)
       If cell.Offset(0, 1) = "1" Then
          cell.Copy Sheets("Tabelle2").Cells(7, 1).Offset(0, i)
          i = i + 1
       End If
    Next cell
    
    End Sub
    "Tabelle2" mit dem Namen der anderen Tabelle, wohin kopiert werden soll, ersetzen.

    Gruß
    Daniel


      

    Betrifft: AW: Zellen in Spalten kopieren wenn diese nicht leer s von: Gerd
    Geschrieben am: 28.01.2019 11:27:44

    Hallo, DANKE, leider passiert bei mir überhaupt nichts.


      

    Betrifft: AW: Zellen in Spalten kopieren wenn diese nicht leer s von: Daniel M.
    Geschrieben am: 28.01.2019 12:39:17

    Dann muss der Code an deine Tabelle angepasst werden. Die habe ich aber ja leider nicht.


      

    Betrifft: AW: Zellen in Spalten kopieren wenn diese nicht leer s von: onur
    Geschrieben am: 25.01.2019 12:08:02

    https://www.herber.de/bbs/user/127112.xlsm


      

    Betrifft: AW: Zellen in Spalten kopieren wenn diese nicht leer s von: Gerd
    Geschrieben am: 28.01.2019 11:26:29

    Hallo, DANKE, aber leider funktioniert das nur einmal. wenn man die einsen wegnimmt erscheint sofort #Name und es geht nicht mehr


      

    Betrifft: AW: Zellen in Spalten kopieren wenn diese nicht leer s von: onur
    Geschrieben am: 28.01.2019 11:33:53

    "aber leider funktioniert das nur einmal. wenn man die einsen wegnimmt erscheint sofort #Name und es geht nicht mehr" - stimt nicht - nicht in MEINER Datei.
    Es muss an DEINER Anpassung auf deine Datei liegen.
    Da du deine (Beispiels-)Datei aber nicht gepostet hast, .....


      

    Betrifft: AW: Zellen in Spalten kopieren wenn diese nicht leer s von: Gerd
    Geschrieben am: 28.01.2019 11:44:24

    Hallo, nachdem ich Deine Datei aufrufe, und nur die 1 überall entferne kommt sofort #NAME?. Auch das wiederauffüllen mit einsen hat keinen Zweck


      

    Betrifft: AW: Zellen in Spalten kopieren wenn diese nicht leer s von: onur
    Geschrieben am: 28.01.2019 11:47:33

    https://www.herber.de/bbs/user/127200.xlsm


    Beiträge aus dem Excel-Forum zum Thema "Zellen in Spalten kopieren wenn diese nicht leer s"